Guten Tag zusammen,
ich habe eine Frage zu einer loop-Funktion. Ich habe eine Liste mit pro Zeile 3 Werten, die nacheinander in andere Zellen zur Berechnung eingefügt werden sollen. Dies wird mit einer loop-Funktion automatisiert. Die jeweils nächsten Zellen werden mit dem "ActiveCell.Offset"-Befehl ausgewählt.
Ich würde gerne die Loop-Schleife mit einer Message-Box beenden, wenn sich in den zu kopierenden Zellen kein Inhalt mehr befindet.
Ich glaub, das ist nicht so schwer, nur komm ich nicht drauf ;-)
Vielen Dank schon mal!
Hier das, was ich bisher hab. Funktioniert - nur muss ich die Schleife mit ESC beenden ;-(
Do
ActiveCell.Offset(1, -4).Range("A1:C1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Range("B26:G26").Select
Selection.Copy
Sheets("Lab_CMYK").Select
ActiveCell.Offset(0, 4).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Loop