Namen im Kommentar löschen

Forumthread: Namen im Kommentar löschen

Hallo,
ich habe untenstehenden Code hier im Forum gefunden und habe nur eine kleine Modifikation
vorgenommen, da ich den Namen nicht ändern, sondern komplett entfernen möchte. Deshalb habe ich einfach das >Dein Text


Sub Kommentar_Zeile1_modifizieren()
Dim Zelle As Range
Dim sichtbar As Boolean
For Each Zelle In Cells.SpecialCells(xlCellTypeComments)
With Zelle.Comment
sichtbar = .Visible
.Visible = True
.Text Text:="Dein Text" & Mid(.Text, InStr(.Text, Chr(10)))
.Shape.Select True
Selection.Characters(Start:=InStr(.Text, Chr(10)) + 1).Font.FontStyle = "Standard"
.Visible = sichtbar
End With
Next
End Sub

Grüße!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Namen im Kommentar löschen

ransi

AW: Namen im Kommentar löschen

12.04.2011 19:03:05

ransi

HAllo
Die Meldung deutet daraufhin das es da keine Zellen mit Komentaren gibt.
VErsuch mal sowas:

Option Explicit

Sub Kommentar_Zeile1_modifizieren()
    Dim sText As String
    Dim regex As Object
    Dim myComment As Comment
    Set regex = CreateObject("VBScript.Regexp")
    With regex
        .Pattern = "^.*?" & vbLf
        For Each myComment In Sheets("Tabelle1").Comments
            sText = myComment.Text
            sText = .Replace(sText, "")
            myComment.Text sText
        Next
    End With
End Sub

ransi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um alle Kommentare in Excel zu löschen oder den Namen aus den Kommentaren zu entfernen, kannst du den folgenden VBA-Code verwenden. Dieser Code durchsucht alle Zellen und entfernt den Namen aus den Kommentaren:

Sub Kommentar_Zeile1_modifizieren()
    Dim Zelle As Range
    Dim sichtbar As Boolean
    For Each Zelle In Cells.SpecialCells(xlCellTypeComments)
        With Zelle.Comment
            sichtbar = .Visible
            .Visible = True
            .Text Text:="Dein Text" & Mid(.Text, InStr(.Text, Chr(10)))
            .Shape.Select True
            Selection.Characters(Start:=InStr(.Text, Chr(10)) + 1).Font.FontStyle = "Standard"
            .Visible = sichtbar
        End With
    Next
End Sub

Falls du alle Kommentare in Excel löschen möchtest, kannst du den folgenden Code verwenden:

Sub AlleKommentareLoeschen()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.ClearComments
    Next ws
End Sub

Häufige Fehler und Lösungen

Fehler: "Kommentar löschen geht nicht"
- Lösung: Stelle sicher, dass die Zelle tatsächlich einen Kommentar hat. Verwende die Funktion Cells.SpecialCells(xlCellTypeComments) um nur Zellen mit Kommentaren zu bearbeiten.
Fehler: "Es gibt keine Zellen mit Kommentaren"
- Lösung: Überprüfe, ob du die richtige Tabelle ausgewählt hast und ob die Kommentare korrekt eingefügt wurden.

Alternative Methoden

Falls du keine VBA-Programmierung nutzen möchtest, kannst du auch die Kommentare manuell entfernen:

Klicke mit der rechten Maustaste auf die Zelle mit dem Kommentar.
Wähle "Kommentar löschen" aus dem Kontextmenü.
Wiederhole dies für alle Zellen mit Kommentaren.

Um alle Notizen in Excel zu löschen, gehe zu "Überprüfen" > "Notizen" > "Alle Notizen löschen".

Praktische Beispiele

Beispiel 1: Um alle Kommentare in Excel zu löschen, kannst du den oben genannten Code AlleKommentareLoeschen() verwenden.
Beispiel 2: Um nur den Namen aus einem Kommentar zu entfernen, nutze den Kommentar_Zeile1_modifizieren() Code und passe den Text entsprechend an.

Tipps für Profis

Du kannst den VBA-Code anpassen, um spezifische Kommentare zu löschen oder zu bearbeiten, indem du die Bedingungen im Code veränderst.
Verwende die Debug.Print-Funktion, um den Inhalt der Kommentare während der Ausführung des Codes zu überprüfen.
Speichere deine Excel-Datei regelmäßig, insbesondere wenn du mit VBA arbeitest, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie lösche ich alle Kommentare in Excel?
Du kannst den VBA-Code AlleKommentareLoeschen() verwenden, um alle Kommentare in einer Tabelle zu entfernen.

2. Warum kann ich einen Kommentar nicht löschen?
Stelle sicher, dass der Kommentar tatsächlich vorhanden ist und dass du die richtige Zelle ausgewählt hast. Manchmal kann es auch an Excel-Einstellungen liegen.

Beliebteste Forumthreads (12 Monate)