Makro auslösen bei Zelländerung
26.01.2007 09:06:27
Michael
Ich habe mir ein Makro zusammengebastelt, dass mir in meinem oft benutzten Formulardie Eingabe in der Datumszelle erleichtert, so dass ich nur noch z.B. 3101 statt 31.01.07 eingeben muss. Da ich das Formular mittels Makrobutton abschliesse, habe ich einfach diesen Code vornedran gehängt:
Dim datum2 As Long
datum2 = ActiveSheet.Cells(8, 2).Value
If datum2 < 101 Or datum2 > 3112 Then GoTo datumstimmt
mon = Right(datum2, 2)
If datum2 > 912 Then wota = Left(datum2, 2) Else wota = Left(datum2, 1)
ActiveSheet.Cells(8, 2).Value = Format(wota, "00") & "." & mon & "." & Year(Now)
datumstimmt:
Jetzt wäre mir aber lieber, wenn Excel dieses Makro sofort ausführen würde, wenn ich etwas in die Datumszelle schreibe. Ich habe mal ein Makro mit der Start-Voraussetzung Worksheet_selectionChange oder so ähnlich gesehen, leider komme ich hier mit Basteln aber nicht weiter.
Danke im Voraus
Michael