Hallo zusammen,
ich habe mir eine UserForm erstellt, welche automatisch Stückzahlen in meine Tabelle (Januar J5 – Dezember U5) überträgt.
Nun habe ich folgendes Problem:
Es ist so, dass bei jeder neuen Eingabe immer eine Zeile weiter nach unten ausgefüllt wird.
In meiner Anwendung kann es jedoch sein, dass in verschiedenen Monaten unterschiedliche Stückzahlen innerhalb einer Zeile stehen können.
Gibt es einen Code, der bei einer neuen Eingabe (wenn die UserForm neu geöffnet wird) immer eine Zeile weiter nach unten ausfüllt
bzw. wenn die UserForm geöffnet ist und ich dort eine Eingabe verändere die gleiche Zeile ausfüllt?
Bisherig relevanter Code:
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Dim loletzte As Long
loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 1