aus einer großen Globalen Info-datei (ca 4000 Zeilen) möchte ich immer mehrere Zeilen in 140 einzelne Tabellenblätter an immer die selbe Stelle kopieren.
Die Infos sind durch Spalte A mit einem Code versehen (zb 2242). Pro Code gibts unterschidlich viele Zeilen. Jede Zeile hat ein Code. Die Tabellenblätter habe ich der Einfachheit halber jeweils auch nach dem Code benannt.
Das Arbeiten mit Schleifen per se ist mir bekannt, nur mit diesem fall einer notwendigen Doppelschleife beiß ich mir gerade die Zähne aus :(
Hier mal der Code den ich mir bisher gebastelt hab als Anschauungsmaterial. Für diese 2 Fälle klappt das aber sollte nun in eine Schleife gebastelt werden. Aber bestenfalls nicht mit +1 sondern:
Weiteres Problem für das ich noch keine lösung gefunden habe ist das der Code nicht fortlaufend ansteigt, sondern 140 mehr oder weniger beliebige Werte zwischen 2000 und 3000 sind. Kann ich nicht statt mit +1 auch eine Liste verwenden, nach dem Motto erst 2000 dann 2002 dann 2137 und mir das aus einer Zeile/spalte auslesen lassen?
Sub Einschreiben()
' Einschreiben Makro
Dim Z1 As Integer
Dim Nummer As Integer
Dim Name As String
Nummer = "2242"
Name = Nummer
For Z1 = Cells(5000, 1).End(xlUp).Row To 1 Step -1
If Cells(Z1, 1) = Nummer Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets(Name).Cells(87, 1)
Z2 = Z2 + 1
End If
Next Z1
Z2 = 1
Nummer = Nummer + 1
Name = Nummer
For Z1 = Cells(100, 1).End(xlUp).Row To 1 Step -1
If Cells(Z1, 1) = Nummer Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets(Name).Cells(Z2, 1)
Z2 = Z2 + 1
End If
Next Z1
End Sub
Danke