Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Tabellen, "alte" Daten löschen

Forumthread: Pivot Tabellen, "alte" Daten löschen

Pivot Tabellen, "alte" Daten löschen
18.04.2005 11:59:19
lucky1
Hallo zusammen
habe da ein Problem mit einer Pivot Tabelle, habe dazu auch eine Lösung gefunden welche genau dazu passen würde.
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/archiv/136to140/t139135.htm
( danke Otto:-) )
Habe alles auf mein sheet angepasst und läuft auch alles bis zum löschen:-)
Bei der Ausführung erscheint dann eine Fehlermeldung
Laufzeitfehler '1004':
Anwendungs oder objektdefinierter Fehler
und diese Zeile wird gelb markiert
.PivotItems(intCounter).Delete
Da meine Kenntnisse dürftig sind und ich alles aus "alten" Beiträgen zusammengebastelt habe weiss ich nun nicht mehr weiter.
Besten Dank für eure Hilfe
Gruss Lucky
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Pivot Tabellen, "alte" Daten löschen
18.04.2005 13:42:04
Beate
Hallo Lucky,
bei mir läuft für den Zweck dieser Code reibungslos:

Sub Pivot_alte_weg()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
Dim ws              As Worksheet
Dim pt              As PivotTable
Dim pf              As PivotField
Dim pi              As PivotItem
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
Next
Next
Next
End Sub

Gruß,
Beate
Anzeige
Wow Danke!
18.04.2005 14:20:27
Lucky1
Hallo Beate
Funktioniert einwandfrei und Deine Version ist erst noch edler:-)
Besten Dank!
Gruss Lucky
;

Forumthreads zu verwandten Themen

Gesamtergebnis einer Pivottabelle als %-Wert
Dirk

Hallo Forum,
ich habe eine Pivottabelle, in der ich eine automatische Spalte eingefügt habe, die ein Gesamtergebnis der entsprechenden Zeile liefert (Tabellenoptionen - Gesamtergebnis für Zeilen). Nun möchte ich dieses Ergebnis jedoch nicht als jeweilige Zeilensumme sondern als %-Anteil an...
12.03.2009 11:59:54
Thread-ID: 1059437
3 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Anzeige
Formel erkennt Datum nicht
dieter

Ich habe Formeln erstellt, in denen Zellen mit Datumsinhalten verglichen werden.
Die Zellinhalte stammen aus einer Datenbank.
Die Zellen sind zwar als Datum formatiert, die Inhalte stehen aber linksbündig.
Die Formelergebnisse werden dann korrekt, wenn ich jede Datumszelle aktiviert...
01.07.2009 15:16:18
Thread-ID: 1085756
8 Beiträge
Anzeige
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Anzeige
Excel Tool zum erstellen einer Top 100 Liste
Stein

Erstmals muss ich mich bedanken, wie schnell mir schon bei Problemen geholfen wurde. Leider hat es nicht geholfen und ich muss ein neues VBA Tool schreiben.
Also wie gesagt möchte ich in Excel ein Formular(Benutzeroberfläche) haben, wo man mehrere Excel Tabellen hinzufügt. Einmal nach Absat...
31.07.2009 14:28:25
Thread-ID: 1092766
3 Beiträge
Textvergleich liefert falsche Werte
juergen

Hallo Forum!Ich habe zwei Textdateien mit gleicher Anzahl von Datensätzen. Zum Herausfiltern der ungleichen Datensätze benutze ich untenstehendes Skript, welches diese in eine dritte Textdatei einträgt.Es funktioniert anfangs optimal, nur leider schreibt es ab einer gewissen Anzahl von Datensät...
06.05.2002 19:43:53
Thread-ID: 118943
3 Beiträge
Pivot Tabellen Bestwerte anzeigen
Friedhelm

Hallo,
ich habe eine Tabelle mit Ergebnissen von Läufern und möchte in den Altergruppen und den verschiedenen Laufstrecken die Bestzeiten der Läufer darstellen.
Als Beispiel habe ich eine Tabelle beigefügt, die soweit den Pivot Auszug darstellt. Hier möchte ich in den Lauflängen nur die...
13.09.2010 11:02:06
Thread-ID: 1177216
8 Beiträge
Datevalue erkennt Datum nicht
Gerhard

Hallo zusammen,
folgende Problematik: Datevalue() erkennt einige Datumsangaben nicht.
Jan-2011 01.01.11
Feb-2011 01.02.11
Mar-2011 #VALUE!
Apr-2011 01.04.11
May-2011 #VALUE!
Jun-2011 01.06.11
Jul-2011 01.07.11
Aug-2011 01.08.11
Sep-2011 01.09.11<...
12.10.2011 14:02:16
Thread-ID: 1233539
6 Beiträge
Spalte prüfen und Daten löschen
walter

Guten Tag allerseits,
ich habe eine Spalte, AY, da sollen die Zellen überprüft werden.
Und zwar stehen verschiedene Texte und Zahlen drin.
Es kann aber sein das in Zellen folgende Werte drin stehen nach die
gesucht werden sollen.
LP010112, es soll immer nach "LP" gesucht wer...
21.01.2012 15:04:50
Thread-ID: 1247339
5 Beiträge
Topp 10 Liste
Mike

Hallo Ex(cel)perten,
ich habe eine Liste mit Namen(Spalte A) und Werten(Spalte B).
Damit ich diese Daten nicht immer über das Menü sortieren muß, soll das eine Formel/Funktion in Spalte D(Werte) und Spalte C(Namen zu den Werten) übernehmen. Mit der Funktion MAX und MIN bekomme ich nur d...
19.04.2012 15:02:04
Thread-ID: 1260096
3 Beiträge
Anzeige
Doppelte Werte suchen und anzeigen
Stephan

Guten Morgen zusammen,
ich stehe vor dem folgenden Problem. In einem Systemdownload der über mehre Seiten geht, soll es mir wenn der "Tag" mehrmals vorkommt alle anzeigen ggf. makieren) die eine andere "ID" haben, alle wo der die "ID" und der "Tag" immer gleich sind soll es mir nichts mache...
02.10.2012 09:21:55
Thread-ID: 1280191
8 Beiträge
Pivot sortieren fcs Code (Top 10 Aufruf)
Marc

Hallo Gemeinde, hallo fcs!
ich beziehe mich auf das VBA MAkro zum Sortieren einer Pivot - leider komme ich nicht mehr an den letzten Post ran:
https://www.herber.de/forum/archiv/1360to1364/t1363804.htm
Das Teil funktioniert großartig - vielen Dank nochmal an Franz!
Eine Frage ha...
10.06.2014 21:11:29
Thread-ID: 1365345
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige