Supportnet / Forum / Tabellenkalkulation
Flexsieble Schleife mit VBA
Frage
Hallo Zusammen,
ich habe in Excel ein Makro erzeugt in dem eine Schleife enthalten ist.
Nun würde ich gerne die Anzahl der Durchläufe variieren.
Sprich: Ich würde gerne in dem Ausdruck:
For inAnzahl = 1 to 3
die zweite Zahl durch eine Abfrage bestimmen.
Kann man das mit VBA lösen? Und wenn ja wie?
Vielen Dank für eure Hilfe
Liebe Grüße
Trudi
Antwort 1 von Hajo_Zi
Hallo Trudi,
Option Explicit
Sub Trudi()
Dim LoAnzahl As Long
Dim InAnzahl As Integer
LoAnzahl = Application.InputBox("Bitte Anzhal eingeben", "Druckbereich", Type:=1)
If LoAnzahl < 1 Then Exit Sub
For InAnzahl = 1 To LoAnzahl
MsgBox InAnzahl
Next
End Sub
Gruß Hajo
Option Explicit
Sub Trudi()
Dim LoAnzahl As Long
Dim InAnzahl As Integer
LoAnzahl = Application.InputBox("Bitte Anzhal eingeben", "Druckbereich", Type:=1)
If LoAnzahl < 1 Then Exit Sub
For InAnzahl = 1 To LoAnzahl
MsgBox InAnzahl
Next
End Sub
Gruß Hajo
Antwort 2 von Trudi
Super Hajo
DANKE
DANKE