habe ein Makro aufgezeichnet, bei welchem in Spalte F nach einer nicht leeren Zelle gesucht werden soll. Wird eine nicht leere Zelle gefunden, sollen bestimmt Schritte ausgeführt werden. Danach soll in Spalte F nach dem nächsten nichtleeren Feld gesucht werden, die gleichen Schritte ausgeführt werden.... und immer so weiter, so lange, bis in Spalte F nur noch leere Felder übrig sind. Dann soll das Ganze beendet werden.
Ich habe gegoogelt und weiss jetzt, dass man das mit einer Schleife lösen könnte. Also quasi If "Leere Zelle", dann "Diverse Schritte" sonst "Stop". Das habe ich auch selbst schon probiert, aber leider ohne Erfolg. Kann mir jemand helfen?
Hier mein Makro:
Columns("F:F").Select
Selection.Find(What:="*").Activate
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
ActiveSheet.Name = Range("F2").Value
Range("A1").Select
Sheets("Start").Select
Range("M7").Select
Application.CutCopyMode = False
Selection.Copy
Rows("2:2").Select
Application.CutCopyMode = False
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Schon mal danke für jegliche Hilfe.
Viele Grüße Nicole