online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Jeremy vom 17.09.2021, 12:40 Options

Lösung

Bedingte Formatierung mit mehr als 3 Bedingungen

Hallo Leute,


ich suche nach eienr Lösung für bedingte Formatierungen mit mehr als 3 Kriterien.

1. 0 %
2. 1-25 %
3. 26-50 %
4. 51-75 %
5. 76-99 %
6. 100 %


Prinzipiell möchte ich in einen Projektplan, in der jede Zeile eine Position darstellt, eine gewisse Zelle für den Status errichten. Dafür habe ich die Zelle im Vorfeld als Prozent festgelegt und die einzelnen Mitarbeiter tragen ihre Zahl ein, bspw. 63, was dann 63 % wäre.

Die einzelnen Stufen von 0 - 100 % möchte ich dann mit Farben autoamtisch hinterlegen lassen, so von rot (0%) - grün (100%).

Mit drei Aktionen macht das ja die bedingte Formatierung mit, aber halt nicht mehr (zumnidestens bei meinem Excel 2003).

Ich habe mir auch mal die Sachen von Hajo auf seiner HP angeschaut, komme da aber nicht wirklich weiter, da ich von diesem thema leider keine Ahnung habe.
Wie kann ich denn von dort ein entsprechendes Makro auf meine Datei übernehmen?? bzw. wie kann ich sei nach meinen Bedürfnissen anpassen??


Vielleicht gibt es ja auch noch eine andere Möglichkeit.


Vielen Dank für eure Hilfe im Voraus.


Danke Jeremy


Antwort schreiben

Antwort 1 von Hajo_Zi vom 17.09.2021, 12:57 Options

Hallo Jeremy,

Du mußt erstmal entscheiden ob Eingabe oder Formel.
Dann nur den Code unter der Tabelle in Deine Datei auch unter die Tabelle kopieren.
Es sind ja Kommentare im Code zu Erklärung.

Gruß Hajo

Antwort 2 von Jeremy vom 17.09.2021, 13:05 Options

Hallo Hajo,


leider bin ich ja nicht wie du eine Excel-Koryphäe, sondern ein kleiner User, ohne besondere Kenntnisse.

Was ist der Unterschied zwischen Eingabe oder Formel?


Veilen Dank fürdeine Ziet und Hilfe.


Jeremy

Antwort 3 von Hajo_Zi vom 17.09.2021, 13:12 Options

Hallo Jeremy ,

Das sollte man schon wissen, wenn man mit Excel arbeitet.
Ich gehe in A1 und schreibe =A2+1
dann gehe ich in A2 und tippe 2 und Enter.
In A2 war das jetzt eine Eingabe und in A1 war es jetzt eine Veränderung einer Formel.

Gruß Hajo

Antwort 4 von Jeremy vom 17.09.2021, 14:10 Options

Hallo Hajo,


sorry das habe ich dann falsch verstanden, jetzt weiß ich was du meintest. Sorry, habe gerade auf dem Schlauch gestanden.

Also wie schon anfangs beschrieben habe ich in meinem Dokument eine Spalte (D14:D204) in der der Mitarbeiter eintragen soll, wie weit ihre Planung ist, also eine Prozentzahl zwischen 0 und 100 %.

und da möchte ich 6 verschiedene farben haben.

Geht das mit einer deiner Möglichkeiten und wie muss ich diese anpassen?


LG Jeremy

Antwort 5 von Hajo_Zi vom 17.09.2021, 14:24 Options

Hallo Jeremy,

das löst Du mit der ersten Datei. Ich würde den Code von Tabelle 1 benutzen beachte nur 10% ist 0,1

Case 0.01 to 0.25

Gruß Hajo

Antwort 6 von Jeremy vom 17.09.2021, 15:35 Options

Hallo Hajo,


leider bin ich wie gesagt da leider nicht fit genug, deswegen wende ich mich bei solchen Sachen ja auch gerne ans Forum, welches immer sehr gute Dienste leistet.

Habe die Datei jetzt mal hochgeladen und oben unter der Überschrift die Prozentangaben mit den jeweiligen Farben eingetragen.

http://rapidshare.com/files/281328343/Projectplan_FWC.xls

Es handelt sich bei der gewünschten Anpassung um die Zellen
D15 - D(letzte mögliche).

Wäre nochmal toll, wenn mir da jemand behilflich sein könnte, da ich auf diesem gebiet absolut keine Erfahrung habe und nichts verkehrt machen möchte.


Vielen herzlichen Dank


Jeremy

Antwort 7 von Hajo_Zi vom 17.09.2021, 15:47 Options

Hallo Jeremy,

ich habe die Datei jetzt nicht runtergeladen. Die Änderung hätte ich auch nicht als kompliziert angesehen.
Beachte den Kommentar.
Option Explicit ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Range)
'**************************************************
'* H. Ziplies *
'* 17.09.09 *
'* erstellt von HajoZiplie *
'* http://Hajo-Excel.de/ *
'**************************************************
' Vorgabe
' 1. 0 %
' 2. 1-25 %
' 3. 26-50 %
' 4. 51-75 %
' 5. 76-99 %
' 6. 100 %
' Bereicch>0 und <1; >25 <26; >50<51; >75 <76; >99<100 werden nicht formatiert
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("D15:D65536")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
For Each RaZelle In RaBereich
With RaZelle
Select Case .Value
Case 0
.Interior.ColorIndex = 1
Case 0.01 To 0.25
.Interior.ColorIndex = 6
Case 0.26 To 0.5
.Interior.ColorIndex = 3
Case 0.51 To 0.75
.Interior.ColorIndex = 4
Case 0.76 To 0.99
.Interior.ColorIndex = 5
Case 1
.Interior.ColorIndex = xlNone
End Select
End With
Next RaZelle
End If
Set RaBereich = Nothing
End Sub


Gruß Hajo

Antwort 8 von Jeremy vom 17.09.2021, 16:06 Options

Hallo Hajo,

wie immer, erst einmal vielen Dank.

Leider bin ich für so etwas scheinbar zu doof.
Ich habe es eingefügt und auch in Optionen das Häkchen gesetzt, aber scheinbar habe ich es falsch gemacht.



http://rapidshare.com/files/281340006/Projectplan_FWC-2.xls



Wenn du nochmal eine Minute entbehren kannst, wäre das ganz toll.


Vielen Dank


Jeremy

Antwort 9 von Hajo_Zi vom 17.09.2021, 16:19 OptionsLösung

Lösung
Hallo Jeremy,

einfach auf das Register gehen rechte Maustaste, Code anzeigen und Code ins rechte Fenster kopieren. Makros müssen aktiv sein.
Der Bereich ist als Prozent formatiert.

Gruß Hajo

Antwort 10 von Jeremy vom 17.09.2021, 16:56 Options

Es funktioniert !!!

Und es war ganz einfach, sogar für mich.


Tausend Dank.


Gruß Jeremy

Ähnliche Themen

Bedingte Formatierung
fedjo  22.05.2008 - 211 Hits - 9 Antworten

bedingte Formatierung
joker61  03.02.2009 - 175 Hits - 1 Antwort

Bedingte Formatierung
afetinci  21.04.2009 - 308 Hits - 14 Antworten

Bedingte Formatierung
Johannes94  05.08.2009 - 179 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026