Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbliche Unterstützung

Forumthread: Farbliche Unterstützung

Farbliche Unterstützung
11.02.2006 11:39:45
Bodo Luitjens
Moin Moin,
habe ein kleines Problem bei meinen Datenmengen.
Habe Spalten mit mehreren 100 Daten. Alle Werte von ca. 35 bis 80 (Zahlenwerte)
Sind Werte aus Datenloggern und beziffern die Raumfeuchte
Möchte jetzt, das Excel automatisch Blöcke von Zahlenbereichen farblich hinterlegt.
Z.Bsp. Alle Zahlenkolonnen von 30 bis 40 sollen mit grün hinterlegt sein. Alle Zahlenkolonnen von 40 bis 50 in hellgrün....
Bei über 80 soll dann rot erscheinen. Somit hätte ich einen sauberen Überblick wann die Luftfeuchte einen gefährlichen Bereich einnimmt.
Habe bisher keine geeignete Lösung dafür gefunden, vielleicht kann mir einer von Euch helfen.
Gruß aus dem feuchten Ostfriesland
Bodo
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbliche Unterstützung
11.02.2006 11:45:55
US
Hallo Bodo!
Wenn du bei deinen drei Argumenten bleiben willst, dann ist das ein Fall für "Bedingte Formatierung"
Format
Bedingte Formatierung
Zellwert ist - zwischen - 30 - 40 - dann Format und Farbe wählen.
Gruß US
AW: Farbliche Unterstützung
11.02.2006 11:54:30
Peter Feustel
Hallo Bodo,
vielleicht so:

Public Sub Faerben()
Dim Zelle
   
   For Each Zelle In ActiveSheet.UsedRange
      If Zelle.Value > 29 And _
         Zelle.Value < 41 Then
         Zelle.Interior.ColorIndex = 10
      ElseIf Zelle.Value > 40 And _
         Zelle.Value < 51 Then
         Zelle.Interior.ColorIndex = 35
      ElseIf Zelle.Value > 80 Then
         Zelle.Interior.ColorIndex = 3
      End If
   Next Zelle
   
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Farbliche Unterstützung
11.02.2006 12:05:49
Peter Feustel
Hallo Bodo,
oder noch kürzer:

Public Sub Faerben_II()
Dim Zelle
   
   For Each Zelle In ActiveSheet.UsedRange
      If IsNumeric(Zelle) Then
         Select Case Zelle
            Case 30 To 40: Zelle.Interior.ColorIndex = 10
            Case 41 To 50: Zelle.Interior.ColorIndex = 35
            Case Is > 80:  Zelle.Interior.ColorIndex = 3
         End Select
      End If
   Next Zelle
   
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige