Warum funktioniert Makro nicht mehr?
Frank
Bin ratlos! Bislang funzte folgender Code Problemlos. Öffne heute die Datei und es funzt nicht mehr. Weiß jemand Rat?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
Set RaBereich = Range("I:I, K:K")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then frmCalendar0.Show
Set RaBereich = Nothing
End Sub
Danke und Gruß Frank H.!!!
Anzeige