Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Bedingte Formatierung per VBA auf Zeile ausdehnen
129 views
Skip to first unread message
Ralf Gläßer
Jun 5, 2014, 10:47:02 AM6/5/14
to
Hallo,
ich hï¿œtte da mal ne Frage....
In einer Tabelle ist fï¿œr die Zellen (M5:M99) eine bedingte Formatierung
festgelegt, die die Zelle farbig einfï¿œrbt.
Jetzt soll ausgehend von der Spalte M die Zellen in der Zeile fï¿œr die
Spalten B-L per Makros auch mit dieser Farbe ausgefï¿œllt werden.
Dieses Makro hier macht das zwar, erscheint mir aber nicht optimal.
Sub Farbe()
Dim Farbe As Integer
For i = 5 To 99
Farbe = Cells(i, 13).Interior.ColorIndex
For j = 2 To 12
Cells(i, j).Interior.ColorIndex = Farbe
Next j
Next i
End Sub
Auￜerdem wￜre es zweckmￜￜig, wenn die Schleife nicht immer bis zur 99
durchlï¿œuft, sondern wenn der letzte Eintrag in Spalte M erreicht ist
beendet wird. Manchmal sind eben nur mal 10 Zeilen mit Daten gefï¿œllt.
Hat da jemand ne bessere Lï¿œsung als meine?
Ralf
ich hï¿œtte da mal ne Frage....
In einer Tabelle ist fï¿œr die Zellen (M5:M99) eine bedingte Formatierung
festgelegt, die die Zelle farbig einfï¿œrbt.
Jetzt soll ausgehend von der Spalte M die Zellen in der Zeile fï¿œr die
Spalten B-L per Makros auch mit dieser Farbe ausgefï¿œllt werden.
Dieses Makro hier macht das zwar, erscheint mir aber nicht optimal.
Sub Farbe()
Dim Farbe As Integer
For i = 5 To 99
Farbe = Cells(i, 13).Interior.ColorIndex
For j = 2 To 12
Cells(i, j).Interior.ColorIndex = Farbe
Next j
Next i
End Sub
Auￜerdem wￜre es zweckmￜￜig, wenn die Schleife nicht immer bis zur 99
durchlï¿œuft, sondern wenn der letzte Eintrag in Spalte M erreicht ist
beendet wird. Manchmal sind eben nur mal 10 Zeilen mit Daten gefï¿œllt.
Hat da jemand ne bessere Lï¿œsung als meine?
Ralf
Claus Busch
Jun 5, 2014, 11:04:39 AM6/5/14
to
Hallo Ralf,
Am Thu, 05 Jun 2014 16:47:02 +0200 schrieb Ralf Gl��er:
> In einer Tabelle ist f�r die Zellen (M5:M99) eine bedingte Formatierung
> festgelegt, die die Zelle farbig einf�rbt.
> Jetzt soll ausgehend von der Spalte M die Zellen in der Zeile f�r die
> Spalten B-L per Makros auch mit dieser Farbe ausgef�llt werden.
ich glaube nicht, dass das Makro dir die Zellen einf�rbt, denn die
Farben der bedingten Formatierung lassen sich nicht einfach mit
Interior.ColorIndex auslesen.
Mache es besser �ber die bedingte Formatierung. W�hle bei "Wird
angewendet auf" z.B. =$B$1:$M$1500
und gebe bei der Formel die Spalte absolut ein, also z.B.:
=$M1>10
Dann wird dir die ganze Zeile von B:M eingef�rbt.
Falls du es nicht zum Laufen kriegst, poste mal die Formel der bedingten
Formatierung oder lade deine Mappe hoch und poste hier den Link dazu.
Mit freundlichen Gr��en
Claus
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
Am Thu, 05 Jun 2014 16:47:02 +0200 schrieb Ralf Gl��er:
> In einer Tabelle ist f�r die Zellen (M5:M99) eine bedingte Formatierung
> festgelegt, die die Zelle farbig einf�rbt.
> Jetzt soll ausgehend von der Spalte M die Zellen in der Zeile f�r die
> Spalten B-L per Makros auch mit dieser Farbe ausgef�llt werden.
ich glaube nicht, dass das Makro dir die Zellen einf�rbt, denn die
Farben der bedingten Formatierung lassen sich nicht einfach mit
Interior.ColorIndex auslesen.
Mache es besser �ber die bedingte Formatierung. W�hle bei "Wird
angewendet auf" z.B. =$B$1:$M$1500
und gebe bei der Formel die Spalte absolut ein, also z.B.:
=$M1>10
Dann wird dir die ganze Zeile von B:M eingef�rbt.
Falls du es nicht zum Laufen kriegst, poste mal die Formel der bedingten
Formatierung oder lade deine Mappe hoch und poste hier den Link dazu.
Mit freundlichen Gr��en
Claus
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
Ralf Gläßer
Jun 5, 2014, 4:34:40 PM6/5/14
to
erstmal hatte ich vergessen, dass es Excel2003 betrifft, wo die bedingte
Formatierung noch ein wenig anders einzustellen ist.
Aber ich habe es hinbekommen.
Bereich von B5:M99 markiert.
Bedingte Formatierung aufgerufen.
Formel eingegeben - "=UND($B5="";$M5<HEUTE()+3;$M5<>"")"
OK
Sobald jetzt die Bedingung in einer Zelle der M-Spalte erf�llt ist, also
B muss leer sein, Datum in M ist in drei Tagen und in M muss was stehen,
wird die ganze Zeile von B bis M eingef�rbt.
Der Tip mit dem Bereich war ausschlaggebend.
Danke
Ralf Gläßer
Jun 23, 2014, 10:51:00 AM6/23/14
to
Am 05.06.2014 17:04, schrieb Claus Busch:
> Hallo Ralf,
>
> Hallo Ralf,
>
> Mache es besser �ber die bedingte Formatierung. W�hle bei "Wird
> angewendet auf" z.B. =$B$1:$M$1500
> und gebe bei der Formel die Spalte absolut ein, also z.B.:
> =$M1>10
> Dann wird dir die ganze Zeile von B:M eingef�rbt.
>
> Falls du es nicht zum Laufen kriegst, poste mal die Formel der bedingten
> Formatierung oder lade deine Mappe hoch und poste hier den Link dazu.
>
>
> Mit freundlichen Gr��en
> Claus
>
Hallo Claus,
> angewendet auf" z.B. =$B$1:$M$1500
> und gebe bei der Formel die Spalte absolut ein, also z.B.:
> =$M1>10
> Dann wird dir die ganze Zeile von B:M eingef�rbt.
>
> Falls du es nicht zum Laufen kriegst, poste mal die Formel der bedingten
> Formatierung oder lade deine Mappe hoch und poste hier den Link dazu.
>
>
> Mit freundlichen Gr��en
> Claus
>
das ganze Drama hatte ich ja f�r Excel 2003 hinbekommen, hat auch
funktioniert.
Nun steht wegen Softwareaktualisierung das Problem unter Excel2010. Da
geht der Salat von 2003 nicht mehr. �ber die ganze Art und Weise der
bedingten Formatierung unter Excel 2010 blicke ich noch nicht so richtig
durch.
Nochmal kurz zum Problem:
bedingte Formatierung in M5 "=UND($B5="";$M5<HEUTE()+3;$M5<>"")"
Sobald jetzt die Bedingung in einer Zelle der M-Spalte erf�llt ist, also
B muss leer sein, Datum in M ist in drei Tagen und in M muss was stehen,
soll die ganze Zeile von B bis M eingef�rbt werden
B muss leer sein, Datum in M ist in drei Tagen und in M muss was stehen,
Da in diesem Blatt regelm��ig �ber die Autofilterfunktion Zeilen
gel�scht werden, hatte ich unter Excel2003 ab und an den seltsamen
Effekt, das die Formel der bedingten Formatierung nicht mehr gestimmt
haben und dann auf einmal eine Zeile markiert war, obwohl dort in Spalte
M das Datum noch gar nicht ran war, aber daf�r in einer anderen Zeile,
die nicht markiert wurde :-( weil dort die Bez�ge nicht mehr stimmten.
Noch ne Frage (s.o.)zu:
=$M1>10
was macht denn das ">" hier
Wenn ich jetzt den Bereich wie oben festlege, kann es da Probleme durch
das L�schen �ber die Autofilterfunktion geben oder halten die Zellen
nach dem Abschalten des Autofilters ihre Bez�ge f�r den ganzen Bereich?
Claus Busch
Jun 23, 2014, 11:09:50 AM6/23/14
to
Hallo Ralf,
Am Mon, 23 Jun 2014 16:51:00 +0200 schrieb Ralf Gl��er:
> Noch ne Frage (s.o.)zu:
> =$M1>10
das war halt als Beispiel. Ich wu�te ja nicht nach welcher Bedingung du
einf�rbst. Ich habe dann mal M1 gr��er 10 genommen.
> Wenn ich jetzt den Bereich wie oben festlege, kann es da Probleme durch
> das L�schen �ber die Autofilterfunktion geben oder halten die Zellen
> nach dem Abschalten des Autofilters ihre Bez�ge f�r den ganzen Bereich?
Die Formeln in der bedingten Formatierung passen sich ja an, als wenn
sie im Blatt stehen w�rden und w�rden heruntergezogen werden.
Bei Versionen vor 2007 hast du bei der bedingten Formatierung
verschiedene Formeln gesehen, je nachdem welche Zelle aktiviert war.
Jetzt bezieht sich die Formel immer auf die erste Zelle und sollte sich
nicht ver�ndern. Ich habe nur kurz getestet, aber es ist alles korrekt
geblieben.
Au�erdem kannst du jetzt den Cursor in den formatierten Bereich stellen
und bei der Bedingten Formatierung "Regeln verwalten" w�hlen und dort
schnell �nderungen durchf�hren.
Mit freundlichen Gr��en
Claus
Am Mon, 23 Jun 2014 16:51:00 +0200 schrieb Ralf Gl��er:
> Noch ne Frage (s.o.)zu:
> =$M1>10
einf�rbst. Ich habe dann mal M1 gr��er 10 genommen.
> Wenn ich jetzt den Bereich wie oben festlege, kann es da Probleme durch
> das L�schen �ber die Autofilterfunktion geben oder halten die Zellen
> nach dem Abschalten des Autofilters ihre Bez�ge f�r den ganzen Bereich?
sie im Blatt stehen w�rden und w�rden heruntergezogen werden.
Bei Versionen vor 2007 hast du bei der bedingten Formatierung
verschiedene Formeln gesehen, je nachdem welche Zelle aktiviert war.
Jetzt bezieht sich die Formel immer auf die erste Zelle und sollte sich
nicht ver�ndern. Ich habe nur kurz getestet, aber es ist alles korrekt
geblieben.
Au�erdem kannst du jetzt den Cursor in den formatierten Bereich stellen
und bei der Bedingten Formatierung "Regeln verwalten" w�hlen und dort
schnell �nderungen durchf�hren.
Mit freundlichen Gr��en
Claus
Ralf Gläßer
Jun 23, 2014, 3:16:04 PM6/23/14
to
Na mal sehen... irgendwie werd ich schon klarkommen
Danke erstmal
Gru�
Ralf
Ralf Gläßer
Jun 23, 2014, 4:05:20 PM6/23/14
to
Am 23.06.2014 17:09, schrieb Claus Busch:
klappt irgendwie nicht.
Sobald �ber den Autofilter Zeilen gel�scht werden, reduziert sich die
Anzahl bei "wird angewendet auf" um die Anzahl der gel�schten Zeilen.
Irgendwann ist der Wert dann runter und die Formatierung funktioniert
nicht mehr.
Ich steh auf dem Schlauch :-(
Gru�
Ralf
Claus Busch
Jun 24, 2014, 1:50:19 AM6/24/14
to
Hallo Ralf,
Am Mon, 23 Jun 2014 22:05:20 +0200 schrieb Ralf Gl��er:
> Sobald �ber den Autofilter Zeilen gel�scht werden, reduziert sich die
> Anzahl bei "wird angewendet auf" um die Anzahl der gel�schten Zeilen.
> Irgendwann ist der Wert dann runter und die Formatierung funktioniert
> nicht mehr.
dann w�hle doch bei "wird angewendet auf" einen wesentlich gr��eren
Bereich im Vorfeld.
Oder vergr��ere ihn nach mehrmaligem L�schen wieder �ber Regeln
verwalten auf den normalen Bereich.
Oder mache in deinem Fall das Einf�rben �ber VBA.
Mit freundlichen Gr��en
Claus
Am Mon, 23 Jun 2014 22:05:20 +0200 schrieb Ralf Gl��er:
> Sobald �ber den Autofilter Zeilen gel�scht werden, reduziert sich die
> Anzahl bei "wird angewendet auf" um die Anzahl der gel�schten Zeilen.
> Irgendwann ist der Wert dann runter und die Formatierung funktioniert
> nicht mehr.
Bereich im Vorfeld.
Oder vergr��ere ihn nach mehrmaligem L�schen wieder �ber Regeln
verwalten auf den normalen Bereich.
Oder mache in deinem Fall das Einf�rben �ber VBA.
Mit freundlichen Gr��en
Claus
Ralf Gläßer
Jun 24, 2014, 2:37:35 PM6/24/14
to
Am 24.06.2014 07:50, schrieb Claus Busch:
> Hallo Ralf,
>
> Am Mon, 23 Jun 2014 22:05:20 +0200 schrieb Ralf Gl��er:
>
>> Sobald �ber den Autofilter Zeilen gel�scht werden, reduziert sich die
>> Anzahl bei "wird angewendet auf" um die Anzahl der gel�schten Zeilen.
>> Irgendwann ist der Wert dann runter und die Formatierung funktioniert
>> nicht mehr.
>
> dann w�hle doch bei "wird angewendet auf" einen wesentlich gr��eren
> Bereich im Vorfeld.
Nicht machbar, da durch viele Leute an vielen Stellen damit gearbeitet wird.
> Hallo Ralf,
>
> Am Mon, 23 Jun 2014 22:05:20 +0200 schrieb Ralf Gl��er:
>
>> Sobald �ber den Autofilter Zeilen gel�scht werden, reduziert sich die
>> Anzahl bei "wird angewendet auf" um die Anzahl der gel�schten Zeilen.
>> Irgendwann ist der Wert dann runter und die Formatierung funktioniert
>> nicht mehr.
>
> dann w�hle doch bei "wird angewendet auf" einen wesentlich gr��eren
> Bereich im Vorfeld.
> Oder vergr��ere ihn nach mehrmaligem L�schen wieder �ber Regeln
> verwalten auf den normalen Bereich.
s.o.
> verwalten auf den normalen Bereich.
> Oder mache in deinem Fall das Einf�rben �ber VBA.
das habe ich nun gemacht, scheint doch die sicherste Variante bei dem
Filterproblem zu sein
Autostartmakro auf dieses Arbeitsblatt und damit d�rfte Ruhe sein
>
>
> Mit freundlichen Gr��en
> Claus
>
Danke nochmals
>
> Mit freundlichen Gr��en
> Claus
>
Ralf
0 new messages