Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung per VBA

Forumthread: Bedingte Formatierung per VBA

Bedingte Formatierung per VBA
20.04.2006 09:06:37
Siggi
Hallo Zusammen,
ich will per Makro in einer Tabelle (A1 bis AL104) den Inhalt der Zellen rot markieren, dessen Inhalt nicht durch 4 teilbar ist.
Danach will ich mit einem weiteren Makro das ganze wieder rückgängig machen.
Hat jemand eine Idee?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 09:31:59
Harald
Moin Siggi,
hier wäre mein Ansatz. Teile den Zellwert durch 4 und wenn im Ergebnis ein Komma ist, dann Zelle rot.

Sub viergewinnt()
Dim rng As Range, test
For Each rng In Range("A1:AL104")
test = rng.Value / 4
If InStr(test, ",") > 0 Then
rng.Interior.ColorIndex = 3
Else
rng.Interior.ColorIndex = xlNone
End If
Next rng
End Sub



Sub farblos()
Range("A1:AL104").Interior.ColorIndex = xlNone
End Sub

Gruss Harald
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 09:34:19
u_
Hallo Harald,
ein Komma im Ergebnis zu suchen ist der Hit! ;-))
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Bedingte Formatierung per VBA
20.04.2006 09:50:39
Harald
hachja...ist ein langer Weg bis vba-gut
Ich gebs ja zu...mein Vorschlag ist -gelinde gesagt- ein bisschen unkonventionell.
Mod 4.... pööö. Angeber....und Matthias schlägt auch noch in dieselbe Kerbe.
Da wär ich auch drauf gekommen.....so etwa in 2 Jahren.
;-))
Gruss Harald
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 09:56:44
Matthias
Hallo Harald,
das zeigt eindeutig, dass du eine String-orientierte Persönlichkeit bist.. ;-))
Eine Zahlenorientierste Persönlichkeit ohne MOD-Kenntnis hätte das vielleicht so gelöst:

test = rng.Value / 4
If test <> Int(test) Then

Grüße,
Matthias
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 10:15:20
Harald
Hallo Matthias,
sinnigerweise hab ich MOD bei meinem Schichtplanrechner im Einsatz, habe aber mit der Syntax noch keine richtige Freundschaft geschlossen.
Schätze das Microsoft-Tribunal zur Distribution von MVP-Titeln steht spätestens jetzt in den Startlöchern um mich zum MRP zu küren (R für Ridiculous)
Ich werde es gebührend zu ertragen wissen ;-))
Gruss Harald
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 09:32:11
u_
Hallo,
mal grob als Ansatz:

Sub rot()
dim c as range
for each c in range("a1:al104")
if c mod 4 <>0 then
c.interior.colorindex=3
else
c.interior.colorindex=xlnone
end if
next c
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Bedingte Formatierung per VBA
20.04.2006 09:34:16
Matthias
Hallo Siggi,

Sub Hervorheben()
Dim z As Range
For Each z In Range("A1:AL104")
If z.Value Mod 4 <> 0 Then
z.Interior.ColorIndex = 3
End If
Next z
End Sub
Sub Hervorheben_Aus()
Range("A1:AL104").Interior.ColorIndex = xlColorIndexNone
End Sub

Gruß Matthias
Anzeige
;

Forumthreads zu verwandten 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
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
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
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 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
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
Anzeige
bedingte Formatierung mit VBA
Weis

Hallo Leute,
ich habe leider sehr begrenzte VBA-Kenntnisse. Deswegen baue ich auf Euch. Ich weiß, dass dies mit einer bedingten Formatierung leicht zu lösen ist. Ich möchte allerdings unbedingt eine VBA-basierte Lösung.
Folgendes Problem:
Ich möchte in einem bestimmten Bereich (Spal...
20.03.2009 19:10:26
Thread-ID: 1062337
5 Beiträge
bedingte formatierung per vba
Tobias

Hallo allerseits!
Wie kann ich folgendes bewerkstelligen:
Ich möchte das, wenn in Spalte E="ja" dann in der jew. Zeile von A-E grüner Zellhintergrund.
(am besten ein rgb wert)
Wie mach ich das per VBA?
grüsse,
Tobias
24.03.2009 16:26:14
Thread-ID: 1063438
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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