Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
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
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot und bedingte formatierung

Pivot und bedingte formatierung
19.06.2009 13:00:21
Julia
Hallo Experten,
in meiner Pivottabelle (PivotTable1) im Excel-Sheet "Fälligkeit" gibt es eine Spalte "Fälligkeit in Tagen" (ab Spalte A14 abwärts).
Dort stehen Zahlen drin.
Ist die Zahl Ist die Zahl zwischen 1 und 14 dann soll die Zelle gelb markiert werden / Schrift weiss, fett und zentriert
Ist die Zahl >= 14 dann soll sie grün sein / Schrift weiss, fett und zentriert
Ansonsten keine Formatierung / Schrift schwarz
Über die Bedingte Formatierung hab ich das hinbekommen.
Doch wenn sich meine Pivotabelle vergrößert verliert sich manchmal die Bedingte Formatierung
Kann man das über ein Makro lösen egal wie groß die Pivot wird?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot und bedingte formatierung
19.06.2009 15:29:53
Julia
Klappt genial
Habs angepasst auf meine Verhältnisse aber irgendwie will er nicht ganz
Meine Pivot beginnnt bei Zelle A14
Also die Zahlen stehen in A14 abwärts
Habe dann deinen Code so geändert...
Die Zelle A14 macht er mir korrekt doch danach kommt fehler
An dieser Stelle:
Range(Cells(14, 1), Cells(LetzteZeile, 1)).Select
Der kompeltte Code sieht so aus:

Sub BedForm()
LetzteZeile = [G65536].End(xlUp).Row - 2
Columns("A:A").Select
Selection.FormatConditions.Delete
Range("A14").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual _
, Formula1:="0"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="1", Formula2:="14"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(2).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="14"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(3).Interior.ColorIndex = 4
Range("A14").Select
Selection.Copy
Range(Cells(14, 1), Cells(LetzteZeile, 1)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("I12").Select
Range("G3").Select
End Sub


Anzeige
AW: Pivot und bedingte formatierung
19.06.2009 15:30:23
Julia
Klappt genial
Habs angepasst auf meine Verhältnisse aber irgendwie will er nicht ganz
Meine Pivot beginnnt bei Zelle A14
Also die Zahlen stehen in A14 abwärts
Habe dann deinen Code so geändert...
Die Zelle A14 macht er mir korrekt doch danach kommt fehler
An dieser Stelle:
Range(Cells(14, 1), Cells(LetzteZeile, 1)).Select
Der kompeltte Code sieht so aus:

Sub BedForm()
LetzteZeile = [G65536].End(xlUp).Row - 2
Columns("A:A").Select
Selection.FormatConditions.Delete
Range("A14").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual _
, Formula1:="0"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="1", Formula2:="14"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(2).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="14"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(3).Interior.ColorIndex = 4
Range("A14").Select
Selection.Copy
Range(Cells(14, 1), Cells(LetzteZeile, 1)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("I12").Select
Range("G3").Select
End Sub


Anzeige
AW: Pivot und bedingte formatierung
19.06.2009 17:08:23
robert
hi,
schau mal, in welcher spalte du die letzteZeile ermittelst.. G
LetzteZeile = [G65536].End(xlUp).Row - 2
daher G durch A ersetzten
gruß
robert

304 Forumthreads zu ähnlichen Themen

Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Anzeige
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
Bedingte Formatierung - Zellinhalt beginnt mit "-"
nathan

Guten Morgen,
ich bin grade bei der Arbeit und vesuche mir eine Saldentabelle anzulegen für unsere Arbeitszeit-Errechnung. Das erste Problem war eine negative Zeit. Das hab ich aber nun ganz geschickt gelöst.
Mit dieser Formel hier: H5=TEXT(ABS(F5-E5);WENN(E5<F5;"-";) &"hh:mm")...
09.10.2008 09:39:03
Thread-ID: 1015238
8 Beiträge
Anzeige
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
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
DBFunktionen u. bedingte formatierung
master

Hallo,
brauche mal wieder Hilfe von euch!
Ich arbeite viel mit den DBFunktionen in Tabellen.
Wenn ich eine Summe über die DBFunktion generier, möchte ich über die bedingte Formatierung diese Zahlen farblich kennzeichnen.
Welche Funktion brauche ich dafür?
Vielen Dank im vora...
16.11.2008 16:18:38
Thread-ID: 1024929
2 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
Bedingte Formatierung und
Kurt

Guten Abend Zusammen,
habe diese bedingte Formatirieung:
=I14>="08:30" dann wird <b>dunkelblau.</b>
Damit habe ich leider auch alle 3 Bedingungen ausgeschöpft.
Nun möchte ich aber wenn ein U oder F drin steht die Zelle hellgrün wird.
Habe dies gefunden :
...
12.12.2008 17:36:00
Thread-ID: 1032482
17 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
4
1
5
7
1
5
6
1
6
16
6
3
8
5
2
2
2
7
3
4
1
3
4
4
7