letzte Zahl 500x hochzählen

Question

Hallo zusammen,

ich habe eine Spalte A wo in der ersten freien Zeile der Wert aus einer Textbox/Userform beim schließen der UserForm geschrieben wird.

Private Sub Label4_Click()

    Unload A01_PLOMBE
    
    With Worksheets("PLOMBEN")
    
        Dim letztezeile As Integer
        letztezeile = .Cells(1048576, 1).End(xlUp).Row + 1
        
        .Range("A" & letztezeile).Value = TextBox1.Value
        
    End With
    
End Sub

Die Plombe hat jetzt z.B. folgendes Format

1. 439316036501 - Wert aus Textbox

2. 439316036502

usw. bis

500. 43931603700

es muss also 499 x wiederholt werden ausgehend von der Zahl welche aus der Textbox in die Zelle eingetragen wird.

Bei:

.Range("A" & letztezeile).Value = TextBox1.Value +1

müsste ich ziemlich oft klicken :-)

Hat jemand einen Tipp für mich?

Danke

energun222

Answer 1

Guten Morgen

wenn ich es richtig verstanden habe sollte das mit einer For Schleife funktionieren
Dim i As Integer

For i = 0 to 499
    .Range("A" & letztezeile +i ) .Value = TextBox1.Value + i
Next

Answer 2

Hallo =LET(myname;"Anonym";myname)

vielen Dank für deine Hilfe.

Es hat auf Anhieb funktioniert und ich hab gleich was neues gelernt wie von so vielen hier. :-)

Gruß

energun222