Sub test()
If ActiveCell.Comment Is Nothing Then
MsgBox "nix"
Else
MsgBox "da"
End If
End Sub
Problemstellung
Zelleinträge sollen in Kommentare eingefügt werden.
Um mit Excel VBA zu überprüfen, ob ein Kommentar in einer Zelle vorhanden ist, kannst du den folgenden Code verwenden:
Sub KommentarPruefen()
If ActiveCell.Comment Is Nothing Then
MsgBox "Kein Kommentar vorhanden."
Else
MsgBox "Kommentar ist vorhanden."
End If
End SubALT + F11, um den VBA-Editor zu öffnen.VBAProject (deine_datei.xlsm) > Einfügen > Modul.KommentarPruefen aus.Ein häufiger Fehler ist die Meldung "Unzulässige Verwendung eines Objekts", die auftritt, wenn die Syntax nicht korrekt ist. Achte darauf, dass du Is Nothing korrekt schreibst.
Wenn du die folgende Zeile verwendest:
If ActiveCell.Comment = Nothing Thenwird der Fehler auftreten. Du musst sicherstellen, dass du Is Nothing verwendest, um die Abfrage korrekt durchzuführen.
Eine alternative Möglichkeit, um zu prüfen, ob ein Kommentar vorhanden ist, besteht darin, die Comments-Sammlung zu verwenden. Der folgende Code überprüft, ob Kommentare in einem bestimmten Bereich vorhanden sind:
Sub KommentareInBereichPruefen()
Dim Zelle As Range
Dim KommentarVorhanden As Boolean
KommentarVorhanden = False
For Each Zelle In Selection
If Not Zelle.Comment Is Nothing Then
KommentarVorhanden = True
Exit For
End If
Next Zelle
If KommentarVorhanden Then
MsgBox "Mindestens ein Kommentar ist vorhanden."
Else
MsgBox "Keine Kommentare vorhanden."
End If
End SubBeispiel 1: Wenn du in einem Arbeitsblatt mehrere Zellen überprüfst, kannst du den obigen Code KommentareInBereichPruefen verwenden, um schnell zu sehen, ob Kommentare vorhanden sind.
Beispiel 2: Du kannst das Makro erweitern, um Kommentare automatisch zu löschen:
Sub KommentarLoeschen()
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
MsgBox "Kommentar wurde gelöscht."
Else
MsgBox "Kein Kommentar zum Löschen vorhanden."
End If
End SubApplication.EnableEvents-Eigenschaft, um unerwünschte Ereignisse während der Ausführung deines Makros zu vermeiden.1. Kann ich auch mehrere Zellen auf Kommentare überprüfen?
Ja, du kannst eine Schleife verwenden, um alle Zellen in einem Bereich auf Kommentare zu überprüfen, wie im Beispiel KommentareInBereichPruefen gezeigt.
2. Wie kann ich Kommentare in Excel VBA löschen?
Du kannst das oben gezeigte Makro KommentarLoeschen verwenden, um Kommentare in der aktiven Zelle zu löschen. Wenn du alle Kommentare in einem Bereich löschen möchtest, passe das Makro entsprechend an.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen