Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie behalten Sie die Zellenformatierung bei, während Sie auf andere Blattzellen verweisen?

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

Behalten Sie die Zellenformatierung beim Verweisen auf eine andere Zelle mit VBA bei


Behalten Sie die Zellenformatierung beim Verweisen auf eine andere Zelle mit VBA bei


Um diesen Job zu bearbeiten, müssen Sie nur den 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 Namen des Blattes, in das Sie die Referenzzelle einfügen möchten Projekt-VBAProject Fenster um ein leeres Skript anzuzeigen. In diesem Fall möchte ich auf Zelle verweisen A1 in dem Sheet1. Siehe Screenshot:
doc behält die Formatierung bei, während es auf 2 verweist

2. Fügen Sie unterhalb des Codes in das Skript und im VBA-Code die Zellreferenzen nach Bedarf ein.

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

Text: 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 der Zelle A1 in Sheet1 ändern, wird die Zelle B1 in Sheet2 geändert, während Sie zweimal auf die Referenzzelle klicken.


Zählen nach Farbe

In einigen Fällen haben Sie möglicherweise eine Reihe von Kalibern mit mehreren Farben, und was Sie wollen, ist das Zählen / Summieren von Werten basierend auf derselben Farbe, wie können Sie schnell berechnen?
Mit  Kutools for Excel's Zählen nach FarbeSie können schnell viele Berechnungen nach Farben durchführen und auch einen Bericht über das berechnete Ergebnis erstellen.
Doc zählt nach Farbe


Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mato · 1 months ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
  • To post as a guest, your comment is unpublished.
    Justin · 6 months ago
    Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
  • To post as a guest, your comment is unpublished.
    Amy Napier · 9 months ago
    hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
    • To post as a guest, your comment is unpublished.
      Sunny · 8 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.