Wie führt man eine VLOOKUP-Suche durch und gibt den übereinstimmenden Wert samt Kommentar zurück?
Wenn Sie die VLOOKUP-Funktion verwenden, um den übereinstimmenden Wert zurückzugeben, wird lediglich der reine Wert – ohne Formatierungen wie Füllfarbe, Schriftart oder Kommentare – übernommen. Manchmal benötigen Sie jedoch eine VLOOKUP-Suche, bei der auch der zugehörige Kommentar zusammen mit dem übereinstimmenden Wert zurückgegeben wird, um ein Ergebnis wie im folgenden Screenshot zu erzielen. Wie lösen Sie diese Aufgabe in Excel?
VLOOKUP durchführen und übereinstimmenden Wert mit Kommentar mithilfe von VBA-Code zurückgeben
VLOOKUP durchführen und übereinstimmenden Wert mit Kommentar mithilfe von VBA-Code zurückgeben
Der folgende VBA-Code unterstützt Sie dabei, eine VLOOKUP-Suche durchzuführen und den übereinstimmenden Wert mitsamt seinem Kommentar zurückzugeben. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden Code in das Modul-Fenster ein.
VBA-Code: VLOOKUP durchführen und übereinstimmenden Wert mit Kommentar zurückgeben:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. Speichern Sie danach den Code und schließen Sie das Code-Fenster. Geben Sie anschließend in eine leere Zelle diese Formel ein:=vlookupcomment(H2;A2:C10;3;FALSCH), um das Ergebnis anzuzeigen, und drücken Sie die Eingabetaste – sofort werden sowohl der übereinstimmende Wert als auch der Kommentar angezeigt (siehe Screenshot):
Hinweis: In der obigen Formel ist H2 der Suchwert, zu dem Sie den entsprechenden Wert zurückgeben möchten, A2:C10 die Datentabelle, die Sie verwenden möchten, und die Zahl 3 gibt die Spaltennummer an, die den zurückzugebenden übereinstimmenden Wert enthält.
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