wenn ich folgenden code ausführe kommt immer der Ausdruck Fehler beim Kompilieren.
Fehlt nicht hinter 'Is nothing then' noch ein Befehl?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A2:A7")
If Not Intersect(Target, Bereich) Is Nothing Then ' Zelle ist im Bereich
Application.Dialogs(xlDialogOpen).Show "\users\document\zusatzarbeiten\"
End If
End Sub
Wie immer ein großes DANKE für eure Hilfe.
Gruß
Hartmut