Hinzufügen von Daten in der nächsten verfügbaren Zeile

Question

Dieses Makro fügt Daten in Zelle A10 hinzu. Jetzt werden die Daten jedes Mal überschrieben, wenn ich sie erneut starte. Wie kann ich 1 cel unten hinzufügen?

Sub Invoer() 


Dim Debiteurnummer As Integer 
Dim Aantalpallets As Integer 
Dim Totaalgewicht As Integer 

Debiteurnummer = InputBox("Debiteurnummer invoeren") 
Aantalpallets = InputBox("Aantal Pallets?") 
Totaalgewicht = InputBox("Totaal Gewicht?") 

Range("A10").Value = Debiteurnummer 
Range("A10").Offset(0, 2) = Aantalpallets 
Range("A10").Offset(0, 3) = Totaalgewicht 




End Sub 

Answer 1

eine dynamische Suche hinzufügen für LastRow:

Sub Invoer() 

Dim Debiteurnummer As Integer 
Dim Aantalpallets As Integer 
Dim Totaalgewicht As Integer 
Dim LastRow As Long 

Debiteurnummer = InputBox("Debiteurnummer invoeren") 
Aantalpallets = InputBox("Aantal Pallets?") 
Totaalgewicht = InputBox("Totaal Gewicht?") 

LastRow = Cells(Rows.count, "A").End(xlUp).row 

Range("A" & LastRow + 1).Value = Debiteurnummer 
Range("A" & LastRow + 1).Offset(0, 2) = Aantalpallets 
Range("A" & LastRow + 1).Offset(0, 3) = Totaalgewicht 

End Sub