Könnt ihr mir sagen, wieso mein Makro nicht nach 3 zeilen aufhört und mit der MdgBox nachfragt, ob er aufhören soll?
Sub naechste_spalte()
Select Case Selection.Column
Case Is < 6 'wenn Spalte C-E, dabei ist 6 (F) die letzte Spalte die kein Wert hat und ab da soll der zurück
Selection.Offset(0, 1).Select
' Eine Spalte weiter rechts springen
Case 6 'wenn Spalte F
Selection.Offset(1, -3).Select
' Nach Spalte C in die nächsten Zeile springen
End Select
' Habe jetzt mal 5 Sekunden eingestellt, falls gewünscht bei
' TimeSerial(0, 0, 5) zu ändern
'das Makro soll nach 3 Zeilen wieder stoppen:
If Selection.Row Mod 3 = 0 And Selection.Column = 1 Then
If MsgBox("Soll weiter gemacht werden?", vbYesNo) = 6 Then
Application.OnTime Now + TimeSerial(0, 0, 5), "naechste_spalte"
End If
Else
Application.OnTime Now + TimeSerial(0, 0, 5), "naechste_spalte"
End If
End Sub
|