Thema: Adressdaten der aktiven Zelle über VBA feststellen

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle

eine Zelle, 2 Formeln, Zahlen aber getrennt	Counter durch Änderung vom Zelleninhalt hochzählen
Multiselect in eine Zelle	Kursiven Text aus Zelle extrahieren
Alle Zellen mit bestimmtem Datum markieren	Vergleichen von zellen
Datum + Uhrzeit aus Textbox richtig in Zelle	Zellenfärbung
ContentControl (WORD) in Excel Zelle schreiben	PQ - Zeichen in Zelle zählen
Zelle färben wenn Wert in Liste vorkommt	Zellen auslesen,wenn im Blattnamen 2019
Mehrere Zellen in mehreren Dateien ersetzen	VBA Code um einzelne Zellen zu sperren
bestimmte Zeichenfolgen in Zellen löschen	Summe von letzter freier Zelle in Spalte
Intelligente Tabelle - Auf Zelle zugreifen von and	2 Zellen vergleichen und Werte in Folgen summieren
1. freie Zelle in nicht zusammenhängenden Bereich	Checkboxen Namen beliebig in eine Zelle schreiben
Variabler Text aus Zelle in Code integrieren	Zellen vergleichen
Targetadress Zelle bestimmen	Rechtsklick VBA nur bestimmte Zellen
Zellen aus Liste in Spalten korrekt umsortieren	Speicherpfad aus zelle zusammenfügen
wenn . in Zelle darf kein OK geschrieben sein	Autofilter mit formartierten Zellen mit VBA
Formel aus Zellen erstellen und einfügen als Forme	Ausgewählte Zellen (Variabel) in Spalte A markiere
Zellen sperren wenn Bedingung in anderer Zelle erf	Wert einer Zelle in Blatt mit diesem Zellennamen
Formel in eine Zelle einbinden	Zelleninhalte übertragen u. fortlaufend anzeigen
Speichern mit Pfad aus Zelle einer nichtaktiven Ma	VBA, 4 Informationen in 4 Zellen schreiben
Zellen einfärben trotz Passwortschutz	Zellen einfärben wenn Bedingung erfüllt
Wenn alle Zellen unter einer Zelle leer sind, dann	Zelle kann nicht geändert werden
Formel in Zelle schreiben ohne festen Zellbezug	Befehlszeile aus Zelle in VBA
Bestimmte Zelle mit Makro berechnen	Text aus Zelle in Internet Seite
Bedingte Formatierung bezogen auf 2. Zelle	Sortieren von Datumswerten in Zelle durch VBA
Zelleneingabe nur per Combobox erlauben	gleichzeitiges Ausfüllen mehrerer Zellen