Wie führt man einen SVERWEIS durch und gibt dabei die Hintergrundfarbe zusammen mit dem Suchwert in Excel zurück?
Angenommen, Sie haben eine Tabelle wie im folgenden Screenshot gezeigt. Nun möchten Sie prüfen, ob ein bestimmter Wert in Spalte A enthalten ist, und anschließend den zugehörigen Wert aus Spalte C mitsamt dessen Hintergrundfarbe zurückgeben. Wie lässt sich das umsetzen? Die Methode im Artikel unterstützt Sie dabei, dieses Vorhaben erfolgreich zu realisieren.
SVERWEIS mit Rückgabe von Hintergrundfarbe zusammen mit dem Suchwert mithilfe einer benutzerdefinierten Funktion
Gehen Sie wie folgt vor, um einen Wert zu suchen und den zugehörigen Wert samt Hintergrundfarbe in Excel zurückzugeben.
1. Klicken Sie im Arbeitsblatt, das den Wert enthält, den Sie per SVERWEIS suchen möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Fügen Sie im geöffneten Microsoft Visual Basic for Applications-Fenster den folgenden VBA-Code in das Code-Fenster ein.
VBA-Code 1: SVERWEIS mit Rückgabe von Hintergrundfarbe zusammen mit dem Suchwert
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub3. 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: SVERWEIS mit Rückgabe von Hintergrundfarbe zusammen mit dem Suchwert
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function4. Nachdem Sie beide Codes eingefügt haben, klicken Sie auf Extras > Verweise. Aktivieren Sie dann im Dialogfeld Verweise – VBAProject das Kontrollkästchen Microsoft Script Runtime. Siehe Screenshot:
5. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen und zum Arbeitsblatt zurückzukehren.
6. Wählen Sie eine leere Zelle neben dem Suchwert aus, geben Sie in die Formel-Leiste die Formel =LookupKeepColor(E2;$A$1:$C$8;3) ein und drücken Sie anschließend die Eingabetaste.
Hinweis: In der Formel enthält E2 den Wert, nach dem Sie suchen möchten. $A$1:$C$8 ist der Tabellenbereich, und die Zahl 3 gibt an, dass der zugehörige Rückgabewert in der dritten Spalte der Tabelle steht. Passen Sie diese Angaben je nach Bedarf an.
7. Lassen Sie die erste Ergebniszelle markiert und ziehen Sie das Ausfüllkästchen nach unten, um alle Ergebnisse mitsamt ihrer Hintergrundfarbe zu übernehmen. Siehe Screenshot.
Verwandte Artikel:
- Wie kann man beim Einsatz von SVERWEIS in Excel die Quellformatierung der Suchzelle übernehmen?
- Wie führt man einen SVERWEIS durch und lässt dabei ein Datumsformat statt einer Zahl in Excel zurückgeben?
- Wie verwendet man SVERWEIS und SUMME in Excel?
- Wie führt man einen SVERWEIS durch, um den Rückgabewert aus der benachbarten oder nächsten Zelle in Excel zu erhalten?
- Wie sucht man mit SVERWEIS 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