Schleife in einer Schleife
31.03.2013 17:59:49
Gerald_84
hab folgendes Makro erstellt welches mir von einem Bank-Auszug bestimmte Informationen liefert die ich brauche:
Columns("B:B").Select
Cells.Find(What:="RO53CITI0000000724xxxxxx", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Offset(-1, 0).Select
Selection.Copy Destination:=Selection.Offset(6, -1)
Selection.Offset(7, 0).Select
Do
ActiveCell.Offset(-1, -1).Copy Destination:=ActiveCell.Offset(0, -1)
ActiveCell.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = "CITIBANK"
Das Makro funktioniert soweit super, allerdings funktioniert die Schleife bis jetzt nur für ein Konto :/ Da ich aber ungefähr 150 Konten einspielen muss und das Makro zu groß wird wenn ich alle extra machen täte, bräuchte ich jetzt ne Formel um quasi eine Schleife in dieser Schleife zu machen...
Stell mir das ungefähr so vor:
1. Konto dann Schleife bis Schleife beendet dann nächstes Konto etc.
Die Konten würde ich dann in einem extra Tabellenblatt hinterlegen und das Makro würde solange nach neuen Konten suchen bis es auf "Ende" kommt.
Hat jemand von euch eine Idee wie ich das machen könnte?
Vielen Dank schon mal für eure Hilfe!!
lg Gerald