Note: The other languages of the website are Google-translated. Back to English

Wie kann ich einen übereinstimmenden Wert mit einem Zellenkommentar anzeigen und zurückgeben?

Wenn Sie die Vlookup-Funktion anwenden, um den übereinstimmenden Wert zurückzugeben, wird der Wert nur ohne Formatierung extrahiert, z. B. Füllfarbe, Schriftart oder Kommentar usw. Manchmal müssen Sie jedoch auch den übereinstimmenden Wert einschließlich Kommentar anzeigen und zurückgeben um das folgende Screenshot-Ergebnis zu erhalten. Wie können Sie diesen Job in Excel lösen?

Vlookup und Rückgabe des übereinstimmenden Werts mit dem Zellenkommentar mithilfe von VBA-Code


Vlookup und Rückgabe des übereinstimmenden Werts mit dem Zellenkommentar mithilfe von VBA-Code

Der folgende VBA-Code kann Ihnen dabei helfen, den übereinstimmenden Wert mit seinem Kommentar zu suchen und zurückzugeben. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster.

VBA-Code: Vlookup und Rückgabe des übereinstimmenden Werts mit Zellkommentar:

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 dann den Code und schließen Sie das Codefenster. Geben Sie die folgende Formel ein: = vlookupcomment (H2, A2: C10,3, FALSE) in eine leere Zelle, um das Ergebnis zu finden, und drücken Sie Weiter Schlüssel, der übereinstimmende Wert sowie der Kommentar werden sofort zurückgegeben, siehe Screenshot:

Hinweis: In der obigen Formel H2 ist der Suchwert, für den Sie den entsprechenden Wert zurückgeben möchten. A2: C10 ist die Datentabelle, die Sie verwenden möchten, die Nummer 3 ist die Spaltennummer, die den übereinstimmenden Wert enthält, den Sie zurückgeben möchten.


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, 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!
officetab unten
Kommentare (20)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie würde ich dasselbe als Hlookup anstelle von Vlookup tun?

Ich habe den Code wie folgt geändert:
Funktion hlookupComment(LookVal As Variant, FTable As Range, Frow As Long, FType As Long) As Variant
'Updateby Extendoffice
Anwendung.Volatil
Dim xRet As Variant' könnte ein Fehler sein
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Rows(1), FType)
Wenn IsError(xRet) Dann
hlookupComment = "Nicht gefunden"
sonst
Setze xCell = FTable.Rows(Frow).Cells(1)(xRet)
hlookupComment = xCell.Wert
Mit Application.Caller
Wenn nicht .Kommentar ist dann nichts
.Kommentar.Löschen
End If
Wenn nicht, dann ist xCell.Comment nichts
.AddComment xCell.Kommentar.Text
End If
Ende mit
End If
End Function
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dass der vlookup-Kommentar die Formatierung des ursprünglichen Kommentars kopiert? Einige meiner Kommentare sind sehr lang, aber der von vlookup zurückgegebene Kommentar hat immer die standardmäßige kleine Größe, sodass ich nicht den gesamten Text lesen kann
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Karl,
Möglicherweise gibt es keinen direkten Weg zur Lösung Ihres Problems, aber Sie können das Kommentarfeld manuell größer ziehen. Oder Sie können unsere Kutools for Excel Autofit Comment-Funktion anwenden, die Ihnen helfen kann, das Kommentarfeld an den Inhalt anzupassen. Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können wir Zelle in Spalte B (Reihenfolge) als Kommentar für Zelle in Spalte C (Name) verwenden? exc, Kommentar für Helen ist 80.
Danke für deine Hilfe.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Frank
Hallo,

Im Falle einer geschützten Tabelle gibt die Zelle beim Öffnen meiner Arbeitsmappe den Fehler #WERT zurück!

Wie können wir dieses Problem lösen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Frank,
Nach dem Einfügen des Codes sollten Sie Ihre Arbeitsmappe im Excel-Arbeitsmappenformat mit Makros speichern, damit der Code nicht verloren geht.
Bitte versuche! Danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, es ist hilfreich und ich muss etwas fragen. Es wird mit einem Zellenkommentar zurückgegeben, aber das Bild (mit Fülleffekten eingefügt) wird nicht angezeigt
Bitte helfen Sie mir aus diesem Problem heraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Scham,
Es tut uns leid, dass es keinen direkten Code zur Lösung Ihres Problems gibt. Wenn jemand die Lösung hat, kommentieren Sie ihn bitte hier.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Mein Kommentar ist zu groß für die Standardboxgröße. Gibt es eine Möglichkeit, das Kommentarfeld zu vergrößern oder möglicherweise die Schriftgröße zu verringern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Falls das noch jemand braucht.


Funktion VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant

'Updateby Extendoffice

Anwendung.Volatil

Dim xRet As Variant' könnte ein Fehler sein

Dim xCell As Range

xRet = Application.Match(LookVal, FTable.Columns(1), FType)

Wenn IsError(xRet) Dann

VlookupComment = "-"

sonst

Setze xCell = FTable.Columns(FColumn).Cells(1)(xRet)

VlookupComment = xCell.Wert

Mit Application.Caller

Wenn nicht .Kommentar ist dann nichts

.Kommentar.Löschen

End If

Wenn nicht, dann ist xCell.Comment nichts

.AddComment xCell.Kommentar.Text

.Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft

.Comment.Shape.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft

End If

Ende mit

End If

End Function
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte nur als Zellenwert mit Vlookup kommentieren ...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
das kann ich erstmal. aber nachdem ich versuche, die Formel mehrerer Zellen zu ändern. Es funktioniert jetzt nicht. nachdem ich vlookupcomment eingetippt habe, wird die Zelle leer.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi! Ich bin so froh, dass ich das gefunden habe, die Sache ist, das funktioniert tatsächlich mit Notizen und nicht mit Kommentaren. Gibt es eine Möglichkeit, Kommentare und keine Notizen zu bearbeiten? in notizen kann ich meine kollegen nicht markieren und auch nicht antworten. Danke vielmals!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist wunderbar. Aber wenn ich diesen Code verwende, finde ich, dass die Datei in Excel 365 häufig abstürzt. Beim Entfernen der automatischen Speicherung fand ich, dass es etwas besser ist. Aber mit mehreren Benutzern in der Datei stürzt die Datei ständig ab. Verwendet dieser Code viel Speicher oder handelt es sich um ein Kompatibilitätsproblem? Gedanken? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert nicht für mich. Ich bekomme #NAME? Fehler, wenn ich diese Formel verwende. Bitte helfen Sie.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Sajjad, hast du den VBA-Code dieses Artikels in deine Arbeitsmappe eingefügt? Bitte überprüfen Sie es.Oder welche Excel-Version verwenden Sie?Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das ist eine sehr gute Funktion, aber sie funktioniert für Notizen, nicht für Kommentare (so wird es zumindest in meiner Muttersprache übersetzt). Gibt es eine Möglichkeit, es von Notizen zu Kommentaren zu ändern? Gibt es auch eine Möglichkeit, das Zellenformat beizubehalten? (Farbe der ursprünglichen Zelle usw.).
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich hatte das gleiche Problem. Ich kann nur sagen, dass ich versucht habe, Kommentare und Notizen über vba zu kopieren ... nur Notizen werden kopiert, nicht die Kommentare (obwohl sie dieselbe Bedeutung haben, aber eine andere Funktionalität) ... Notizen scheinen statischer Natur zu sein , im Gegensatz zu Kommentaren, bei denen Sie weiter "posten" können, um neuen Text hinzuzufügen ... Wahrscheinlich ist das der Grund ....
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, fana,
Um die übereinstimmenden Datensätze mit dem Kommentar in Office 365 zu extrahieren, wenden Sie bitte den folgenden Code an:
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 .CommentThreaded Is Nothing Then
                .ClearComments
            End If
            If Not xCell.CommentThreaded Is Nothing Then
                .AddCommentThreaded xCell.CommentThreaded.Text
            End If
        End With
    End If
End Function


Wenden Sie nach dem Einfügen des Codes diese Formel an: = vlookupcomment (H2, A2: C10,3, FALSE) sowie.

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
tx viel. hoch geschätzt!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte