Thema Datum  Von Nutzer Rating
Antwort
28.07.2017 15:27:18 Thomas
NotSolved
28.07.2017 15:41:00 Gast50029
NotSolved
28.07.2017 17:31:11 Thomas
NotSolved
Blau Sicher doch einfach ;-)
 28.07.2017 17:37:49 Gast70117
Solved
28.07.2017 18:30:55 Gast93726
NotSolved
30.07.2017 09:15:48 Thomas
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
28.07.2017 17:37:49		 Views:
569		 Rating:
     
Antwort:
 Nein
Thema:
Sicher doch einfach ;-)		 
Sub myRotMarkierteLöschen()
Dim Rng As Range, x As Long, y As Long
 
    Set Rng = Range(Cells(1, 1), Cells(20, 1)).SpecialCells(xlCellTypeAllFormatConditions)
         
    For x = Rng.Areas.Count To 1 Step -1
      For y = Rng.Areas(x).Cells.Count To 1 Step -1
        With Rng.Areas(x).Cells(y)
         If .FormatConditions(1).Interior.Color <> .DisplayFormat.Interior.Color Then
            'nur zum Test
            .Select
            'löschen
            .EntireRow.Delete
         End If
        End With
      Next y
      
    Next x
     
End Sub

 

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
28.07.2017 15:27:18 Thomas
NotSolved
28.07.2017 15:41:00 Gast50029
NotSolved
28.07.2017 17:31:11 Thomas
NotSolved
Blau Sicher doch einfach ;-)
 28.07.2017 17:37:49 Gast70117
Solved
28.07.2017 18:30:55 Gast93726
NotSolved
30.07.2017 09:15:48 Thomas
NotSolved