Ich habe eine Datei mit 33 Tabellen (1-31 für jeden Tag im Monat) und 2 Auswertungstabellen (Daten, Auswertung)
In der Tabelle Daten lese ich mit diesem Makro die Einträge aller 31 Tage aus und übertrage sie in die Tabelle Daten in die Spalten A,B,C.
Soweit klappt ja noch alles perfekt.
In Spalte A stehen nun mehrere hundert Autokennzeichen.
Ich hätte nun gerne, dass in Spalte E jedes Kennzeichen das in Spalte A vorkommt dort 1x untereinander aufgelistet wird.
Mit der Formel WennZählenwenn und anschließend Filter funktioniert zwar, ist aber für die Weiterverarbeitung leider nicht Zielführend.
Kann mir hier jemand mal weiter helfen.
Danke
Gruß wafi
Sub KennzeichenAuslesen()
Worksheets("Daten").Range("A7:C5230").ClearContents
b = 6 'Zeilenbeginn wo geschrieben
For y = 1 To 31
For a = 7 To 172 'lesen von bis
If Worksheets(y).Range("E" & a) = "" Then a = 172 ' Abbruch wenn Zelle leer
If Worksheets(y).Range("E" & a) > "" Then ' von wo ausgelesen wird
b = b + 1
' Teil 1 SchreibRoutine - Teil 2 LeseRoutine
Worksheets("Daten").Range("A" & b) = Worksheets(y).Range("E" & a) 'Kennz
Worksheets("Daten").Range("B" & b) = Worksheets(y).Range("M" & a) 'MAX
Worksheets("Daten").Range("C" & b) = Worksheets(y).Range("Q" & a) 'IST
End If
Next a
Next y
'Sortieren ab A7 bis C5320
'ActiveSheet.Range("A7:C5320").Select
'Selection.Sort Key1:=ActiveSheet.Range("A7"), Order1:=xlAscending, Header:=xlGuess
'Sortieren ab E7 bis E5320
'ActiveSheet.Range("E7:E5320").Select
' Selection.Sort Key1:=ActiveSheet.Range("E7"), Order1:=xlAscending, Header:=xlGuess
Range("B8").Select 'Cursor setzen
End Sub