Funktion erweiter
30.03.2003 14:23:41
Vane
Folgende Funktion habe ich im einen Forum gefunden und für mich etwas geändert:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 10 Then Exit Sub
If UCase(Target.Value) = "R" Then
Cells(Target.Row, 5) = Date
End If
End Sub
Ich hätte gerne erweitern, aber das kann ich leider nicht.
Im Spalte 10 möchte ich eintragen R oder E
Bei eintragen von R ist die Datum im Spalte E (wie oben ist richtig)
Bei eintragen von E soll die Datum im Spalte B erscheinen.
Besten Dank für eine Antwort