Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung beim löschen
 04.11.2021 10:52:05 SmileStyle
NotSolved
04.11.2021 14:21:54 volti
Solved
04.11.2021 14:32:38 SmileStyle
NotSolved

Ansicht des Beitrags:
Von:
SmileStyle		 Datum:
04.11.2021 10:52:05		 Views:
966		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung beim löschen

Guten Morgen,

ich bräuchte eure Hilfe ! Habe einen Code zum löschen von dem Format in einem Feld inklusive dem Kommentar.

Das Problem ist wenn kein Kommentar im Feld enthalten ist gibt er immer ein Debug Fehler weil er ein Kommentar löschen will und es nicht klappt.

 

Sub Färbe(ByVal sBereich As String)
Dim rng As Excel.Range
Dim vntInput As Variant
Call ActiveSheet.Unprotect(Password:="KdoSAN")
Select Case Application.CommandBars.ActionControl.Caption
     Case Is = "Eintrag löschen"
          With Selection
               .Interior.PatternColorIndex = xlNone
               .Value = vbNullString
               ActiveCell.Comment.Delete
          End With
     Case Is = "Bemerkung"
          Do
                vntInput = InputBox(Prompt:="Bitte etwas eingeben.", Title:="Eingabe")
                If StrPtr(vntInput) = 0 Then Exit Sub 'Abbrechen gedrückt
                If Trim$(vntInput) = "" Then
                    Call MsgBox(Prompt:="Bitte etwas eingeben.", Buttons:=vbExclamation)
                Else
                    Exit Do
                End If
          Loop
          For Each rng In Selection
                With rng
                    If Not .Comment Is Nothing Then Call .Comment.Delete
                    Call .AddComment(Text:=vntInput)
                End With
          Next
     Case Else
          For Each rng In Selection
             With rng
                 .Interior.Color = Application.Names(sBereich).RefersToRange.Interior.Color
                 .Value = Application.Names(sBereich).RefersToRange.Value
             End With
          Next
End Select
End Sub

MfG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung beim löschen
 04.11.2021 10:52:05 SmileStyle
NotSolved
04.11.2021 14:21:54 volti
Solved
04.11.2021 14:32:38 SmileStyle
NotSolved