Makro ..x-mal Wiederholen
24.07.2022 17:33:30
Leon
Es kopiert die Zeile vor der aktiven Zeile in eine Hilfstabelle und fügt diese in die aktive Zeile ein, rückt eine Zeile tiefer und wird dort wieder aktiv.
Nun möchte ich eine Textbox davor mit Zahlen einarbeiten, wo der Zahlenwert der Textbox die Anzahl der Wiederholungen des Makros vorgibt.
Die TextBox hat bei Neustart der Userform immer die Zahl "1" .
Im Normalfall wird dann das Makro 1x ausgeführt. ''' was auch so gewollt ist.
Wird nun eine 4 eingetragen, soll das gesamte Makro 4 durchlaufen. '''was noch nicht geht
Wie könnte ich das erledigen? Eine Schleife- vieleicht auch mit Variablen?
.Kann jemand helfen?
Sub Zeilen_Wiederholt_eintragen()
'nun die Zeile davor nach Hilfstabelle Q4 kopiert
Sheets("Auswertung").Range("P5").Resize(1, 14).Value = _
Cells(ActiveCell.Row - 1, 1).Resize(1, 14).Value
'nun die Zeile Q2 aus Hilfstabelle nach aktiver Zeile kopiert
Sheets("Auswertung").Range("Q2:AA2").Copy Cells(ActiveCell.Row, 2)
Cells(ActiveCell.Row, 2) = Cells(ActiveCell.Row - 1, 2)
'nun die Zahl in Zeile "A"
Dim r As Long
r = ActiveCell.Row
If Range("A" & r) = "" Then
Range("A" & r).Value = Range("A" & r - 1).Value + 1
Range("A" & r - 1 & ":L" & r - 1).Copy
Range("A" & r).PasteSpecial xlPasteFormats
End If
'nun in aktive Zelle eins nach unten springen und aktiv werden
ActiveCell.Offset(1).Select
End Sub
'' Textbox0011 'ist die Textbox der Anzahl
Grüße Leon