Thema Datum  Von Nutzer Rating
Antwort
19.09.2017 11:11:56 Darkproxx
NotSolved
19.09.2017 11:38:46 Gast50755
*****
NotSolved
Rot Zeile mit bestimmten Muster versehen, wenn eine 12 in Spalte E vorkommt
 19.09.2017 11:56:58 Gast20730
NotSolved

Ansicht des Beitrags:
Von:
Gast20730		 Datum:
19.09.2017 11:56:58		 Views:
525		 Rating:
     
Antwort:
  Ja
Thema:
Zeile mit bestimmten Muster versehen, wenn eine 12 in Spalte E vorkommt

Nun passiert aber leider garnichts mehr, wenn ich das so eingefügt habe.  Also ohne den Effekt. Er färbt garnichts mehr.

 

Sub makro()
Dim rngU As Range, rngCol As Range, c As Range, FA As String
    
   With ActiveSheet
      With .Columns(5)
         Set rngCol = Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
         Set rngU = rngCol.Offset(, -4).Resize(, 58)
      With rngCol
         Set c = .Find(12, LookIn:=xlValues, Lookat:=xlWhole)
            If Not c Is Nothing And c.Interior.ColorIndex = 36 Then
                  FA = c.Address
                  Do
                     'Testfüllung
                     With rngU.Rows(c.Row).Interior
                    .Pattern = xlLightUp
                    .PatternThemeColor = xlThemeColorDark2
                    .ColorIndex = 36
                    .TintAndShade = 0
                    .PatternTintAndShade = -0.14996795556505
                     End With
                     Set c = .FindNext(c)
                  Loop While Not c Is Nothing And c.Address <> FA
               End If
            End With
      End With
   End With
 
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
19.09.2017 11:11:56 Darkproxx
NotSolved
19.09.2017 11:38:46 Gast50755
*****
NotSolved
Rot Zeile mit bestimmten Muster versehen, wenn eine 12 in Spalte E vorkommt
 19.09.2017 11:56:58 Gast20730
NotSolved