Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Adressdaten der aktiven Zelle über VBA feststellen

Gruppe

Zelle

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