Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung mit Farbübernahme VBA

Bedingte Formatierung mit Farbübernahme VBA
10.09.2017 20:32:33
Matthias
Hallo Zusammen,
ich habe bereits versucht mir mit fertigen Makros aus dem Internet zu helfen, was allerdings nur begrenzt funktioniert hat. Deshalb bräuchte ich nun eure Hilfe, da ich nicht mehr weiterkomme und meine VBA Kenntnisse noch nicht ausreichend vorhanden sind.
Im Folgenden nun mein Problem:
Ich benötige ein Makro für eine bedingte Formatierung(Bereich J13:FV13) mit Übernahme einer Farbe aus der Zelle(F13). Die Zellen sollten eingefärbt werden wenn sie nicht leer sind. Da der Kapazitäten Plan variabel ist und über mehrere Mitarbeiter gehen soll, müsste das Makro über mehrere Zeilen gehen, eigentlich über den ganzen Bereich. Also soll eine Zeile nach der anderen abgearbeitet werden. Jede Zeile soll die Farbe der Zelle annehmen, die in der Spalte F ist.
Ich hoffe mein Problem ist klar geworden und ihr könnt mir helfen.
Vielen Dank im Voraus!
Die Grobversion des Kapaplans findet ihr hier:
https://www.herber.de/bbs/user/116145.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Musterlösung
10.09.2017 21:11:32
Fennek
Hallo,
der folgende Code ist ein Muster, um per VBA eine bedingte Formatierun zu setzen. Den Range, die Formel und die Farbe musst du anpassen.

Sub Test1()
With Range("A1:G15")
.FormatConditions.Delete 'sonst wird hinzugefügt
.FormatConditions.Add xlExpression, , "=A10"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).Interior.Color = vbGreen
'.FormatConditions(1).StopIfTrue = False
End With
End Sub
mfg
AW: Musterlösung
11.09.2017 14:49:09
Matthias
Hallo Fennek,
Danke für den schnellen Lösungsansatz. Ich denke ich habe es noch nicht richtig dargestellt. Ich benötige die Bedingte Formatierung für jede Zeile, da sich in jeder Zeile ein anderer Auftrag befindet.
Beginnen soll es bei der Zeile 13. Das heißt der Bereich der Zeile 13 wäre J13:FV13 und die Farbe die Verwendet werden soll ist die Zellefüllung in F13, aber nur wenn es nicht weiß ist und der Bereich J13:FV13 nicht leer ist. Bei der nächsten Zeile J14:FV14 und Farbe aus F14. Das sollte sich Zeile für Zeile bis zu einer bestimmten Zeile durchziehen(z.B.: 100).
MfG
Anzeige
AW: Makro?
11.09.2017 15:38:24
Fennek
Hallo,
meine Antwort war: hier ist Hammer und Nagel, aber das Bild mußt du selbst aufhängen.
Die Aufgabe mit einer Formel für bedingter Formatierung zu lösen, ist mir zu komplex / zu zeitaufwändig!
_____________________________
Die Konkretisierung in der Antwort sollte mit einem Makro relativ gut zu lösen sein.
mfg
AW: Makro?
11.09.2017 20:28:40
Matthias
Okay, aber wenn man noch nie ein Bild aufgehängt hat wird es schwierig.
Kann mir sonst noch wer helfen?
Nachfrage
14.09.2017 11:02:32
Michael
Hallo!
So wie ich es bisher verstanden habe, willst Du in jeder Zeile im Grunde eine eigene "bedingte Formatierung", weil bspw. Zellfarben immer von der ersten Zelle der Zeile abhängen. Willst Du das wirklich über die bedingte Formatierung lösen? Eigene Bedingungen pro Zeile ist eigentlich nicht sonderlich performant. Einfach wäre es die gewünschten Formatierungen zwar per Makro auf die entsprechenden Zellen anzuwenden, in einem Rutsch, aber eben direkt und nicht über je eigene Konstruktionen der bedingten Formatierung.
Die Frage ist auch: Soll diese Formatierung einmalig erfolgen, oder soll sich das wiederholen, wenn bspw. weitere Daten (nach Zeile 100) eingegeben werden? Falls sich das wiederholen soll kann man die Formatierung per Makro entweder manuell (per Schaltfläche) auslösen lassen, oder man setzt auf ein Ereignis und führt die Formatierung immer aus, wenn bspw. in einer bestimmten Spalte Werte neu eingetragen werden.
LG
Michael
Anzeige
AW: Nachfrage
14.09.2017 22:34:27
Matthias
Hallo Michael,
Eigentlich sollte es immer durchlaufen wenn etwas geändert wird. Die Farbe dient zur Übersicht. Man erkennt sofert welche Mitarbeiter an welchen Auftrag Arbeiten oder welche Mitarbeiter zusammen an einem Auftrag arbeiten. Da der Plan sehr flexibel ist, wollte ich es Zeile für Zeile bis zu einer Zeile übernehmen lassen. Drum würde ich es auf eine Zeile beschränken und wenn es nötig ist, wollte ich diese dann anpassen.
Die Farbübernahme in die Spalte F hab ich schon hinbekommen. Das heißt er sucht in einer Tabelle im zweiten Tabellenblatt nach der Auftragsnummer und übernimmt die Farbe die direkt daneben steht in das erste Tabellenblatt. Jetzt wollte ich diese Farbe für den Planungsbereich übernehmen und mein gedanke war bedingte Formatierung.
Hast du eine Lösung? Die Datei habe ich im ersten Beitrag hochgeladen.
Danke schön mal im voraus.
LG
Matthias
Anzeige

300 Forumthreads zu ähnlichen Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Anzeige
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Bedingte Formatierung Formel zwischen
lutz

Hallo,
ich komme beie einer bedingten Formatierung nicht weiter:
ich brauche eine Formel, die nur dann die bedingte Formatierung ausgibt wenn ein Vergleichswert in Spalte D zwischen den minimal und maximalwerten aus den Spalten B (min) und C (max) liegt.
Habe es mit =WENN($D$4>$B...
27.01.2009 07:55:00
Thread-ID: 1044063
3 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
6
19
3
8
5
2
3
4
1
3
7
4
6
2
7
7
2
2
2
2
4
5
3