Message Box bei Klick in Zelle

Forumthread: Message Box bei Klick in Zelle

Nick

Hallo liebes Forum,
ich kämpfe gerade mit einer Message Box und hoffe, Ihr könnt mir weiterhelfen:
Ich suche nach einer Lösung für folgendes Problem:
Klickt man in eine Zelle in Spalte K, soll der entsprechende Inhalt aus Spalte Q in einer Message Box angezeigt werden.
Ist die entsprechende Zelle in Spalte Q leer, soll nichts geschehen.
Ich habe bislang folgenden Code, weiss jedoch nicht, wie ich das mit dem Klick auf die Zelle und dem variablen Inhalt umsetzen soll:

Sub ZusatzInfo()
Dim strMldg As String
strMldg = "Worksheets(3).Range("Q1")
MsgBox strMldg
End Sub

Freue mich über jeden Tipp !
VG,
Nick

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Message Box bei Klick in Zelle

Sheldon
AW: Message Box bei Klick in Zelle

Nick

AW: Message Box bei Klick in Zelle

16.04.2012 14:29:41

Sheldon

Hallo Nick,
das gehört in den Code der Tabelle (z. B. Tabelle1):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 Then
If Cells(Target.Row, 17).Value  "" Then
MsgBox Cells(Target.Row, 17).Value
End If
End If
End Sub

Gruß
Sheldon

AW: Message Box bei Klick in Zelle

16.04.2012 14:57:53

Nick

Hallo Sheldon,
das funktioniert absolut perfekt - vielen Dank dafür !! :-)
VG und einen schönen Nachmittag noch,
Nick

Infobox / Tutorial

Message Box bei Klick in Zelle in Excel erstellen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine Excel Message Box zu erstellen, die beim Klick auf eine Zelle in Spalte K den Inhalt der entsprechenden Zelle in Spalte Q anzeigt, folge diesen Schritten:

Öffne dein Excel-Dokument und wechsle zu dem Arbeitsblatt, in dem du die Funktion implementieren möchtest.
Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Finde das richtige Arbeitsblatt: Doppelklicke auf die Tabelle (z.B. Tabelle1), in der du den Code einfügen möchtest.

Füge den folgenden Code ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 11 Then
       If Cells(Target.Row, 17).Value <> "" Then
           MsgBox Cells(Target.Row, 17).Value
       End If
   End If
End Sub

Schließe den VBA-Editor und gehe zurück zu deinem Excel-Arbeitsblatt.
Teste die Funktion: Klicke auf eine Zelle in Spalte K. Wenn die entsprechende Zelle in Spalte Q nicht leer ist, sollte eine Message Box mit dem Inhalt erscheinen.

Häufige Fehler und Lösungen

Fehler: Es erscheint keine Message Box.
- Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt eingefügt wurde und dass die Zelle in Spalte Q nicht leer ist.
Fehler: Der Code wird nicht ausgeführt.
- Lösung: Überprüfe, ob die Makros in deiner Excel-Anwendung aktiviert sind.

Alternative Methoden

Wenn du eine Excel Infobox anstelle einer Message Box verwenden möchtest, kannst du die UserForm-Funktion nutzen:

Erstelle eine UserForm im VBA-Editor.
Füge Steuerelemente hinzu, um die Informationen anzuzeigen.
Rufe die UserForm im Auswahlwechsel-Ereignis auf.

Das ist eine flexiblere Methode, falls du mehr Informationen oder benutzerdefinierte Eingaben anzeigen möchtest.

Praktische Beispiele

Hier ist ein einfaches Beispiel:

Wenn du in Zelle K5 klickst und Zelle Q5 den Text "Hallo Welt" enthält, wird beim Klick auf K5 eine Message Box mit "Hallo Welt" angezeigt.

Das hilft dir, den Inhalt von Zellen dynamisch anzuzeigen und kann in vielen Situationen nützlich sein.

Tipps für Profis

Verwende Kommentare im Code, um die Logik zu erklären.
Teste den Code in einer sicheren Umgebung, um unerwartete Ergebnisse in wichtigen Dokumenten zu vermeiden.
Optimiere den Code weiter, indem du zusätzliche Bedingungen hinzufügst, um die Benutzererfahrung zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um verschiedene Spalten zu verwenden?
Du kannst die Zahlen in Target.Column und Cells(Target.Row, 17) ändern, um andere Spalten zu referenzieren.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)