Problem mit Formel

[lewotheory]

Hallo liebe Excel-Experten,

sitze gerade auf der Arbeit und verzweifle an dem Problem, dass ich mit einer Formel habe, die wie folgt lautet:

Sub Werte()

    Dim strInbox As String
    strInbox = Application.InputBox("Liefermenge eingeben")
    Worksheets("Tabelle1").Range("A" & Range("A100").End(xlUp).Row + 1).Value = strInbox
    
End Sub

Ich möchte durch ein Makro in Tabelle 2 durch diese Formel einen Wert abfragen und diesen dann in "Tabelle1" in Spalte A eintragen. Jedes erneute betätigen
des Makros soll den nächsten Wert in die nächste freie Zeile in Spalte A eintragen. Blöderweise wird der Wert immer nur in die zweite Zeile der Spalte übernommen
und bei jedem neuen Wert einfach nur überschrieben  

 Ich hoffe ihr versteht meine Problematik und ich bin für jede Hilfe sehr dankbar.  

Mit freundlichen Grüßen

Leonard

[RPP63]

Hi!
Dies hier:
Range("A100").End(xlUp).Row + 1
bezieht aus die aktive Tabelle!
Du musst korrekt referenzieren.
Ich habe es noch ein wenig umgeschrieben:

Sub Werte()
    Dim strInbox As String
    strInbox = Application.InputBox("Liefermenge eingeben")
    With Worksheets("Tabelle1")
      .Range("A100").End(xlUp).Offset(1, 0).Value = strInbox
    End With
End Sub

Gruß Ralf

[lewotheory]

Super! Hat alles geklappt!

Vielen Dank Ralf