Wie kann man die Adresse der aktiven Zelle an eine andere Stelle in Excel kopieren?
In Excel können Sie den Inhalt der Aktuelle Zelle mithilfe von Tastenkombinationen oder dem Kontextmenü problemlos kopieren, aber wie können Sie die Aktuelle Zelle-Adresse an einen anderen Ort kopieren?
Aktuelle Zelle-Adresse kopieren
Aktuelle Zelle-Adresse kopieren und mit VBA einfügen
Aktuelle Zelle-Adresse kopieren
Hier ist eine Formel, mit der Sie die Adresse der aktuellen Zelle in Excel ermitteln können.
Wählen Sie eine Zelle aus, in der die Zelladresse angezeigt werden soll, geben Sie die Formel =ADDRESS(ROW(),COLUMN()) ein – und schon erscheint die Adresse der aktuellen Zelle.
Drücken Sie anschließend Strg + C, um sie zu kopieren, und klicken Sie mit der rechten Maustaste auf eine Zelle, um sie als Wert einzufügen.
![]() | ![]() | ![]() |

Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Aktuelle Zelle-Adresse kopieren und mit VBA einfügen
Hier ist der VBA-Code, mit dem Sie die Zelladresse kopieren und in eine andere Zelle einfügen können.
1. Drücken Sie die Alt + F11-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Insert > Module, und fügen Sie den folgenden Code in das Skript ein.
VBA: Zelladresse kopieren und einfügen
Sub AddressCopy()
'UpdatebyExtendoffice20180307
Dim xSRg As Range
Dim xDRg As Range
On Error Resume Next
Set xSRg = Application.InputBox("Select cell(s) to copy its address:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Select a cell to paste:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xDRg(1).Value = xSRg.Address
End Sub 3. Drücken Sie die F5-Taste – es öffnet sich ein Dialogfeld, in dem Sie die Zelle auswählen können, deren Adresse Sie kopieren möchten.
4. Klicken Sie auf OK und wählen Sie eine Zelle aus, um die Zelladresse einzufügen.
5. Klicken Sie auf OK.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins


