Hallo zusammen,
ich bin im VBA-Code ein absoluter Neuling. Ich möchte, dass beim Anklicken bestimmter Felder das aktuelle Datum eingetragen wird.
Mit etwas Google-Hilfe habe ich es hingekriegt, dass ich für ein bestimmtes Feld das richtige Ergebnis bekomme. Ich kriege es aber nicht hin, dieses Skript für mehrere Felder zu definieren.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("H12").Address Then
Select Case .Value
Case ""
.Value = Date
.NumberFormat = "mm/dd/yy"
Case Else
.Value = Date
.NumberFormat = "mm/dd/yy"
End Select
End If
End With
Application.EnableEvents = True
End Sub
Die offensichtliche Lösung, "H12" einfach durch "H12:L12" zu ersetzen, hat mich nicht weitergebracht. Wo könnte ich ansetzen?
Viele Grüße
|