Mit dem folgenden Makro können Sie sich die Zelladresse der aktiven Zelle über ein Dialogfeld (Msgbox) am Bildschirm anzeigen lassen.
Sub Aktive_Zelle_bestimmen()
Dim Aktive_Zelle As Variant
Aktive_Zelle = ActiveCell.AddressLocal(columnabsolute = False, rowabsolute = False)
MsgBox Aktive_Zelle
End Sub
Weiterführende Links: