Wie kopiert man die aktuelle Zellenadresse an einen anderen Ort in Excel?
In Excel können Sie den Inhalt der aktuellen Zelle leicht mit Tastenkombinationen oder dem Kontextmenü kopieren, aber wie könnten Sie die aktuelle Zellenadresse an einen anderen Ort kopieren?
Aktuelle Zellenadresse kopieren
Aktuelle Zellenadresse kopieren und mit VBA einfügen
Aktuelle Zellenadresse kopieren
Hier ist eine Formel, die die aktuelle Zellenadresse in Excel abrufen kann.
Wählen Sie eine Zelle aus, in der Sie die Zellenadresse platzieren möchten, und geben Sie diese Formel ein =ADDRESS(ZEILE();SPALTE())und schon wird die aktuelle Zellenadresse angezeigt.
Drücken Sie dann 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 Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Aktuelle Zellenadresse kopieren und mit VBA einfügen
Hier ist der VBA-Code, der die Zellenadresse kopieren und in eine andere Zelle einfügen kann.
Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.
VBA: Zellenadresse 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 SubDrücken Sie F5 Taste, es erscheint ein Dialogfenster, in dem Sie die Zelle auswählen können, deren Adresse Sie kopieren möchten.
Klicken Sie auf OKund wählen Sie eine Zelle aus, um die Zellenadresse einzufügen.
Klicken Sie auf OK.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins