Zelladresse per msgbox ausgeben
29.07.2018 12:54:09
Marcel
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