Zellen als Schaltfläche programmieren

[Steffl]

Hallo Jonas,

das läuft aber in einen Fehler da Cancel nicht deklariert ist.

@Calfati

ist es mit einem Rechtsklick vielleicht auch zuviel Aufwand? :17:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Address = "$O$2" Then
       Cancel = True
       Call interne_Transporte
   End If
End Sub

[Rabe]

Hi Klaus,

Ich habe da ein - sagen wir mal - sehr sensibles Makro, welches tunlichst nicht versehentlich aktiviert werden sollte, auch nicht per Doppelklick...

dann rufe dieses Makro nicht per Zellenklick auf. Sondern starte es manuell nur aus dem Explorer, dann weiß niemand anders davon.

[Calafati]

Guten Morgen miteinander,

nochmal vielen Dank für die guten Lösungen!

Es funktioniert nun absolut zufriedenstellend.
Schöne Ostertage
sagt
Klaus

[Kuwer]

Hallo Klaus,

nimm dafür die Select-Case-Anweisung. Damit kannst Du recht einfach beliebige Zellen mit entsprechenden Makroaufrufen verknüpfen.
Fall sich diese Makros in einem Tabellenmodul  befinden, verschiebe sie in ein allgemeines Modul, welches Du vorher anlegen musst (Einfügen - Modul). Falls die Makros mit Private beginnen, entferne diese Private.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 Select Case Target.Address(0, 0)
   Case "B2"
     Call DeinMakro1
   Case "O2"
     Call EinWeiteresMakro
   Case "F6"
     Call NochEinMakro
   Case Else
     Cancel = False
 End Select
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß Uwe