Erweiterung von einer Abfrage
25.05.2019 23:22:27
einer
ich habe folgendes Problem.
Ich frage per untenstehendem Intersect Befehl Zellen ab. Wie müsste unten stehender Code aussehen, damit ich z.B mit "1" in Zelle "Y5" das aktuelle Datum in Z5 eintrage und wenn ich "2" in "Y5" eintrage dann soll ein Text eingefügt werden in der Zelle " Z5"
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("z:z"), Range("5:100")) Is Nothing Then Exit Sub 'mehrfach _
abfrage innerhalb Z:Z Klammer möglich
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 wünsche allen ein schönes Restwochenende.
Gruß
Hartmut
Anzeige