Hallo Leute,
mit Eurer Hilfe (cu Micha) ist es gelungen in einem Makro
einen Zellbereich (A55:H64) auflaufend in ein Blatt "Ereignisprotokoll"
zu kopieren.Das funktioniert mit
Dim i As Integer
For i = 55 To 64
If Cells(i, 1)<> "" Then
With Sheets("Ereignisprotokoll")
Dim r As Integer
r = .Cells(Row.Count, 1).End(xlUp).Row +1
Range(Cells(i, 1),Cells(i, 9).Copy Destination:=.Cells(r, 1)
End With
End If
Next i
Jetzt suche ich eine Möglichkeit, die für jeden kopierten Eintrag
in die Seite "Ereignisprotokoll" das aktuelle Datum und die Uhzeit
mit eingetragen werden.
Ziel ist,an diesen Eintrag zu erkennen, wann was stattgefunden und damit
aufgschrieben wurde.
Rainer