Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zelladresse per msgbox ausgeben


Betrifft: Zelladresse per msgbox ausgeben von: Marcel Spuler
Geschrieben am: 29.07.2018 12:54:09

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

  

Betrifft: AW: Zelladresse per msgbox ausgeben von: Nepumuk
Geschrieben am: 29.07.2018 13:01:54

Hallo Marcel,

falsch geschrieben. So ist's richtig:

Worksheet_BeforeDoubleClick

Gruß
Nepumuk


  

Betrifft: AW: Zelladresse per msgbox ausgeben von: Günther
Geschrieben am: 29.07.2018 13:19:46

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


  

Betrifft: AW: Zelladresse per msgbox ausgeben von: Marcel Spuler
Geschrieben am: 29.07.2018 13:22:09

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?


  

Betrifft: AW: Zelladresse per msgbox ausgeben von: Nepumuk
Geschrieben am: 29.07.2018 13:47:27

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


  

Betrifft: Ereignismakros … von: RPP63
Geschrieben am: 29.07.2018 13:12:17

… 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


Beiträge aus dem Excel-Forum zum Thema "Zelladresse per msgbox ausgeben"