Office: Zellen automatisch färben wenn gewisse Bedingungen erfüllt sind

Hallo ich bin hier neu im Forum,

und habe folgendes Problem. Wir haben im Moment eine Excel Datei wo unsere Kostenstellen im Werk ihre Störungen eingeben können, damit wir von der Instandhaltung diese abarbeiten können.

Im Moment läuft eigentlich alles nur möchte ich für uns einiges vereinfachen, und das wäre folgendes:

1. der jeweilige Status einer Reparatur soll sich automatisch ändern wenn
gewisse Zellen geändert werden:

2. Je nach Status soll die gesamte Zeile farblich eingefärbt werden

3. ist ein Wunsch: alle "erledigten Arbeiten" sollen in eine andere Tabelle
kopiert werden.


So nun zum Tabellen Aufbau:

A1: Inventarnr.
B1: Maschine
C1: Störung
D1: Auftraggeber
E1: Priorität
F1: Starttermin
G1: Endtermin
H1: Ausführender
I1: Status

So jetzt die Bedingungen

Wird A2 beschrieben soll I2 auf "offen" gehen
Wird F2 beschrieben soll I2 auf "in Arbeit" gehen und dann sollen die
Zeile A2-I2 "gelb" eingefärbt werden.
Wird G1 beschrieben soll I2 auf "erledigt" gehen und dann sollen die Zellen
Zeile A2-I2 "grün" eingefärbt werden.

Würde man den Wunsch berücksichtigen sollte dann diese Zeile in eine andere Tabelle verschoben werden.

Das ganze soll natürlich auf der gesamten Tabelle funktionieren.

Habe schon gedingten Formation probiert und mit der Wenn Funktion, aber da er drei Varianten hat wird es schwer das mit WENN zu realisieren.


Danke Thorsten

:)

 

Hallo Torsten

ich sehe in Deinem Beitrag nur 2 Farben gelb, grün und da reicht doch noch die Bedingte Formatierung. Das kopieren muß über VBA erfolgen.

Für mehr Bedingungen schaue mal auf meine Homepage.





Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo_Zi,

danke für die schnelle Antwort.

Es ist richtig das man nur zwei Farben sieht.
Es sind aber eigentlich drei, nämlich weiss beim Anfang der Tabelle also wenn Status "offen" und dann die Farben "gelb" und "Grün"


Thorsten

 

Hallo Thorsten

einigen wir uns auf 3. Die bedingte Formatierung ist aber für 3 Bedingungen anwendbar.





Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo,

ja dein eines Makro macht genau das was ich möchte, aber es färbt ja immer nur die die betreffende Zelle ein, und leider nicht die gesamte Zeile von a1-i1.

Ich bin in VBA überhaupt kein Crack und habe mich noch nie damit beschäftigt.

Kannst Du mir helfen ?


Thorsten

 

Hallo Thorsten

warum jetzt ein Makro herhalten soll ist mir nich klar.

Für Spalte A bis D

Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 4)).Interior.ColorIndex = 1






Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo,

entschuldige kan sein das ich mich falsch ausdrücke.

Wenn ich deine Beispieltabelle aufrufe sagt mir mein Excel das ein Makro aktiviert werden möchte. Wenn ich mir dann den Visual Basic Editor ansehe zeigt er mir dieses Makro an.

Die Zeile die Du hier aufzeigst wo soll ich die im Makro einfügen ?

Den Rest kann ich so einigermaßen nachvollziehen.

Danke für Deine Geduld und Mühe

Thorsten

 

Hallo Thorsten

leider hast Du nicht geschrieben welche Datei. Ich vermute mal Format1

dort steht unter der Tabelle z.B.

Case "1"
RaZelle.Interior.ColorIndex = 1

und die zweite Zeile muß ersetzt werden.






Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hajo,

super das klappt.

Jetzt sage mir bitte nur noch wie ich den Bereich erweitern kann auf i.

Ist es die Zeile

Set RaBereich = Range("B3:C20, D1:D7") ?

und wie übertrage ich diese Marko auf meine vorhandene Datei ??

Danke Thorsten

 

Hallo Thorsten

die Stelle ast Du da schon richtig erkannt. Ersetze dien Teil nur durch Deinen Bereich.

Set RaBereich = Range("B3:C20, D1:d7")

Set RaBereich = Range("I1:I65536") obwohl man dies auch einfacher machen kann.

If RaZelle.Column = 9 Then
' If Not Intersect(RaZelle, RaBereich) Is Nothing Then

und alls mt RaBereich löschen, falls es nur um Spalte I geht.

Kopiere den Code einfach in Deine Datei unter VBA unter die entsprechende Datei, wie im Original.






Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo,

also das habe ich kapiert

Ich habe in der Zeile

Range(Cells(RaZelle.Row, 1), Cells(RaZelle.Row, 9)).Interior.ColorIndex = 1

den alten Wert 4 auf 9 erhöht damit ich so habe ich es verstanden 9 Felder einfärbe.

Klappt prima !!!

Wie schalte ich jetzt noch die Großschrift aus ?

Muss ich dies Zeile nur lösen ???

Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben

Ach ja und dann hoffe ich die letzte Frage:

Muss ich wenn ich neun Tabellen habe in jede Tabelle das Makro kopieren ?

Danke Thorsten

 

Hallo Torsten

falls Du noch mehr als die 9 Tabellen hast mußt Du den Code in jede Tabelle kopieren. Ansonsten unter

DieseArbeitsmappe unter

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


Dein Problem mit der Großschrift verstehe ich nicht. Mein Code wandelt in den Zellen nichts in Großbuchstaben um. Es wird nur in VBA umgewandelt damit kein unterschied zwischen Groß und Kleinschreibung.

Falls Du Unterscheidung haben willst lösche das Ucase





Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

 

Hajo,

das DU mit mir solche Geduld hast finde ich echt klasse !!!

Wenn ich in Case "offen" schreiben

und das dann in der Excel in Zeile I schreibe dann funktioniert dieses nicht

Wenn Du sagst das ich soll die Zeile
Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben

löschen ?

muss ich dann auch die Zeile

End Select

löschen ?

Ich habe Dir mal meine Datei mitgeschickt. Ich denke dann weißt Du was ich will. Es ist so das ich einige Tabellen noch umändern muss

Thorsten

 

Hallo Hajo,

konntest Du etwas mit der Tabelle anfangen ?

Außerdem wäre es schön wenn Du mir noch sagen könntest was,
wie ich mit Select verfahren sollte

Habe es rausgenommen und jetzt funktioniert garnicht mehr.

Danke

Thorsten

 

Hallo Thorsten

Da ist wohl eine Benachrichtigung mir unter gegangen. Mit Deiner Tabelle jkann ich nichts anfangn, ich habe meinen Code nicht gefunden. Nur das Wort Ucase löschen nicht die gesamte Zeile. Dann wird aber die Eingabe 1 zu 1 überprüft "Wert" ist was anderes als "wert"





Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.