Thema Datum  Von Nutzer Rating
Antwort
24.01.2018 10:02:39 ChriizZy
*****
NotSolved
Blau VBA: Zellen löschen wenn Bedingung nicht erfüllt ist
 24.01.2018 12:38:15 Uwe
*****
NotSolved
24.01.2018 12:44:22 Gast70769
Solved

Ansicht des Beitrags:
Von:
Uwe		 Datum:
24.01.2018 12:38:15		 Views:
467		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Zellen löschen wenn Bedingung nicht erfüllt ist

Hallo,

meinst Du das so?

Zum testen kannst Du ja das clearContents ausblenden und die beiden Debug.Print-Zeilen aktivieren.

    For Each c In rng
        If Not c = "H" And _
            Not c = "K" And _
            Not c = "P" Then                'Alle Zellen, die nicht Inhalt "H", "P" und "K" haben, werden gelöscht
                c.clearContents             'löscht nur den Inhalt
                'c.Clear                     'löscht Inhalt und Formatierung ()
            'Debug.Print c.Address & " - cc"
        Else
            'Debug.Print c.Address & ":=" & c.Value & " - nicht gelöscht"
        End If
    Next c

 

Uwe

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
24.01.2018 10:02:39 ChriizZy
*****
NotSolved
Blau VBA: Zellen löschen wenn Bedingung nicht erfüllt ist
 24.01.2018 12:38:15 Uwe
*****
NotSolved
24.01.2018 12:44:22 Gast70769
Solved