|
Hallo,
ich hätte gerne Hilfe:
Ich möchte in die erste freie Zeile in Spalte A das aktuelle Datum schreiben, wenn in der Spalte F die letzte beschriebenen Zeile(Zelle) geändert wird.
Dabei soll das Makro immer laufen.
Hier mein Versuch.
Geht so nicht.
Private Sub Workbook_SheetChange(auffuellen)
'Makro soll immer ausgefuehrt werden.
Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1
'hier soll die letzte Zeile von der Spalte A ermittelt werden= lngLast
'If Target.Cells.Count > 1 Then Exit Sub'
If Intersect(Target, Range("A" & lngLast)) Is Nothing Then Exit Sub
'wenn in der Spalte F der Wert vor der letzten Zelle verändert wird, soll'
'in letzte Zeile geschrieben werden (In Spalte A)'
Range("A" & lngLast).Value = Date
End Sub
Vielen Dank
Schreinermeister
Günther Sedlmeier
|