Wie übernimmt man beim Einsatz von VLOOKUP in Excel die Formatierung der Quellzelle?
In früheren Artikeln haben wir erläutert, wie Sie beim VLOOKUP in Excel die Hintergrundfarbe der Werte beibehalten können. In diesem Artikel stellen wir eine Methode vor, mit der sich beim Ausführen von VLOOKUP die gesamte Zellenformatierung der Ergebniszelle übernehmen lässt. Gehen Sie dazu wie folgt vor:
Quellformatierung beim Verwenden von VLOOKUP in Excel mit einer benutzerdefinierten Funktion kopieren
Angenommen, Sie haben eine Tabelle wie im folgenden Screenshot dargestellt. Nun möchten Sie prüfen, ob ein bestimmter Wert (aus Spalte E) in Spalte A enthalten ist, und den zugehörigen Wert samt Formatierung aus Spalte C zurückgeben. Gehen Sie dazu wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte des Arbeitsblatts, das den gewünschten VLOOKUP-Wert enthält, und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
2. Fügen Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen den folgenden VBA-Code in das Code-Fenster ein.
VBA-Code 1: VLOOKUP und Rückgabewert mit Formatierung
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code 2 in das Modul-Fenster ein.
VBA-Code 2: VLOOKUP und Rückgabewert mit Formatierung
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. Klicken Sie auf Extras > Verweise. Aktivieren Sie im Dialogfeld Verweise – VBAProject dann das Kontrollkästchen für Microsoft Script Runtime. Siehe Screenshot:
5. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
6. Wählen Sie eine leere Zelle neben dem Suchwert aus, geben Sie die Formel =LookupKeepFormat(E2;$A$1:$C$8;3) in die Formel-Leiste ein und drücken Sie anschließend die Eingabetaste.
Hinweis: In der Formel enthält E2 den zu suchenden Wert, $A$1:$C$8 ist der Tabellenbereich, und die Zahl 3 bedeutet, dass sich der zurückzugebende Wert in der dritten Spalte der Tabelle befindet. Passen Sie diese Angaben entsprechend Ihren Anforderungen an.
7. Behalten Sie die Markierung der ersten Ergebniszelle bei und ziehen Sie anschließend das Ausfüllkästchen nach unten, um alle Ergebnisse mitsamt ihrer Formatierung wie im folgenden Screenshot gezeigt zu übernehmen.
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.
Verwandte Artikel:
- Wie führt man eine VLOOKUP-Abfrage in Excel durch und gibt dabei sowohl den Suchwert als auch dessen Hintergrundfarbe zurück?
- Wie führt man eine VLOOKUP-Abfrage in Excel durch und gibt dabei ein Datumsformat statt einer Zahl zurück?
- Wie verwendet man VLOOKUP und SUMME in Excel?
- Wie sucht man mithilfe von VLOOKUP den Rückgabewert in der benachbarten oder nächsten Zelle in Excel?
- Wie sucht man mithilfe von VLOOKUP einen Wert in Excel und gibt dafür WAHR oder FALSCH bzw. JA oder NEIN zurück?
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