Hallo liebes Forum.
Ich hab momentan einen Code in der Tabelle1. Bei eingabe Spalte B gibt er mir in Spalte A das Datum aus.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, -1).ClearContents
Else:
Target.Offset(0, -1) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub
Ich benötige das selbe für die Spalte D und F.
Muss man da noch eine Schleife einbauen?
Bin etwas ratlos.
Danke im voraus. LG Alex
|