Office: Makros zuweisen

Hallo und moin moin zusammen!

Kann mir jemand verraten, ob und wie man einer Zelle ein Makro zuweisen kann? Also wenn ich die Zelle anklicke möge bitte das zugewiesene Makro ausgeführt werden.

Unter Zuhilfenahme der Steuerelemente konnte ich das bereits realisieren.
Aber dabei werden mir entweder die Steuerelemente zu groß, oder die Beschriftung ist "verschoben" (will sagen nicht lesbar). Meine Zellen sind nur 75 x 17 Pixel groß.

Nur für den Fall, dass das mit dem Makro einer Zelle zuweisen nicht hinhaut:
Könnte man evt. ein Steuerelement fest mit einer Zelle verbinden?
Wenn ja , wie?

Vorab schon einmal vielen Dank für Eure Hilfe.

 

Hallo!

Du kannst das mit einem SelectionChange-Ereignis erreichen:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
MsgBox "Die Zielzelle wurde ausgewählt."
End Sub

Hier wird beim Anklicken der Zelle D4 eine Messagebox gezeigt.
Der Code gehört ins Modul des entsprechenden Blatts.

 

Das habe ich (zu meiner Verwunderung) hin bekommen.
Danach habe ich den Code wie folgt geändert

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
'MsgBox "Die Zielzelle wurde ausgewählt."
'
'zur Markierung der markierten Zellen mit helltürkis = geliefert
    Selection.Interior.ColorIndex = 34
End Sub

Was dann passiert ist (fast) klar: Die Zelle D4 wird helltürkis. OK, ich hatte nicht werwähnt, dass ich in der Tabelle mehrere Zellen markieren und diese dann auf "Knopfdruck" (=Makro oder Funktion) eine vorbestimmte Farbe erhalten sollen - Entschuldigung.

Gibt es vielleicht noch einen anderen Ansatz? Ich erahne aber gerade die Antwort "NEIN" weil ich ja mit dem Klick auf die Zelle die zuvor getroffene Selektion wieder aufhebe - richtig?

 

Hallo!

Das ist korrekt!

Aber wenn es auch ein Rechtsklick sein darf:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Selection.Interior.ColorIndex = 34
End Sub

Zellen markieren > Rechtsklick > Türkis

 

Vielen vielen Dank mal wieder für Deine Hilfe !!!
Leider komme ich nun an den Steuerelementen doch nicht vorbei, weil ich sechs unterschiedliche Farben zu zu weisen habe.
Dennoch vielen Dank für den Tipp mit dem Rechtsklick.
Wer weiß, wann ich das gebrauchen kann

 

Du könntest sogar das Kontextmenü, welches sich bei Rechtsklick öffnet, mit den entsprechenden Farbbefehlen erweitern:

Code:

Sub Kontextmenü()
Dim Eintrag1 As CommandBarControl
Set Eintrag1 = Application.CommandBars("Cell").Controls.Add
With Eintrag1
.Caption = "Türkis einfärben" 'Dieser Text erscheint im Kontextmenü
.OnAction = "Türkis" 'Dies ist der Name des auszuführenden Makros
End With
End Sub

Wenn du diesen Code dann noch in ein Workbook_Open-Ereignis einbindest, steht er dir direkt nach dem Öffnen der Mappe zur Verfügung. Alternativ als Workbook_Activate oder Workbook_Sheet_Activate.
Er ist natürlich beliebig erweiterbar.
Der Code des Makros "Türkis" ist dann ein Einzeiler:

Code:

Sub Türkis()
Selection.Interior.ColorIndex = 34
End Sub