Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung in Pivot!

Formatierung in Pivot!
Thomas
Hallo Experten!
Ich brauche mal wieder eure Hilfe.
In einer Datei befinden sich ca. 9 verschiedene Pivot-Tabellen. Diese sollen alle die gleiche Formatierung (Rahmen) haben, welche allerdings immer bei der Aktualisierung verschwindet.
Nun wollte ich das ganze per Makro lösen. Leider kommt immer wieder ein Fehler und ich finde den Fehler einfach nicht. Danke für eure Hilfe und Unterstüztung schon vor ab.
Thomas H.

Sub Test()
Dim piv As PivotTable
For Each piv In ActiveSheet.PivotTables
piv.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
Next
Range("B:E,G:J").ColumnWidth = 12
Range("F:F,K:K").ColumnWidth = 8
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formatierung in Pivot!
02.07.2009 13:57:09
Helmut
Option Explicit

Sub tt()
Dim i As Long
Dim myPivotTableRange As Range
For i = 1 To ActiveSheet.PivotTables.Count
Set myPivotTableRange = Union(ActiveSheet.PivotTables(i).RowRange, _
ActiveSheet.PivotTables(i).DataBodyRange, _
ActiveSheet.PivotTables(i).ColumnRange, _
ActiveSheet.PivotTables(i).DataLabelRange)
With myPivotTableRange
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
End With
Next i
End Sub




Sub Test()
Dim piv As PivotTable
For Each piv In ActiveSheet.PivotTables
MsgBox ActiveSheet.PivotTables(1).ColumnRange.Address
piv.DataBodyRange.Select
Exit Sub
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 1
End With
Next
Range("B:E,G:J").ColumnWidth = 12
Range("F:F,K:K").ColumnWidth = 8
End Sub


Anzeige
Danke Helmut!
02.07.2009 16:03:31
Thomas
lg TH

301 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
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
Bedingte Formatierung in Abhängigkeit mehrerer Fel
Thomas

hallo,
ich habe bei einer automatischen formatierung ein paar probleme.
meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
nun sollen die jeweiligen Zeilen anhand de...
11.11.2008 11:56:34
Thread-ID: 1023497
6 Beiträge
Anzeige
Bedingte Formatierung: Zielenminimum
Wolff

Hallo zusammen,
ich hab ein kleines Problem mit der bedingten Formatierung.
Und zwar möcht ich in einem Arbeitsblatt das jeweilige Zeilenminimum hervorheben. Die Formel für eine Ziele ist soweit kein Problem, allerdings funktioniert das "runterziehen" des Formats nicht. Excel erweitert...
09.12.2008 12:30:00
Thread-ID: 1031341
8 Beiträge
bedingte Formatierung in 2007version
lufrio1

Hallo,
ich verzweifle gerade an der bekn...... Bedingten Formatierung.
Wie kann ich folgendes darstellen:
wenn die Zelle C3 ist kleiner als 9 dann mach C27-f27 grün, sonst weiß lassen.
Vielen dank im Voraus.
Lufrio
16.12.2008 11:10:55
Thread-ID: 1033231
2 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
Bedingte Formatierung einer ganzen Zeile
Steffan

Hallo,
hab ein neues Problem.
Spalte B ist Hilfsspalte mit 1 oder 0
Ist in der Zelle der Hilfsspalte z.B. (5,2) eine 1, dann die Zeile Rot (zumindestens 5 Spalten davon), ansonsten bleibts so wies ist.
Über bedingte Formatierung hab ich in anderen Foren gelesen, billige Beispiel...
23.12.2008 11:50:29
Thread-ID: 1034966
4 Beiträge
AW: PivotChart-Bericht Formatierung
Jojo

Hallo RS und alle anderen,
ich habe heute vormittag eine Frage zum Thema dauerhafte Formatierung eines PivotChart-Berichtes gestellt. Am Ende lief das Konstrukt auch auf meinem Rechner, nicht jedoch bei meinen Kollegen.
Was habe ich getan:
1.) Makrocode eingefügt in Diagrammblatt:
13.01.2009 16:39:56
Thread-ID: 1039306
4 Beiträge
Anzeige

Links zu Excel-Dialogen

Label

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