Direkt zum Inhalt

Wie verweise ich auf Format und Wert aus einer anderen Zelle in Excel?

Normalerweise verwenden wir die Formel = A1, um die Zelle A1 auf eine andere Zelle im Arbeitsblatt zu verweisen. Dies kann jedoch nur auf den Zellenwert verweisen. Wenn Sie sowohl auf den Zellenwert als auch auf das Format verweisen möchten, müssen Sie eine andere Methode ausprobieren. Dieser Artikel bietet zwei Methoden, um dies zu erreichen.

Referenzformat und Wert aus einer anderen Zelle mit eingefügtem verknüpftem Bild
Automatisches Referenzformat und Wert aus einer anderen Zelle mit VBA


Referenzformat und Wert aus einer anderen Zelle mit eingefügtem verknüpftem Bild

Angenommen, Sie möchten auf Format und Wert aus Zelle A1 verweisen, gehen Sie wie folgt vor, um dies zu erreichen.

1. Wählen Sie die Zelle (A1) aus, auf die Sie verweisen möchten, und kopieren Sie sie durch Drücken von Ctrl + C Schlüssel.

2. Gehen Sie zu der Zelle, mit der Sie die Referenzzelle verknüpfen möchten, klicken Sie mit der rechten Maustaste darauf und wählen > Einfügen > Verknüpftes Bild. Siehe Screenshot:

Jetzt wird das Format und der Wert der Zelle A1 auf eine bestimmte Zelle bezogen. Das Format und der Wert dieser beiden Zellen sind synchron (siehe Abbildung unten).


Automatisches Referenzformat und Wert aus einer anderen Zelle mit VBA

Sie können Format und Wert aus einer anderen Zelle automatisch referenzieren, indem Sie das folgende VBA-Skript ausführen.

1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, die die Zelle enthält, auf die Sie verweisen müssen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.

2. Beim Auftauchen Microsoft Visual für Anwendungen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.

VBA-Code: Referenzformat und Wert aus einer anderen Zelle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Note: Im Code ist Sheet1 der Blattname, der die Zelle enthält, auf die Sie sowohl den Wert als auch das Format verweisen müssen. A1 und E2 bedeuten, dass Zelle A1 automatisch auf Zelle E2 referenziert wird.

Wenn sich der Wert in Zelle A1 von Blatt1 ändert, werden von nun an Wert und Format sofort auf Zelle E2 bezogen.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations