Hallo Zusammen,
ich kenne mich nicht mit VBA's aus und habe jedoch im netz folgendes gefunden um meinen Wunsch teilweise zu erfüllen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B155:B500")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Cells(Target.Row, 1).ClearContents
Else:
Cells(Target.Row, 1).Value = Date
End If
End Sub
Ich habe eine Tabelle mit 19 Spalten (A bis S) in welcher von mir täglich daten eingepflegt oder aktualisiert werden.
In Spalte A soll das Datum eingetragen werden, wenn ich in Spalte B etwas reinschreibe. Dieses Datum sollte sich danach nicht mehr aktualisieren.
In Spalte R wird täglich der Status geändert. In Spalte S soll dementsprechend immer das Datum eingetragen werden, wenn eine Änderung in Spalte R erfolgt.
Folgendes habe ich bereits ausprobiert, jedoch Ohne erfolg...(erster Teil funktioniert noch, zweiter nicht) wo ist mein denkfehler? Wie gesagt, ich arbeite das erste mal mit VBA's
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B155:B500")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Cells(Target.Row, 1).ClearContents
Else:
Cells(Target.Row, 1).Value = Date
End If
If Intersect(Target, Range("R155:R500")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Cells(Target.Row, 19).ClearContents
Else:
Cells(Target.Row, 19).Value = Date
End If
End Sub
VIELEN DANK IM VORRAUS! |