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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

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 Sub

Drü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.