Sub Schaltfläche1_KlickenSieAuf()
TeilMakro
End Sub
Sub TeilMakro()
Static GoToSprung As Integer
GoToSprung = GoToSprung + 1
Select Case GoToSprung
Case 2: GoTo Teil_2
Case 3: GoTo Teil_3
Case 4: GoTo Teil_4
End Select
MsgBox "erster Teil"
Exit Sub
'_______________________________
Teil_2:
MsgBox "zweiter Teile"
Exit Sub
'_______________________________
Teil_3:
MsgBox "dritter Teile"
Exit Sub
'_______________________________
Teil_4:
MsgBox "vierter Teile"
'_______________________________
GoToSprung = 0
End Sub
Sub Test()
Static LaufNummer as long
If Laufnummer = 0 then
Hier erste Teil des Makros
LaufNummer = LaufNummer +1
Else
Hier zweiter Teil des Makros
End if
End Sub