Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 15:31:31
Excel schließt fälschlicherweise alle Workbooks obwohl
08.05.2024 14:37:20
Wert in Spalte mit Kriterium finden, Ausschluss leere Zellen
08.05.2024 12:59:21
MsgBox beim öffnen der Datei
08.05.2024 12:16:10
Dropdownmenü mit Klick auf Zelle öffnen (nicht über Pfeil)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formatierung - VBA

bedingte Formatierung - VBA
04.04.2009 13:48:32
Wolfgang
Hallo,
ich würde gerne über VBA erreichen, dass in Tabelle "Basis" und Tabelle "Gesamt" bei einem Wert von 180 und mehr in Spalte Q die jeweilige Zelle in Spalte K gelb markiert wird. Habe das über den Makrorekorder versucht, bekomme das dann aber immer nur für eine Zeile hin. Danke schon jetzt für die Rückantworten.
Gruß - Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: bedingte Formatierung - VBA
04.04.2009 14:00:28
Tino
Hallo,
Markiere den Bereich A bis Q und gib die Bedingung für die erste Zeile ein.
 Q
2181
3180

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
Q21. / Formel ist =$Q1>180Abc
Q31. / Formel ist =$Q1>180Abc

Gruß Tino
Anzeige
AW: bedingte Formatierung - VBA
04.04.2009 14:13:21
Oberschlumpf
Hi Wolfgang
Und wenn du im Change-Ereignis des Tabellenblattes, wo Spalte Q bedingt formatiert werden soll, diesen Code einbaust

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Q" & Target.Row).FormatConditions.Count = 0 Then
With Range("Q" & Target.Row)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:=" _
180"
.FormatConditions(1).Interior.ColorIndex = 6
End With
End If
End Sub


dann wird, egal in welcher Zeile du dich befindest, Spalte Q bedingt mit deinen Wünschen formatiert.
Vorteil:
Dieser Code ist nicht darauf beschränkt, dass nur die gerade vorhandenen Zeilen berücksichtigt werden.
Du kannst also auch weitere Wertezeilen hinzufügen, und Spalte Q wird bedingt formatiert.
ein noch-Nachteil:
Dieser Code wird in JEDER Zeile wirksam.
Du hast NICHT mit angegeben, für WELCHE Zeilen der Code wirksam werden soll.
Und da ich dass ohne deine Info nicht weiß, gilt der Code halt noch für jede Zeile.
Hilfts denn?
Ciao
Thorsten

Anzeige
AW: bedingte Formatierung - VBA
04.04.2009 14:45:13
Daniel
Hi
probier mal das hier:

Sub Bedingt_Färben_Statisch()
Dim sh As Worksheet
For Each sh In Sheets(Array("Basis", "Gesamt"))
sh.Columns("K:K").Interior.ColorIndex = xlNone
sh.Columns("Q:Q").AutoFilter Field:=1, Criteria1:=">=180"
With Intersect(sh.UsedRange, sh.Columns("K:K"))
With .Offset(1, 0).Resize(.Rows.Count - 1)
.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
End With
End With
sh.Columns("Q:Q").AutoFilter
Next
End Sub


das Makro ist allerdings statisch, dh es müsste neu gestartet werden, falls sich die Werte in Q ändern.
im Prinzip macht das Makro nichts anderes, als den Autofilter auf "Grösser 180" in Spalte Q zu setzen und die sichtbaren Zellen in Spalte K zu färben.
die Ersts Zeile wird dabei als überschriftenzeile nicht gefärbt.
Gruß, Daniel

Anzeige
Danke Tino, Oberschlumpf und Daniel !
04.04.2009 16:06:10
Wolfgang
Hallo ihr Drei,
allerherzlichsten Dank für euere schnellen Rückmeldungen und für die Ausarbeitungen. Ich habe sie alle drei gestet. Ich hoffe, ihr anderen zwei seid mir nicht böse. Ich habe den Code von Daniel genommen, weil der so wunderbar über WorkbookOpen eingebaut werden konnte und dann die jeweiligen Zellen in Spalte K einfärbt. Herzlichen Dank nochmals Euch allen und ein schönes Wochenende.
Gruß - Wolfgang
Doch noch ein Problem
04.04.2009 16:57:14
Wolfgang
Hallo Daniel,
beim Hin- und Hertesten fiel mir auf, dass der Filter nicht mehr 'rausgeht, wenn in einem der Tabellenblätter in Spalte Q sich keine Zelle mit 180 und mehr befindet. Hättest Du da noch eine Idee, wie das evtl. abgefangen werden könnte?
Danke und Gruß
Wolfgang
Anzeige
Hallo Tino - geht wunderbar.
04.04.2009 18:48:54
Wolfgang
Hallo Tino,
das klappt auch wunderbar. Ich hatte Dein erstes Beispiel versucht und wußte nicht, an welcher Stelle bzw. wie ich die Formel einfügen mußte. Anhand Deiner beigefügten Mappe konnte ich das nun wunderbar nachvollziehen. Klappt wunderbar. Hab herzlichen Dank dafür!!
Gruß - Wolfgang

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 mit Wenn
kdl

Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
Meine e...
12.09.2008 14:06:00
Thread-ID: 1009364
2 Beiträge
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
Anzeige
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 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
Bedingten Formatierung mit MIN; gr. als Mittelwert
Eva

Hallo,
ich habe ein Problem mit einer Bedingten Formatierung.
Ich möchte mir in mehreren Zeilen die MIN Were grün anzeigen lassen und die Werte, welche größer oder gleich dem Durchschnitt sind rot. Leider haut es so gut wie nie in den Zeilen hin. Oft markiert er nur eine Zelle, die ande...
18.12.2008 16:01:00
Thread-ID: 1033913
7 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 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
1
5
7
6
6
19
6
3
8
5
2
2
7
3
4
1
3
7
4
6
2
7
2