Event-ProzedurHallo Excel-Gemeinde

Hallo Excel-Gemeinde,

mein Problem stellt für Euch mit Sicherheit keins dar.
Ich habe im Forum einige ähnliche Sachverhalte gefunden, leider ist es mir aber nicht gelungen,
etwas davon auf meine Bedürfnisse anzuwenden.

Ich habe in meiner Tabelle einen Zellbereich Range ("C10:H15").
Ich möchte, dass jeweils beim Anklicken einer der darin enthaltenen 36 Zellen eins von 36 Makros startet.

Über folgenden Ansatz bin ich noch nicht hinausgekommen :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile, Spalte
Dim KlickZell
Zeile = Target.Row
Spalte = Target.Column
If Spalte 3 Or Spalte > 8 Then Exit Sub
If Zeile 10 Or Zeile > 15 Then Exit Sub

Ich wäre sehr dankbar, wenn mir jemand einen Anschub gibt, damit ich den Code fertig schreiben kann.

Im Voraus schon sage ich danke und grüße die Community.

PeterF

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C10:H15")) Is Nothing Then Cancel = True Application.Run "Makro_" & Target.Address(0, 0) End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Makro1, Makro2, ... bis Makro36 jeweils von links nach rechts (zeilenorientiert) If Not Intersect(Range("C10:H15"), Target) Is Nothing Then Cancel = True If Cancel Then Application.Run "Makro" & (Target.Row - 9) * (Target.Column - 2) End Sub

Hallo Gerd, hallo Daniel !

Danke für eure Vorschläge.

Ich habe mal den Code von Gerd probiert, weil der für mich etwas weniger schwer nachvollziehbar zu sein schien.
Dennoch hat er noch nicht funktioniert. Wahrscheinlich habe ich noch was übersehen.

So sieht das aus, was ich draus gemacht habe :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Makro1, Makro2, ... bis Makro36 jeweils von links nach rechts (zeilenorientiert) ZelleC10 , ZelleD10, ZelleE10, ZelleF10, ZelleG10, ZelleH10, _ ZelleC11, ZelleD11, ZelleE11, ZelleF11, ZelleG11, ZelleH11, _ ZelleC12, ZelleD12, ZelleE12, ZelleF12, ZelleG12, ZelleH12, _ ZelleC13, ZelleD13, ZelleE13, ZelleF13, ZelleG13, ZelleH13, _ ZelleC14, ZelleD14, ZelleE14, ZelleF14, ZelleG14, ZelleH14, _ ZelleC15, ZelleD15, ZelleE15, ZelleF15, ZelleG15, ZelleH15 If Not Intersect(Range("C10:H15"), Target) Is Nothing Then Cancel = True If Cancel Then Application.Run "Zelle" & (Target.Row - 9) * (Target.Column - 2) End Sub

Könnt ihr mir noch mal auf die Sprünge helfen ?
Und nochmals danke !

mfg
PeterF

'Ins Tabellenblattmodul Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Makro1, Makro2, ... bis Makro36 jeweils von links nach rechts (zeilenorientiert) doppelklicken If Not Intersect(Range("C10:H15"), Target) Is Nothing Then Cancel = True If Cancel Then Application.Run "Makro" & (Target.Row Mod 10) * 6 + (Target.Column - 2) End Sub 'Makro1 bis Makro 36 in ein allgemeines Modul, z.B Modul1 Sub Makro1() MsgBox "C10" End Sub Sub Makro22() MsgBox "F13" End Sub Sub Makro36() MsgBox "H15" End Sub

Beliebteste Forumthreads (12 Monate)

Event-ProzedurHallo Excel-Gemeinde

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread