Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelladresse per msgbox ausgeben

Forumthread: Zelladresse per msgbox ausgeben

Zelladresse per msgbox ausgeben
29.07.2018 12:54:09
Marcel
Hallo zusammen
Ich stehe auf dem Schlauch bei einem eigentlich völlig banalen Problem. Folgendes möchte ich erreichen: Bei Doppelklick auf eine Zelle soll die Zellen- sowie Spaltennummer per MsgBox ausgegeben werden. Das soll mir die Zelladressierung bei Cells(…,...) erleichtern.
Das Makro kann manuell aufegrufen werden und gibt die richtigen Werte aus. Doch das mit dem Doppelklick funktioniert nicht.
Könnt ihr mir da weiterhelfen?
Danke im Voraus!
Marcel
In Tabelle 1:

Sub worksheet_beforeboubleclick(target As Range, Cancel As Boolean)
With target
Call NummernErmitteln
End With
Cancel = True
End Sub

Im Modul 1:

Sub NummernErmitteln()
Dim z As Integer, s As Integer
z = ActiveCell.Row()
s = ActiveCell.Column()
MsgBox z & "," & s
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelladresse per msgbox ausgeben
29.07.2018 13:01:54
Nepumuk
Hallo Marcel,
falsch geschrieben. So ist's richtig:
Worksheet_BeforeDoubleClick
Gruß
Nepumuk
AW: Zelladresse per msgbox ausgeben
29.07.2018 13:19:46
Günther
Moin,
so funktioniert es auf jeden Fall:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call NummernErmitteln(Target.Address)
Cancel = True
End Sub
'Gerne auch im getrennten Modul
Sub NummernErmitteln(Zieladresse As String)
Dim z As Integer, s As Integer
z = Range(Zieladresse).Row
s = Range(Zieladresse).Column
MsgBox z & "," & s
End Sub
Gruß
Günther
Anzeige
AW: Zelladresse per msgbox ausgeben
29.07.2018 13:22:09
Marcel
Hallo Nepumuk
Vielen Dank für den Hinweis! Ist Korrigiert. Leider kommt jetzt die Fehlermeldung: Deklaration der Prozedur entspricht nicht der Beschreibung eines Erreignisses mit demselben Namen
Wie muss ich das verstehen?
AW: Zelladresse per msgbox ausgeben
29.07.2018 13:47:27
Nepumuk
Hallo Marcel,
so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Call NummernErmitteln
    Cancel = True
End Sub

Public Sub NummernErmitteln()
    MsgBox ActiveCell.Row & "," & ActiveCell.Column
End Sub

Gruß
Nepumuk
Anzeige
Ereignismakros …
29.07.2018 13:12:17
RPP63
… sollte man nicht manuell aufschreiben, sondern sich der Dropdowns im Editor bedienen:
https://www.online-excel.de/excel/singsel_vba.php?f=160
Denn dafür sind die da ;-)
Gruß Ralf
;
Anzeige
Anzeige

Infobox / Tutorial

Zelladresse per MsgBox ausgeben in Excel VBA


Schritt-für-Schritt-Anleitung

Um die Zelladresse per MsgBox auszugeben, musst Du ein VBA-Makro erstellen, das bei einem Doppelklick auf eine Zelle aktiviert wird. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Doppelklicke auf das Arbeitsblatt, in dem Du das Makro verwenden möchtest (z.B. "Tabelle1").

  3. Füge den folgenden Code in das Arbeitsblatt-Modul ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       Call NummernErmitteln(Target.Address)
       Cancel = True
    End Sub
  4. Erstelle ein neues Modul, indem Du im Menü auf Einfügen > Modul klickst.

  5. Füge diesen Code in das Modul ein:

    Public Sub NummernErmitteln(Zieladresse As String)
       Dim z As Integer, s As Integer
       z = Range(Zieladresse).Row
       s = Range(Zieladresse).Column
       MsgBox z & "," & s
    End Sub
  6. Schließe den VBA-Editor und teste das Makro, indem Du doppelt auf eine Zelle klickst.


Häufige Fehler und Lösungen

  • Fehlermeldung: "Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses"
    Stelle sicher, dass die Sub-Prozedur für das Doppelklick-Ereignis korrekt geschrieben ist: Private Sub Worksheet_BeforeDoubleClick(...).

  • MsgBox zeigt keine richtigen Werte an
    Überprüfe, ob Du die MsgBox korrekt aufrufst und dass die Zieladresse als Parameter übergeben wird.


Alternative Methoden

Wenn Du eine andere Methode zur Ausgabe der Zelladresse bevorzugst, kannst Du auch eine Schaltfläche verwenden:

  1. Füge eine Schaltfläche über Entwicklertools > Einfügen > Schaltfläche (Formularsteuerelement) ein.
  2. Weise der Schaltfläche das folgende Makro zu:

    Sub GetCellAddress()
       Dim z As Integer, s As Integer
       z = ActiveCell.Row
       s = ActiveCell.Column
       MsgBox z & "," & s
    End Sub

Somit kannst Du die Zelladresse per Klick auf die Schaltfläche ausgeben.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die MsgBox verwenden kannst, um die Zelladresse auszugeben:

  • Einfaches Beispiel: Du klickst auf eine Zelle und erhältst in der MsgBox die Zeilen- und Spaltennummer, z.B. "3,2" für Zelle B3.

  • Erweiterte Nutzung: Du kannst die MsgBox auch anpassen, um zusätzliche Informationen anzuzeigen, z.B. den Inhalt der Zelle:

    MsgBox "Zelle: " & Zieladresse & vbCrLf & "Inhalt: " & Range(Zieladresse).Value

Tipps für Profis

  • Nutze Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.

  • Experimentiere mit verschiedenen MsgBox-Typen, um unterschiedliche Schaltflächen und Icons anzuzeigen. Zum Beispiel:

    MsgBox "Zelle: " & Zieladresse, vbInformation, "Zellinfo"
  • Verwende die Worksheet_Change-Ereignisprozedur, um die MsgBox auch bei Änderungen in der Zelle anzuzeigen.


FAQ: Häufige Fragen

1. Wie kann ich die MsgBox anpassen?
Du kannst die MsgBox anpassen, indem Du verschiedene Parameter wie vbInformation oder vbCritical verwendest, um unterschiedliche Icons anzuzeigen.

2. Funktioniert das auch in anderen Excel-Versionen?
Ja, das VBA-Makro funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016 und 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige