ich würde gerne ein makro beliebig wiederholen und die anzahl der wiederholungen über einen zellwert steuern.
Habe aber keine ahnung wie ich das machen soll.
kann mir jemand helfen
danke schon im vorraus
louis
Sub test()
'Zahl steht in Zelle A1
Dim i As Integer
For i = 1 To Cells(1, 1).Value
MsgBox i 'oder hier Dein Makro
Next i
End Sub
Private Sub CommandButton1_Click()
Dim Check, Counter
Test = True: Zähler = 0 ' Variablen initialisieren.
Do ' Äußere Schleife.
Do While Zähler < 20
Range("A1:B1").Select
Selection.Copy
x = 2
SucheLeer:
If Cells(x, 1).Value = "" Then
Range(Cells(x, 1), Cells(x, 1)).Select
ActiveSheet.Paste
Else
x = x + 1
GoTo SucheLeer
End If ' Innere Schleife.
Zähler = Zähler + 1 ' Zähler hochzählen.
If Zähler = Cells(3, 3).Value Then ' Wenn Bedingung = True,
Test = False ' Attributwert auf False setzen.
Exit Do ' Innere Schleife verlassen.
End If
Loop
Loop Until Test = False
End Sub