ich beschäftige mich häufig mit Makros um einige Dinge in Excel zu erleichtern. Häufig geht es hier darum Daten zu kopieren etc.
Aktuell stehe ich wieder vor einem solchen Projekt.
Ich habe eine Tabelle mit ca. 8500 Zeilen. Die Tabelle geht von A bis M.
In Zeile 1 der Tabelle befinden sich Städtenamen (ca. 140 verschiedene).
Ich habe vor für jede Stadt die Daten in ein eigenes Tabellenblatt zu kopieren.
Gefunden habe ich bereits ein Makro welches mir Tabellenblätter nach einer bestimmten
Liste erstellt.
Sub StandortTabellenErstellen()
Dim LastRow, i
LastRow = Sheets("Standortliste").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
Sheets("blanko").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Standortliste").Range("A" & i)
Next
End Sub
Wo ich nicht weiterkomme bzw. nicht fündig werde ist das kopieren der Daten.
Ich möchte alle Zeilen aus der Ursprungstabelle welche in Spalte A den gleichen Wert
haben wie das Tabellenblatt heißt mit Formeln in genau dieses Tabellenblatt kopieren.
Hat hier jemand eine Idee wie man das umsetzen kann?
Im Grunde möchte ich für jede Stadt ein eigenes Tabellenblatt haben und nicht 8500 Zeilen.
Vielen Dank im Voraus :)