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

Wie kann die Zellenformatierung beibehalten werden, während auf andere Blattzellen verwiesen wird?

Im Allgemeinen behält die Zelle nur den Zellenwert bei, während sie auf eine andere Zelle verweist. In diesem Artikel stelle ich jedoch einen VBA-Code vor, um die Zellenwerte und die Formatierung beim Verweisen auf eine andere Zelle beizubehalten. Die Zellenwerte und die Formatierung ändern sich, wenn sich die Referenzzelle wie folgt ändert Screenshot gezeigt.
doc formatieren Sie weiter, während Sie auf 1 verweisen

Behalten Sie die Zellenformatierung bei, während Sie mit VBA auf eine andere Zelle verweisen


Behalten Sie die Zellenformatierung bei, während Sie mit VBA auf eine andere Zelle verweisen

Um diesen Job zu erledigen, müssen Sie nur den folgenden Code ausführen.

1. Aktivieren Sie die von Ihnen verwendete Arbeitsmappe und drücken Sie Alt + F11 Schlüssel zum Aktivieren Microsoft Visual Basic für Anwendung Fenster und doppelklicken Sie auf den Blattnamen, in dem Sie die Referenzzelle platzieren Projekt-VBAProject Bereich, um ein leeres Skript anzuzeigen. In diesem Fall möchte ich auf Zelle verweisen A1 der Sheet1. Siehe Screenshot:
doc formatieren Sie weiter, während Sie auf 2 verweisen

2. Fügen Sie den folgenden Code in das Skript ein und geben Sie im VBA-Code die gewünschten Zellreferenzen an.

VBA: Formatierung und Werte beibehalten, während auf eine andere Zelle verwiesen wird

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

Hinweis: A1 ist die Referenzzelle, B1 in Blatt 2 ist die Zelle, die Sie mit der Referenzzelle verknüpfen und Werte und Formatierungen mit A1 in Shee1 beibehalten möchten.

Wenn Sie dann die Werte oder die Formatierung in Zelle A1 in Blatt1 ändern, wird die Zelle B1 in Blatt2 geändert, während Sie zweimal auf die Referenzzelle klicken.


Nach Farbe zählen

In einigen Fällen haben Sie möglicherweise eine Reihe von Werten mit mehreren Farben. Sie möchten Werte basierend auf derselben Farbe zählen / summieren. Wie können Sie schnell rechnen?
Mit Kutools for Excel's Nach Farbe zählenSie können schnell viele Berechnungen nach Farbe durchführen und einen Bericht über das berechnete Ergebnis erstellen.
Anzahl der Dokumente nach Farbe

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 (8)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich glaube, das ist vielleicht genau das, wonach ich suche. Ich benötige, dass der referenzierte Text die gleichen Farben und Merkmale wie die referenzierte Seite hat. Der einzige Unterschied zu meinem ist, dass ich aus einem größeren Bereich ziehe. Ich habe noch nie VBA verwendet, also wollte ich bestätigen, bevor ich Änderungen vornehme. Ich ziehe von einem Dokument (Blatt 2) auf ein Dokument (Blatt 1). Ich habe dazu IF-Formeln verwendet, also gibt es einen Wert aus 3 verschiedenen Spalten zurück und sie sind nicht in einer Reihe. Die Spalten sind F, H, J. Könnten Sie mir bitte helfen, herauszufinden, wie ich das zum Laufen bringen kann?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Entschuldigung, Ihr Problem ist etwas komplex, ich verstehe es nicht genau.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich beschäftige mich mit einem ähnlichen Problem. Ich habe eine Formel in Spalte C, die einen Wert aus derselben Zeile, Spalte A, annimmt. (Aber nur, WENN B3 nicht x ist UND A3 nicht leer ist):

=WENN(B3="x";"y";WENN(A3="";"z";A3))

Zellen der Spalte A sehen so aus: OK 2019_12_03
Aber "OK" ist fett formatiert. Dieses Format möchte ich beibehalten.
Ich möchte dies für Hunderte von Zellen, daher ist es nicht wünschenswert, auf jede einzelne von ihnen zu klicken oder ein Skript zu schreiben. Irgendwelche Ideen, ob eine solche Funktion existiert? Ich würde eine Art "WITHFORMAT()" -Funktion begrüßen, die ich in die Formel einfügen könnte, damit die folgende Formel das ursprüngliche Format beibehalten würde:

=WENN(B3="x";"y";WENN(A3="";"z";MITFORMAT(A3)))
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das Skript. Können Sie mir sagen, ob es eine Möglichkeit gibt, die verknüpfte Zelle zu aktualisieren, ohne auf die Referenzzelle doppelklicken zu müssen? Danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, dass du das geteilt hast. Gibt es ein VBA-Skript, das es ermöglicht, auf eine Reihe von Zellen in einer Arbeitsmappe zu verweisen und dann den Wert und das Format der referenzierten Zellen in einer anderen Arbeitsmappe anzuzeigen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, dass du das geteilt hast. Ich habe eine Reihe von Zellen in WorksheetA, Sheet1, Range G3:G3000, auf die ich in WorksheetB, Sheet1, Range G3:G3000 verweisen möchte. Ich brauche WorksheetB, Sheet1, Range G3:G3000, um sowohl den Wert als auch das Format der referenzierten Zellen in WorksheetA, Sheet1, G3:G3000 anzuzeigen. Gibt es ein VBA-Skript, das dies ermöglicht?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
No tienes uno que sea dentro del mismo archivo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich möchte das Format meiner Referenzzelle beibehalten. Aber auch mit deinem VBA funktioniert es nicht. Kannst du mir bitte helfen?
Ich möchte, dass meine B2-Zelle meines Blattes 1 meine Referenzzelle für meine C2-Zellen der Blätter 2,3,4,5,6,7 ist.
Mein Dokument ist eine Liste von Personen, daher werde ich mehrere Referenzzellen haben, nicht die Fortsetzung.
Danke im Voraus
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
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