Thema Datum  Von Nutzer Rating
Antwort
13.12.2018 09:13:38 Hady
NotSolved
13.12.2018 10:11:14 Gast67074
NotSolved
13.12.2018 12:03:24 Hady
NotSolved
Blau Bedingte Formatierung
13.12.2018 18:01:38 Gast67074
NotSolved

Ansicht des Beitrags:
Von:
Gast67074		 Datum:
13.12.2018 18:01:38		 Views:
436		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Formatierung 
Sub Test()

   Rows.Hidden = False
   DoIt 44

End Sub

Private Sub DoIt(DColor)
Dim rngC As Range, c As Range, x As Long

   Set rngC = Range(Cells(6 + 1, 21), Cells(Rows.Count, 21).End(xlUp))
   For x = rngC.Cells.Count To 1 Step -1
      If rngC.Cells(x).DisplayFormat.Interior.ColorIndex = DColor Then _
      rngC.Cells(x).EntireRow.Hidden = True
   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
13.12.2018 09:13:38 Hady
NotSolved
13.12.2018 10:11:14 Gast67074
NotSolved
13.12.2018 12:03:24 Hady
NotSolved
Blau Bedingte Formatierung
13.12.2018 18:01:38 Gast67074
NotSolved