Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kommentar löschen

Kommentar löschen
09.10.2007 14:19:00
Ben
Hallo
Ich habe mit Hilfe des Forums folgenden Code zum Löschen von Kommentaren mit einer Schaltfläche:

Private Sub Kommentar_löschen_Click()
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell.Comment.Delete
End If
End Sub


Wenn jemand in einer Zelle steht, die gar keinen Kommentar enthält, und "Kommentar löschen" wählt folgt die Fehlermeldung:
Laufzeitfehler ‚91’
Objektvariable oder With-Blockvariable nicht festgelegt
Wie kann ich in diesen Fällen eine Box anzeigen mit "In diesem Feld ist kein Kommentar zum löschen" o.ä.
Vielen Dank und Gruss
Ben

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar löschen
09.10.2007 14:24:00
Original
Hi,

Private Sub Kommentar_löschen_Click()
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell..ClearComments
End If
End Sub


mfg Kurt

Anzeige
AW: Kommentar löschen
09.10.2007 14:25:53
Original
Hi,
Punkt zuviel:
statt ActiveCell..ClearComments
ActiveCell.ClearComments

AW: Kommentar löschen
09.10.2007 14:39:00
Ben
Hallo
Da ist wohl beim Kopieren was schief gegangen. Ich habe nur 1 Punkt:

Private Sub Kommentar_löschen_Click()
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell.Comment.Delete
End If
End Sub


Das Löschen funktioniert einwandfrei, sofern wirklich ein Kommentar in der betreffenden Zelle vorhanden ist. Da aber unterschiedliche User mit der Datei arbeiten werden, ist zu erwarten, dass die Leute auch Kommentare löschen wollen wo gar keine vorhanden sind. Für diese Fälle hätte ich gerne eine Message-Box.
Gruss
Ben

Anzeige
AW: Kommentar löschen
10.10.2007 06:37:00
Jens
Hi Ben
So funzt es:

Sub Kommentar_loeschen()
If Not ActiveCell.Comment Is Nothing Then
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False,  _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell.Comment.Delete
End If
Else
MsgBox "Kein Kommentar vorhanden"
End If
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
AW: Kommentar löschen
10.10.2007 08:55:38
Ben
Hallo Jens
Danke. Auch Deine Lösung funktioniert. Genau wie die von Jan.
Gruss
Ben

AW: Kommentar löschen
09.10.2007 14:27:00
Jan
Hi Ben,
schachtele einfach eine weitere if-Bedingung um Deine if-Bedingung herum:

Private Sub Kommentar_löschen_Click()
if ActiveCell.Comment is Nothing then
MsgBox("In diesem Feld ist kein Kommentar zu löschen!")
else
If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, _
columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
ActiveCell.Comment.Delete
End If
End if
End Sub


Viele Grüße aus Hamburg,
Jan

Anzeige
AW: Kommentar löschen
09.10.2007 14:44:31
Ben
OK. Danke an alle für die ultraschnellen Rückmeldungen.
Deine Lösung funktioniert bestens, Jan.
Gruss
Ben
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Kommentare in Excel effizient löschen


Schritt-für-Schritt-Anleitung

Um Kommentare in Excel zu löschen, kannst Du die folgende VBA-Makro verwenden. Dieser Code fragt zunächst, ob Du den Kommentar in der aktiven Zelle löschen möchtest. Wenn kein Kommentar vorhanden ist, wird eine entsprechende Nachricht angezeigt.

Sub Kommentar_loeschen()
    If Not ActiveCell.Comment Is Nothing Then
        If (MsgBox("Wollen Sie den Kommentar in Zelle " & ActiveCell.Address(rowabsolute:=False, columnabsolute:=False) & " löschen?", vbYesNo + vbQuestion, "Neuer Abruf")) = vbYes Then
            ActiveCell.Comment.Delete
        End If
    Else
        MsgBox "Kein Kommentar vorhanden"
    End If
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge den obigen Code in ein neues Modul ein.
  3. Schließe den VBA-Editor und gehe zurück zu Excel.
  4. Weise eine Schaltfläche zu, um das Makro auszuführen.

Häufige Fehler und Lösungen

Ein häufiger Fehler ist der Laufzeitfehler 91, der auftritt, wenn Du versuchst, einen Kommentar zu löschen, der nicht existiert. Um dies zu vermeiden, stelle sicher, dass Du vor dem Löschen überprüfst, ob ein Kommentar vorhanden ist.

Wenn Du die folgende Zeile im Code verwendest:

ActiveCell.Comment.Delete

kann es zu einem Fehler kommen, wenn kein Kommentar vorhanden ist. Verwende stattdessen die oben genannte erweiterte Methode, um diesen Fehler zu umgehen.


Alternative Methoden

Es gibt verschiedene Möglichkeiten, Kommentare in Excel zu löschen:

  1. Manuelles Löschen: Klicke mit der rechten Maustaste auf die Zelle, wähle „Kommentar entfernen“.
  2. Alle Kommentare in Excel löschen: Gehe zu „Überprüfen“ > „Kommentare“ > „Alle Kommentare löschen“.
  3. Notizen entfernen: Wenn Du Notizen hast (in neueren Excel-Versionen als „Notizen“ bezeichnet), kannst Du diese ebenfalls über „Überprüfen“ > „Notizen entfernen“ löschen.

Praktische Beispiele

Hier sind einige Beispiele, wie Du Kommentare in Excel löschen kannst:

  • Einzelnes Kommentar löschen: Nutze die oben bereitgestellte Makro-Methode.
  • Alle Kommentare löschen: Um alle Kommentare in Excel zu löschen, kannst Du die folgende Methode verwenden:
Sub Alle_Kommentare_loeschen()
    Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        cmt.Delete
    Next cmt
End Sub
  • Notizen löschen: Wenn Du alle Notizen in einem Arbeitsblatt entfernen möchtest, kannst Du dies ebenfalls über ein Makro tun.

Tipps für Profis

  • Nutze die Funktion „Kommentare ausblenden“, wenn Du diese temporär nicht anzeigen möchtest, ohne sie zu löschen.
  • Immer eine Sicherungskopie Deiner Datei machen, bevor Du Massenoperationen durchführst.
  • Lerne, wie Du mit VBA automatisierte Skripte schreibst, um häufige Aufgaben wie das Löschen oder Ausblenden von Kommentaren zu automatisieren.

FAQ: Häufige Fragen

1. Warum kann ich einen Kommentar nicht löschen? Überprüfe, ob der Kommentar tatsächlich vorhanden ist. Wenn nicht, wird der Laufzeitfehler 91 angezeigt. Verwende die empfohlene Methode zur Überprüfung.

2. Wie lösche ich alle Kommentare in Excel? Du kannst ein VBA-Skript verwenden, um alle Kommentare in einem Arbeitsblatt zu löschen oder die Funktion „Alle Kommentare löschen“ in der Menüleiste verwenden.

3. Gibt es einen Unterschied zwischen Kommentaren und Notizen in Excel? Ja, Kommentare sind interaktive Hinweise, während Notizen einfache Textnotizen sind, die nicht interaktiv sind. Du kannst beide über das Menü „Überprüfen“ verwalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige