Note: The other languages of the website are Google-translated. Back to English

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

Hinweis: 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:

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (9)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi! Sehr cool!! Gibt es eine Möglichkeit, die erste Option in Google Spreadsheets auszuführen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Julian,
Tut mir leid, dass wir nicht in Google Sheets getestet haben. Vielen Dank für Ihren Kommentar.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie mache ich das, wenn ich auf ein anderes Blatt kopieren möchte?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Lil,
Wenn Sie auf ein anderes Blatt kopieren müssen, wenden Sie bitte den folgenden VBA-Code an. Sheet1 ist das ursprüngliche Arbeitsblatt, Sheet3 ist das Zielarbeitsblatt. Bitte ändern Sie sie entsprechend Ihren Anforderungen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Mit Arbeitsblättern ("Blatt1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Bereich("A5").Kopie (Arbeitsblätter("Blatt3").Bereich("E2"))
End If
Ende mit
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie führe ich diesen Code in Excel aus? Muss es auf beiden Arbeitsblättern ausgeführt werden? Kann es spezifisch wie Schritt-für-Schritt sein?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jesse, Hallo, wie der oben erwähnte Code, müssen Sie nur den Code in das Codefenster des ursprünglichen Arbeitsblatts eingeben, wenn Sie den Zellenwert im ursprünglichen Arbeitsblatt ändern (A5 in Sheet1 in diesem Fall), wird der Code automatisch ausgeführt. Und Zelle A5 in Sheet1 wird nach E2 in Sheet3 kopiert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo habe den folgenden Code gemacht, aber es hat nicht funktioniert
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Mit Arbeitsblättern ("Zusammenfassung der Wettbewerbsanalyse")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
Ende mit
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, nachdem Sie den Code hinzugefügt haben, müssen Sie das Arbeitsblatt "Zusammenfassung der Wettbewerbsanalyse" ändern, um die VBA zu aktivieren.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann ich die ersten 5 Spalten auf jedem neuen Blatt spiegeln? Ich habe die Daten nur, um die Formatierung mit allen Blättern zu ändern, anstatt dies wiederholt tun zu müssen
Es sind noch keine Kommentare vorhanden
Bitte hinterlassen Sie Ihre Kommentare auf Englisch
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL