Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung nach VBA bringen

Bedingte Formatierung nach VBA bringen
11.12.2006 17:04:34
Sepp
Hallo zusammen
ist es möchlich diese formel von einer Bedingter Formatierung einer Zelle
nach VBA zu konvertieren ?
Wenn z.B Zelle C5 folgende Formel als Bedingte Formatierung erfüllt
Formel ist =ODER(WOCHENTAG(C$4)=1;WOCHENTAG(C$4)=7;C$201="F"),
dann soll die Hintergrundfarbe der Zelle C5 gelb sein.
Das ganze soll für alle Zellen im Bereich C5:AG200 gelten.
Könnte mir jemand behilflich sein ?
Danke und Gruß Sepp

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung nach VBA bringen
11.12.2006 17:42:02
IngGi
Hallo Sepp,
das müsste so gehen:

Sub Hintergrundfarbe()
Dim rng As Range
For Each rng In Range("C5:AG200").Cells
   If WorksheetFunction.Weekday(Cells(4, rng.Column)) = 1 Or _
      WorksheetFunction.Weekday(Cells(4, rng.Column)) = 7 Or _
      Cells(201, rng.Column) = "F" Then
      rng.Interior.ColorIndex = 19
   End If
Next 'rng
End Sub

Gruß Ingolf
Anzeige
Das ist allerdings eine permanente Farbgebung!
12.12.2006 04:38:52
Luc:-?
Hallo Sepp & Ingolf,
man könnte natürlich auch die bedingte Formatierung per VBA anlegen, falls das eher gewünscht ist. Ist aber etwas komplizierter und vielleicht gar nicht erforderlich. Eine weitere Möglichkeit würde mit Ereignissen fkt, damit sich die Farben bei Nichterfüllung der Bedingung wieder ändern. Und 3. gibt es noch CFPlus im Archiv (basiert auf 2.). Aber wenn die Farben nur fixiert wdn sollen, ist Ingolfs Lösung OK. Allerdings sollte dann anschließend das bedFormat entfernt wdn, wenn sich an den Zahlen was ändern könnte, aber die Farbe sichtbar bleiben soll.
Gruß Luc :-?
Anzeige
AW: Bedingte Formatierung nach VBA bringen
11.12.2006 17:59:42
Sepp
Hallo Ingolf
habs in meine Datei eingebaut, aber leider funzt es nicht
Gruß Sepp
AW: Bedingte Formatierung nach VBA bringen
11.12.2006 18:26:45
IngGi
Hallo Sepp,
bei mir funktioniert das einwandfrei. Würde mich interessieren, was genau bei dir nicht geht.
Allerdings habe ich festgestellt, dass der Code das Problem sozusagen von der falschen Seite angeht. Es werden alle Zellen der betroffenen Spalten zwischen Zeile 5 und Zeile 200 bearbeitet. Viel schneller geht das Ganze, wenn man statt dessen nur die Zellen in den Zeilen 4 und 201 prüft und dann die Zellen der Zeilen 5 bis 200 dieser Spalten gelb färbt. Deshalb nochmal ein neuer Code:

Sub Hintergrundfarbe()
Dim rng As Range
For Each rng In Range("C4:AG4").Cells
   If WorksheetFunction.Weekday(rng) = 1 Or _
      WorksheetFunction.Weekday(rng) = 7 Then
      Range(rng.Offset(1, 0), rng.Offset(196, 0)).Interior.ColorIndex = 19
   End If
Next 'rng
For Each rng In Range("C201:AG201").Cells
   If rng = "F" Then
      Range(rng.Offset(-196, 0), rng.Offset(-1, 0)).Interior.ColorIndex = 19
   End If
Next 'rng
End Sub

Gruß Ingolf
Anzeige
AW: Bedingte Formatierung nach VBA bringen
11.12.2006 18:58:31
Sepp
Hallo Ingolf
Danke erstmal für Deine schnelle Hilfe
hab was übersehen bzw. das Makro funzt wenn man es manuell ausführt einwandfrei,
doch ich möchte es so in ein tabellenblatt einbauen, damit es automatisch läuft, bzw ausgeführt wird.
Hast Du da noch einen Tipp für mich !!
Danke und Gruß Sepp
AW: Bedingte Formatierung nach VBA bringen
12.12.2006 00:01:54
IngGi
Hallo Sepp,
in diesem Fall kannst du das Makro so schreiben, dass es auf bestimmte Ereignisse reagiert. Das zu ändern erfordert nicht viel Aufwand. Kopier das Makro zunächst in das Modul des betreffenden Tabellenblattes. Alles was du dann noch ändern musst, ist die Kopfzeile des Makros. Abhängig von dem gewünschten Ereignis, bei dem das Makro ablaufen soll, sieht das dann so aus:
Wird beim Aktivieren des Tabellenblattes ausgeführt:
Private Sub Worksheet_Activate()
Wird ausgeführt, wenn das Tabellenblatt verlassen wird:
Private Sub Worksheet_Deactivate()
Wird ausgeführt, wenn eine Zelle des Tabellenblattes verändert wird:
Private Sub Worksheet_Change(ByVal Target As Range)
Wird ausgeführt, wenn eine andere Zelle des Tabellenblattes ausgewählt wird:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Wenn du damit nicht zurecht kommst, melde dich einfach nochmal.
Gruss Ingolf
Anzeige
AW: Bedingte Formatierung nach VBA bringen
12.12.2006 08:30:37
Sepp
Hallo Ingolf & Luc
danke Euch für Eure Unterstützung
Hab jetzt die Lösung, jetzt funzt es wie ich es wollte.
Dank und Gruß Sepp

306 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 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
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

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
8
5
2
3
4
1
3
7
4
6
2
7
7
2
2
2
2
4
2
11
8