Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Feldname Summe von ersetzen

Pivot Feldname Summe von ersetzen
ersetzen
Hallo Excel-Profis,
ich habe diverse Pivottabellen bei denen dann in der Überschrift immer "Summe von"... steht wenn man die Tabelle erzeugt.
Ich ändere dann immer manuell das "Summe von" in "s" damit die Überschriften schmaler werden.
Kann man das per Makro machen? (Sind oft über 50 Spalten).
Das Makro müßte dann jedes Pivotfield umbenennen und "Summe von " durch "s" ersetzen.
Wäre toll wenn das gehen würde.
Vielen Dank und viele Grüße Lutz

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

Betreff
Benutzer
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:15:50
ersetzen
Hallo, 
Sub PI_umbenennen()
'"Summe von", "Anzahl von" etc. aus Datenfeldbezeichnungen löschen
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, "von")
If iStart > 0 Then
pi.Caption = Replace(pi.Name, Left(pi.Name, iStart + 2), LCase(Left(pi.Name, 1)), , 1)
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:25:13
ersetzen
Hallo Rudi,
das war jetzt schneller als der Schall - ich nehme an, Du hattest das in Deiner Sammlung?
Geht wie verrückt, eine kurze Frage noch: im Moment macht er "S " oder "A " mit einem Leerzeichen danach - könnte man das Leerzeichen noch rausbekommen?
Am besten wäre ein Ersetzungsmodus - z.B. "s " durch "s" ersetzen, ich habe auch zig mal Leerzeichen die gut rauskönnten oder immer wieder "Menge" was gut durch "ME" zu ersetzen wäre.
Ist wahrscheinlich nur eine kleine Anpassung aber ich weiß nicht wo ich nach pi.caption = replace(... ansetzen müßte.
In jedem Fall aber schon mal tausend Dank
Viele Grüße Lutz
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 16:53:27
ersetzen
Hallo,
vllt so? 
Sub PI_umbenennen()
'"Summe von", "Anzahl von" etc. aus Datenfeldbezeichnungen löschen
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, "von")
If iStart > 0 Then
pi.Caption = _
Replace(pi.Name, Left(pi.Name, iStart + 3), LCase(Left(pi.Name, 1)), , 1)
End If
Select Case LCase(pi.Caption)
Case "menge": pi.Caption = "ME"
Case "tralala": pi.Caption = "Tra"
Case "pipapo": pi.Caption = "Pi"
End Select
'Alle LZ raus:
pi.Caption = Replace(pi.Caption, " ", "")
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: Pivot Feldname Summe von ersetzen
27.04.2011 17:09:04
ersetzen
Hallo Rudi,
Tausend Dank - ist wirklich genial.
Ich hatte mir das zusammengebastelt:
Sub PI_umbenennen4()
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
iStart = InStr(pi.Name, " ")
If iStart > 0 Then
pi.Caption = Replace(pi.Name, " ", "")
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Geht auch, ist aber nantürlich nicht so elegant wie bei Dir.
Nochmal vielen lieben Dank und noch einen schönen Abend für Dich.
Viele Grüße Lutz
Anzeige

29 Forumthreads zu ähnlichen Themen

Artikel-Summen ohne Pivot-Tabelle?
Ulrich

Hallo zusammen,
ich habe eine lange Liste mit Artikeln und deren Verkaufzahlen (auch jede Menge doppelte).
Kann ich Summen der Verkaufszahlen nach Artikel-Nummer bilden ohne Privot-Tabelle? Mit SVerweis kriege ich ja jeweils nur den ersten Artikel...
Danke im Voraus und Grüße,
...
01.09.2008 11:36:00
Thread-ID: 1006380
3 Beiträge
Anzeige
Pivottabelle - ohne Doppelte
Max

Hallo Excel-Experten,
stehe vor einem Rätsel. Ich habe eine Liste, wo auch Zahlen doppelt vorkommen.
Jetzt dachte ich, dass ich über eine Pivottabelle die Anzahl (ohne Doppellte) rausbekomme.
Beispiel:
1
1
1
2
4
Das wäre die Anzahl 3 (1, 2 , 4). Der Rest ist...
20.05.2009 21:34:35
Thread-ID: 1076500
9 Beiträge
Pivotchart - Datentabellen- Summe
Jemp

Hallo alle zusammen.
Ich habe eine Pivot chart erstellt wo untendrunter die Datentabelle sichtbar ist.
Gibt es eine Möglichkeit in dieser Datentabelle. die Summierung mit anzuzeigen sowie sie auch auf der einzelen Pivottabelle angezeigt werden
Vielen Dank
Jemp
25.05.2009 12:28:21
Thread-ID: 1077123
2 Beiträge
Anzeige
Pivot "Summe von..." per Default
mairflo

Hallo zusammen,
ich arbeite täglich mit Pivots und kenne mich mit den Tools einigermaßen aus, dennoch gibt es einen Punkt der mir täglich fast den letzten Nerv raubt.
Wenn ich in einem Pivottable aus der "Pivottable Feldliste" ein feld in den Summmenbereich einfüge erscheint dieses Feld...
19.07.2011 08:43:43
Thread-ID: 1222700
5 Beiträge
Pivottabelle / Summe für Zeile
Dirk

Hallo Forum,
mal sehen, ob ich mein Problem verständlich machen kann. Ich habe eine Matrix, in der ich Plan- und Istwerte in einer Spalte verwalte.In einer isolierten Spalte ist je Zeile jeweils die Unterscheidung Plan / Ist gegeben. Nach dem Pivotieren steht Plan neben Ist. Ich habe ja auc...
16.10.2012 10:30:23
Thread-ID: 1282211
4 Beiträge
Pivot Tabelle - Datum ohne Duplikate zählen
Ramona

Hallo Zusammen,
ich wollte die Stundenaufzeichnungen aus dem letzten Monat auswerten, dazu habe ich mir aus den Daten eine Pivot Tabelle erstellt.
Nur das Problem ist, das einige Datumsangaben doppelt vorkommen und "Anzahl von Date" (siehe Beispieldatei) die Duplikate mitzählt. Gibt e...
02.02.2016 17:02:46
Thread-ID: 1472750
10 Beiträge
vba pivot tabelle werte als % der gesamtsumme
lena

Hallo,
ich habe eine Frage. Ich bin VBA Anfänger. Ist es möglich ein Makro zu schreiben, dass automatisch alle Werte in der PIV als % der Gesamtsumme angezeigt werden. Die größe der PIV passt sich dynamisch an.
Die PIV schaut so aus
Nr. Bezeichnung Spalte1 Spalte2 Spalte3 Spalte 4.....
01.08.2016 20:33:03
Thread-ID: 1507315
3 Beiträge
Pivot-Tabelle Wert in Feld Summe
dove89

Hallo Zusammen,
ich habe ein kleines Problem, dass mich seit Stunden beschäftigt.
Ich habe viele Pivot-Tabellen zu bearbeiten und muss immer das gleiche machen.
Pivot-Feld 1 in Spaltenbereich, Pivot-Feld 2 in Zeilenbereich und Pivot-Feld 1 in den Summenbereich.
Die ersten beiden...
24.08.2016 11:25:32
Thread-ID: 1510932
3 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
2
2
8
1
2
4
3
9
2
2
3
1
1
1
3
5
3
14
2
3
2
2
1
4
1