Thema Datum  Von Nutzer Rating
Antwort
08.09.2017 09:23:23 Ekwah
NotSolved
08.09.2017 09:26:36 Gast51932
NotSolved
08.09.2017 09:59:05 Ekwah
NotSolved
08.09.2017 10:03:22 Gast34933
NotSolved
Rot Zeile mit einem Muster versehen, wenn Zelle einen bestimmten Wert aufweist
 08.09.2017 20:44:57 Gast64297
Solved

Ansicht des Beitrags:
Von:
Gast64297		 Datum:
08.09.2017 20:44:57		 Views:
567		 Rating:
     
Antwort:
 Nein
Thema:
Zeile mit einem Muster versehen, wenn Zelle einen bestimmten Wert aufweist		 
Option Explicit

Sub Doit()

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 Then
                  FA = c.Address
                  Do
                     'Testfüllung
                     With rngU.Rows(c.Row).Interior
                        .Pattern = xlPatternLinearGradient
                        .Gradient.Degree = 135
                        .Gradient.ColorStops.Clear
                        With .Gradient.ColorStops
                           With .Add(0)
                              .ThemeColor = xlThemeColorDark1
                              .TintAndShade = 0
                           End With
                           With .Add(0.5)
                              .ThemeColor = xlThemeColorDark1
                              .TintAndShade = -0.149021881771294
                           End With
                           With .Add(1)
                              .ThemeColor = xlThemeColorDark1
                              .TintAndShade = 0
                           End With
                        End With
                     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
08.09.2017 09:23:23 Ekwah
NotSolved
08.09.2017 09:26:36 Gast51932
NotSolved
08.09.2017 09:59:05 Ekwah
NotSolved
08.09.2017 10:03:22 Gast34933
NotSolved
Rot Zeile mit einem Muster versehen, wenn Zelle einen bestimmten Wert aufweist
 08.09.2017 20:44:57 Gast64297
Solved