Makro in Range ausführen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro in Range ausführen
von: Raphi
Geschrieben am: 26.08.2015 09:58:44

Hi Excelhelden,
ich möchte mein Makro in einem Tabellenblatt nur in einer bestimmten Range starten. Ausserhalb der Range braucht das Makro nicht verwendet werden.
Kann mir jemand sagen wo der Fehler in meinem Code ist ?
Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$F$15:$G$95" Then Exit Sub
Call OpenCalendar
End Sub


Vielen Dank
Raphi

Bild

Betrifft: AW: mit Intersect
von: hary
Geschrieben am: 26.08.2015 10:11:03
Moin
Hier fuer beide Faelle. Da ich nicht wirklich weiss was du brauchst.
<> "$F$15:$G$95" heisst fast(es fehlt Range) ausserhalb.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("F15:G95")) Is Nothing Then 'startet ausserhalb
   OpenCalendar
 End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("F15:G95")) Is Nothing Then 'startet innerhalb
   OpenCalendar
 End If
End Sub

gruss hary

Bild

Betrifft: AW: mit Intersect
von: Raphi
Geschrieben am: 26.08.2015 11:56:17
Funktioniert wunderbar ;)
Vielen Dank Hary

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro in Range ausführen"