Autofill Spalte A nur bei gefüllten Zellen Spalte B

[Steffl]

Hallo Frank,

vielleicht in diese (Beitrag von Daniel) Richtung?

[WergibtmirRat]

verfasst von Case

Zitat:
Falls sich da nichts findet, müsstest du folgenden Workaround anwenden:
Oder einen kleinen zehnzeiligen VBA-Code.

> wo gibt's den zehnzeiligen Code ...  lach



Hallo Stefan,

diese Methode hab ich schon ewig angewendet.
- alles sortieren; Formel =links(;1) für die Erstzeichen von 0-9 ; A-Z
- nächster Schritt Formel Identisch verpasst über 2 Zeilenhöhen
- Ergebnis nochmals mit 'Doppelte Werte' aus Bedingte Formatierung (sehr zeitintensiv) gefiltert
- gefundene markiert, ab in den Texteditor und zurück in neues Tabellenblatt.

Das ist wirklich viel viel Arbeit - da kann man getrost frühstücken;grillen & Abendbrot zu sich nehmen

Ich dachte es geht evt. auch anders ...

aber Danke für den Link

[WillWissen]

Hi Frank,

ich kenne zwar den Aufbau deiner Datei nicht. Wenn du diese aber mit STRG-T als Tabelle formatierst, dann geht das Löschen der Doppelten nach dem Muster im Nachbarforum doch ganz einfach.

Wie beschrieben die Hilfsspalte mit WAHR füllen lassen. Dann einfach nach dieser filtern (alle anderen Zeilen sind dann ausgeblendet), markieren und einfach mit der Entfernen-Taste löschen. Filterung wieder aufheben.

[Steffl]

Hallo Frank

schon ewig angewendet.
- ..... Formel =links(;1) für die Erstzeichen von 0-9 ; A-Z

Wieso das denn?

[WergibtmirRat]

pssssst, ganz ehrlich
an lang bewährten hält man fest
auch wenn es für andere einfacher ginge/geht

[RPP63]

Guten Morgen, Frank!

an lang bewährten hält man fest

Gehst Du, wenn Du Hunger auf Fleisch hast, mit Pfeil und Bogen in den Wald?
Oder doch eher zum Metzger?

Wenn Du diesen Spruch auf die EDV anwendest, musst Du Dich nicht wundern, wenn es ewig dauert!

Warum kopierst Du nicht den kompletten Spaltenbereich und wendest Duplikate entfernen an, wie ich Dir bereits empfohlen habe?

Mit dem bereichsweisen Eintrag einer Formel habe ich Dir ja schon gezeigt, wie man Performance erreicht.
Duplikate entfernen ist eklatant schneller als die bedingte Formatierung (vom Speicherplatz mal ganz abgesehen).

Gruß Ralf

[WergibtmirRat]

...wendest Duplikate entfernen an...

Mache ich; z.B. in Spalte B kopiere ich alle, das gleiche nochmals z.B. in Spalte G - wende hier dann Duplikate entfernen an.
Danach jage ich Zählenwenn (Sp. H) auf den Bereich der Liste in Sp. B an
anschließend in Sp. C verwende ich Sverweis um die häufigkeit der linken Zelle anzuzeigen

...dem bereichsweisen Eintrag einer Formel habe ich Dir ja schon gezeigt, wie man Performance erreicht...

- bin dabei es in VBA mittels Makro aufzubauen

dein Vorschlag wird schon mit einbezogen - Sorry wenn das falsch rüberkam

Dann hätt ich nicht fragen brauchen - ich will halt mehr arbeiten können als in grauen Vorzeiten ewig zu warten
Der Satz oben, ist zwar richtig - bis ich mit der neuen Herangehensweise vertraut bin.
Der alte Rechner [ego] muss das auch umsetzen können ...

mfg

[WergibtmirRat]

Code:

Sub Kurz()
Tabelle14.Range("B:C").Copy Tabelle1.Range("C1")
With Tabelle1
  .Range("A2:A" & .Cells(.Rows.Count, 3).End(xlUp).Row).FormulaR1C1 = _
     "=IF(RC[2]<>"""",R[-1]C+1,"""")"
End With
End Sub

Hallo,
hier mal der angepasste Code von mir - sieht nicht schön aus  - läuft aber
dazu gefügte Codeteile sind mit dem Makrorekorder erstellt.
Kann bestimmt noch geschlankt werden.

Code:

Sub Kurz()
Tabelle3.Range("B:C").Copy Tabelle1.Range("C1")
With Tabelle1
 .Range("A2:A" & .Cells(.Rows.Count, 3).End(xlUp).Row).FormulaR1C1 = _
    "=IF(RC[2]<>"""",R[-1]C+1,"""")"
End With
   Columns("D:D").Select
   Selection.Replace What:="=", Replacement:="_", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   Range("A1:E1").Select
   Range("E1").Activate
   Application.CutCopyMode = False
   Selection.AutoFilter
   ActiveWorkbook.Worksheets("Herrichten").AutoFilter.Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Herrichten").AutoFilter.Sort.SortFields.Add Key:= _
       Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("Herrichten").AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
Dim rng As Range
On Error Resume Next
Set rng = Sheets("Herrichten").Range("D2:D40000").SpecialCells(xlCellTypeBlanks) 'Herrichten
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
Set rng = Nothing
With Tabelle1
   .Range("A2:D" & .Cells(.Rows.Count, 3).End(xlUp).Row).RemoveDuplicates Columns:=4, Header:= _
       xlYes
End With
End Sub

Spalte D muss vorab sortiert werden da verschiedene doppelte Einträge einfach nicht gelöscht wurden
anbei die Datei
  ListeOhneDuplikateErstellen.xlsm (Größe: 23,9 KB / Downloads: 1)
- was jetzt noch fehlt, ist das Aufzählen aus der Stammtabelle (Tabelle1-Spalte A) per Zählenwenn wie oft ein Album in allen Partitionen vorhanden ist
- damit per Buttonklick keine andauernde Berechnung stattfindet, am besten per Buttonklick als Text speichern ???

mfg

[Steffl]

Hallo Frank,

- was jetzt noch fehlt, ist das Aufzählen aus der Stammtabelle (Tabelle1-Spalte A) per Zählenwenn wie oft ein Album in allen Partitionen vorhanden ist

könntest Du mal in deiner Datei ein Zählbeispiel machen?

- damit per Buttonklick keine andauernde Berechnung stattfindet, am besten per Buttonklick als Text speichern ???

das verstehe ich nicht

[WergibtmirRat]

...könntest Du mal in deiner Datei ein Zählbeispiel machen...

Hallo Stefan & @all
anbei die Ansichtsdatei
Die Ansichtsdatei zeigt in etwa was passieren soll.

  ListeOhneDuplikate2.xlsm (Größe: 30,02 KB / Downloads: 3)
Nach doppelte Dateien löschen im Tabellenblatt 2, soll nun gezählt werden wie oft der verbliebene Titel in der Tabelle 1 vorhanden ist
Um die Anzahl eines Albentitels anzuzeigen, habe ich mit Zählenwenn(Bereich Tabelle1 mit linker Zelle Tabelle 2) gesucht.
zählenwenn fällt ja aus wegen Langzeitberechnung
summenprodukt gepaart mit identisch ist auch keine Lösung
mfg