Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

307 Forumthreads zu ähnlichen Themen

Pivot: Anzahl verschiedener Werte
Daniel

Hallo Profis,
wie kann ich im Datenfeld einer Pivot-Tabelle die Anzahl verschiedener Werte anzeigen lassen?
Bsp:
Spalte A
A
B
A
C
V
A
Excel zeigt hier im Datenfeld der Pivot-Tabelle (Anzahl) als Wert 7 an.
Ich würde aber gerne nur die Anzahl der versc...
07.01.2009 09:48:00
Thread-ID: 1037453
2 Beiträge
Anzeige
Anzahl unterschiedlicher Werte mit VBA ermitteln
Holger

Hallo Leute,
ich habe jetzt den ganzen Tag Archive studiert, Threads gelesen, gegoogelt... ich finde nicht die richtige Lösung (die ganz sicher total einfach ist).
Ich bekommen eine Liste mit vier Spalten und mehr als 50.000 Datensätzen im folgenden Format:
Verkäufername...... Auft...
12.03.2009 15:00:44
Thread-ID: 1059508
4 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 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
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
Anzahl unterschiedlicher sichtbarer Werte
Dietmar

Guten Abend,
ich tüftele schon den ganzen Abend herum.
Wie kann ich die Anzahl unterschiedlicher Werte in einer Spalte per Formel herausfinden?
In der Spalte B (ab Zeile 33) steht Text und Zahlen.
Und jetzt das Besondere:
Die Anzahl soll nur für die sichtbaren Felder ausgewo...
05.03.2010 23:06:13
Thread-ID: 1143848
5 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

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