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:
580		 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.

?
1
2
3
4
5
6
7
8
9
10
11
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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