Wie behält man die Zellenformatierung bei, wenn man auf Zellen eines anderen Arbeitsblatts verweist?
Im Allgemeinen übernimmt eine Zelle beim Verweis auf eine andere lediglich deren Wert. In diesem Artikel stelle ich jedoch einen VBA-Code vor, mit dem sowohl der Wert als auch die Formatierung der Bezugszelle übernommen und dynamisch angepasst werden – genau wie im folgenden Screenshot dargestellt.
Beibehalten der Zellenformatierung beim Verweisen auf eine andere Zelle mit VBA
Beibehalten der Zellenformatierung beim Verweisen auf eine andere Zelle mit VBA
Um diese Aufgabe zu erledigen, führen Sie einfach den folgenden Code aus.
1. Öffnen Sie die gewünschte Arbeitsmappe und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Doppelklicken Sie anschließend im Bereich Projekt – VBAProject auf den Namen des Arbeitsblatts, in dem Sie die Bezugszelle platzieren möchten, um ein leeres Skript anzuzeigen. In diesem Fall möchte ich die Zellreferenz A1 im Arbeitsblatt1 verwenden. Siehe Screenshot:
2. Fügen Sie den folgenden Code in das Skript ein und passen Sie die im VBA-Code angegebene einzelne Zelle gemäß Ihren Anforderungen an.
VBA: Beibehalten von Formatierung und Werten beim Verweisen auf eine andere Zelle
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 SubHinweis: A1 ist die Bezugszelle. B1 im Arbeitsblatt 2 ist die Zelle, die Sie mit der Bezugszelle verknüpfen möchten, um Werte und Formatierung wie bei A1 in Arbeitsblatt 1 beizubehalten.
Wenn Sie anschließend die Werte oder die Formatierung in Zelle A1 auf Arbeitsblatt1 ändern, aktualisiert sich Zelle B1 auf Arbeitsblatt2 automatisch – sobald Sie doppelt auf die Bezugszelle klicken.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins