Gruppe
Allgemein
Bereich
Zelle
Thema
Adressdaten der aktiven Zelle über VBA feststellen
Problem
Wie kann ich die Zelladresse bzw. die Zeilen-/Spaltennummer der aktiven Zelle über Makro feststellen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: mHWH
Sub Zelladresse()
Dim sAdr As String
With ActiveCell
sAdr = "Adresse A: " & .Address & vbLf
sAdr = sAdr & "Adresse B: " & .Address( _
rowabsolute:=False) & vbLf
sAdr = sAdr & "Adresse C: " & .Address( _
columnabsolute:=False) & vbLf
sAdr = sAdr & "Adresse D: " & .Address( _
rowabsolute:=False, columnabsolute:=False) & vbLf
sAdr = sAdr & "Zeile: " & .Row & vbLf
sAdr = sAdr & "Spalte: " & .Column
End With
MsgBox prompt:=sAdr
End Sub