Hallo,
füge bei der Dimensionierung noch ein:
[code]Dim lngZeile As Long[/code]
Dann ergänze dein Makro Sub FSK_Dateneingabe() nach der Zeile
[code] Range("d4").Value = Time ' Fügt die aktuelle Zeit ein[/code]
wie folgt:
[code]With Worksheets("Logbuch")
lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZeile, 1) = strVerant_Artikelnummer 'Artikelnummer
.Cells(lngZeile, 2) = Date 'Kontrolldatum
.Cells(lngZeile, 3) = strVerant_Schicht 'Schicht
.Cells(lngZeile, 6) = strVerant_Name 'Name
.Cells(lngZeile, 7) = strVerant_Personal 'Personalnummer
End With
End Sub[/code]
Da ich keine Ahnung habe, was du bei Zeit Start und Zeit Ende eintragen willst, habe ich das mal weggelassen. Aber das kannst du ja entsprechend ergänzen.
Gruß
M.O.