Makro funtioniert nach Rechtschreibprüfung nicht
Ben
ich habe ein wahrscheinlich triviales Problem, dass mich aber an den Rande des Wahnsinns treibt.
Folgendes Makro benutze ich um komfortabel Datumswerte in bestimmte Zellen einzufügen und gleichzeitig ein einheitliches Format sicherzustellen.
Das Problem:
Nach dem Ausführen der Rechtschreibprüfung auf dem entsprechenden Excelsheet funktioniert das Makro nicht mehr.
Kann mir einer sagen woran das liegt?
vielen Dank schon einmal im Voraus!
************************
Private Sub Calendar1_click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Column = 31 Or Target.Column = 32 Then
'If Target.Column >= 24 And Target.Column
If Target.Column = 23 Or Target.Column >= 25 And Target.Column
_
= 31 Then
Calendar1.Left = Target.Left
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
************************