Office: Beim Click auf Zelle MsgBox öffnen

ulli2 · 31. Oktober 2010

Moin,

bitte um Hilfe. Ich möchte beim Click auf Zelle O3 eine MsgBox öffnen.
Wie lautet der Code dazu.
(Hinfallen ist keine Schande, aber liegen bleiben)

Danke

:)

jinx · 1. November 2010

Moin Ulli,

das Worksheet_SelectionChange-Ereignis hinter der Tabelle nutzen:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("O3")) Is Nothing Then
MsgBox "Hier ist O3"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rechtsklick:
Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("O3")) Is Nothing Then
MsgBox "Hier ist O3"
End If
Cancel = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doppelklick:
Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("O3")) Is Nothing Then
MsgBox "Hier ist O3"
End If
Cancel = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ulli2 · 1. November 2010

Dank für Deine wie immer schnelle Hilfe.

Office: Beim Click auf Zelle MsgBox öffnen

Beim Click auf Zelle MsgBox öffnen

Beim Click auf Zelle MsgBox öffnen

Beim Click auf Zelle MsgBox öffnen - Similar Threads - Click Zelle MsgBox

Markieren einer kompletten Textzeile durch einfaches Anklicken möglich?

Mit Click auf Zelle Userform öffnen

neuer datensatz in unterformular per button click mit festem wert einfügen

Verwenden Ihres digitalen Stifts als Clicker bei Bildschirmpräsentationen

Externer Anrufer ohne Login fragt nach Meeting - Click to be called

Office 2016 Click-2-Run

Zelle einfärben bei click