Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige