Hallo Leute,
ich habe für die Eingabe von Daten eine UserForm gebastelt.
Die eingegebenen Daten sollen dann per Klick auf den ComandButton1 in die Worksheet Zeiterfassungsliste in der nächsten leeren Zeile ("lZeile") eingefügt werden. Das Klappt auch manchmal.
Leider nicht immer !!! Und zwar wenn mehrere Eingaben hintereinander gemacht werden, klappt es mit der nächsten leeren Zeile nicht. VBA schreibt dann die Eingaben alle in die selbe Zeile. Somit ist dann nur der letzte Eintrag sichtbar.
Woran liegt das ?
With Worksheets("Zeiterfassungsliste")
'Nächste freie Zeile ab Zeile 2 in Spalte A bestimmen
lZeile = Application.WorksheetFunction.Max(2, .Cells(5000, 2).End(xlUp).Row + 1)
.Cells(lZeile, 1).Value = Datum 'Spalte A
.Cells(lZeile, 2).Value = Mitarbeiter 'Spalte B
.Cells(lZeile, 3).Value = Personalnummer 'Spalte C
.Cells(lZeile, 4).Value = Projekt 'Spalte D
.Cells(lZeile, 5).Value = Tätigkeit 'Spalte E
.Cells(lZeile, 6).Value = Dauer 'Spalte F
.Cells(lZeile, 7).Value = Bereich 'Spalte G
.Cells(lZeile, 8).Value = Gruppe 'Spalte H
lZeile = lZeile + 1
End With
Gruß Christian