2 x Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub                   ' mehr als eine Zelle ausgewählt
Set RaBereich = Range("M13")     ' Bereich der Wirksamkeit
If Not Intersect(Target, RaBereich) Is Nothing Then FRM_Kalender.Show
Set RaBereich = Nothing                             ' Variable löschen
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C3:C200")) Is Nothing Or Not Intersect(Target, ActiveSheet.  _
_
Range("H3:H200")) Is Nothing Then
UserForm1.Show
End If
End Sub