Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme beim Hintergrund nach Kriterien farblich markieren
 12.04.2018 09:28:06 Sarah
NotSolved
12.04.2018 14:42:21 Gast84146
Solved
13.04.2018 08:36:03 Gast88874
Solved
13.04.2018 09:26:13 Gast35500
NotSolved

Ansicht des Beitrags:
Von:
Sarah		 Datum:
12.04.2018 09:28:06		 Views:
1040		 Rating:
     
Antwort:
  Ja
Thema:
Probleme beim Hintergrund nach Kriterien farblich markieren

Moin ihr Lieben!

Folgendes Problem:

Ich habe mit VBA einen Code programmiert, der mir aus vielen Tabellen bestimmte Spalten nach Kriterien heraus filtert und in einem neuen Tabellenblatt anlegt. Soweit auch alles gut.

Nun habe ich eine Spalte in der Prozentzahlen auftreten und diese möchte ich je nach Kriterien farblich markieren, also den Hintergrund.

Alles was kleiner als 5 ist, soll rot markiert werden, auch negative Zahlen. Alles was zwischen 5 und 10 liegt soll gelb markiert werden und alles über 10 grün.

Nun dachte ich, ich spare mir die Arbeit und wende die bedingte Formatierung an, nur leider ist die jedes Mal weg, wenn ich mein Makro starte, da die Liste täglich aktualisiert wird und die Spalteneinträge dafürt gelöscht werden. Also probierte ich die Möglichkeit aus, unter laufen lassen des Makro Rekorders die bedingte Formatierung auszuführen und das Makro einfach in meinem Zielmakro am Ende aufzurufen.

Da passiert auch was, aber er markiert die Überschrift auch grün, die soll weiß bleiben, die Werte kleiner als 5 rot und die größer 10 in grün, aber im Zwischenbereich passiert nichts und die Hintergründe bleiben weiß.  Das Makro ist unten aufgeführt.

Hat Jemand eine Idee?

 

Danke euch schon mal! :)

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Farbig()
'
' Bedingt Makro
'
' Tastenkombination: Strg+Umschalt+B
'
 
    Columns("C:C").Select
     
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=10"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
     
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=5"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
     
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=5", Formula2:="=10"
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
   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:
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
Rot Probleme beim Hintergrund nach Kriterien farblich markieren
 12.04.2018 09:28:06 Sarah
NotSolved
12.04.2018 14:42:21 Gast84146
Solved
13.04.2018 08:36:03 Gast88874
Solved
13.04.2018 09:26:13 Gast35500
NotSolved