ich habe eine UserForm "Urlaub" ich möchte gerne das sich die UserForm öffnet wenn ich im Bereich 5J bis GH14 eine Zelle anklicke. Kann mir jemand dabei helfen.
Vielen Dank im vorraus
Gruß Alex
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([G5:H14], Target) Is Nothing Then UserForm1.Show
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Me.Range("J5:GH14")
If Not Intersect(Target, rng) Is Nothing Then UserForm1.Show
End Sub