habe100

Question

Hallo an die hilfreichen Geister im Hintergrund
EXCEL 2003
ich möchte ein makro x nur dann starten können wenn
die aktuelle Zelle bzw das gerade markierte Feld
im Bereich A1 bis B10 ist.

vorab besten Dank

Answer 1

Hallo Habe100,
vielleicht so:

Option Explicit
Sub Zelle()
Dim Bereich As Range
Set Bereich = Range("A1:B10")
If Intersect(ActiveCell, Bereich) Is Nothing Then
MsgBox "Tabelle1 Zelle A1:B10 auswählen"
Exit Sub
Else
'Dein Makro X
End If
End Sub

Gruß
fedjo

Answer 2

Hi,

malSchauen, ob folgender CodeSchnippsel Deinen Vorstellungen entspricht:

Sub NurA1_B10()
If Not Intersect(ActiveCell, Range("A1:B10")) Is Nothing Then
MsgBox "läuft" 'BeispielCode (!Bitte auskommentieren!)
'Hier dann Dein Code
End If
End Sub

Starten kannst Du dieses Sub/Makro zwar immer, die MSG-Box erscheint aber nur, wenn die aktive Zelle im Bereich "A1:B10" liegt.

bye
malSchauen

Answer 3

Jaaaa, wunderbar hat funktioniert

besten Dank !!!!

Answer 4

Sorry , bei beiden Vorschlägen besten Dank