Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Laufzeitfehler bei Pivot über Makro

Forumthread: VBA - Laufzeitfehler bei Pivot über Makro

VBA - Laufzeitfehler bei Pivot über Makro
02.12.2015 10:45:07
Josef
Hallo allerseits,
ich habe ein Makro geschrieben, welches zu jedem Tabellenblatt einer Arbeitsmappe eine Pivot-Tabelle erstellen soll. Es sieht so aus:
Sub Pivot()
Dim myWorksheet As Worksheet
Dim Bereich As Range
For Each myWorksheet In Worksheets
Set Bereich = ActiveSheet.UsedRange
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableName:="Pivot"
With ActiveSheet.PivotTables("Pivot")
.PivotFields("Projektnr.").Orientation = xlRowField
.PivotFields("Betrag").Orientation = xlDataField
With ActiveSheet.PivotTables("Pivot").PivotFields("Anzahl von Betrag")
.Caption = "Summe von Betrag"
.Function = xlSum
.NumberFormat = "#.##0,00"
End With
End With
Next
End Sub
Nun erhalte ich nach der Durchführung einen Laufzeitfehler, den ich leider nicht ganz verstehe (bzw. ich weiß nicht wie ich es beheben kann):
Laufzeitfehler '1004':
Der PivotTable-Feldname ist ungültig. Um einen PivotTable-Bericht zu erstellen,
müssen Sie Daten verwenden, die in einer Liste mit Spaltenüberschriften
organisiert sind. Wenn Sie den Namen eines PivotTable-Berichtsfeld ändern,
müssen Sie einen neuen Namen für das Feld eingeben.

Das Makro erstellt übrigens wie gewünscht die Pivot - ein mal, dann kommt der Laufzeitfehler. Im Grunde möchte ich, dass die Pivot-Tabelle so heißt, wie ihre Quelltabelle, nur ergänzt um das Wort "Pivot".
Ich bin für jede Hilfe dankbar. Bis dahin alles Gute und beste Grüße.
Josef

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Laufzeitfehler bei Pivot über Makro
02.12.2015 11:19:11
fcs
Hallo Josef,
probier es mal so, damit der Bezug zum jeweils aktiven Tabellenblatt stimmt.
Gruß
Franz 
Sub Pivot()
Dim myWorksheet As Worksheet
Dim Bereich As Range
For Each myWorksheet In Worksheets
myWorksheet.Activate
Set Bereich = ActiveSheet.UsedRange
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableName:="Pivot_" & myWorksheet.Name
ActiveSheet.Name = "Pivot-" & myWorksheet.Name
With ActiveSheet.PivotTables(1)
.PivotFields("Projektnr.").Orientation = xlRowField
.PivotFields("Betrag").Orientation = xlDataField
With ActiveSheet.PivotTables(1).PivotFields("Anzahl von Betrag")
.Caption = "Summe von Betrag"
.Function = xlSum
.NumberFormat = "#.##0,00"
End With
End With
Next
End Sub

Anzeige
Pivot über Makro - Korrektur
02.12.2015 11:24:27
fcs
Hallo Josef,
du muss noch die Anweisung für das Zahlenformat korrigieren.
VBA möchte hier die Schreibweise im US-Format für 1000er-Stelle und Dezimalzeichen.
              .NumberFormat = "#,##0.00"

Gruß
Franz

AW: Pivot über Makro - Korrektur
02.12.2015 12:01:15
Josef
Hi Franz,
du hast Recht, habe das Zahlenformat nun korrigiert.
Dennoch erhalte ich nach wie vor die Fehlermeldung:
https://www.herber.de/forum/messages/1461894
Etwas ist mir aufgefallen, was ich leider nicht erklären kann:
Wenn ich folgende Zeilen rauskommentiere:
'    With ActiveSheet.PivotTables(1).PivotFields("Anzahl von Betrag")
'        .Caption = "Summe von Betrag"
'        .Function = xlSum
'        .NumberFormat = "#,##0.00"
'    End With
'    With ActiveSheet.PivotTables(1).PivotFields("Projektnr.")
'        .PivotItems("(blank)").Visible = False
'    End With
.. so ist das Format der ersten erstellten Pivot unverändert. Alle weiteren Pivots haben aber interessanterweise das richtige Format (statt "Anzahl von Betrag" steht dort "Summe von Betrag" usw.), obwohl es dazu keine Anweisung gab.
Wie kann das sein?
Gruß
Josef

Anzeige
wie das sein kann
02.12.2015 13:01:59
Rudi
Hallo,
Es wird immer die Summe gebildet wenn die Daten einer Spalte ausschließlich 'richtige' Zahlen sind.
Gruß
Rudi

AW: wie das sein kann
02.12.2015 13:20:43
Josef
Hallo zusammen,
ich habe die Ursache gefunden.
Die UsedRange beinhaltete auch Zellen, die gar keine Daten enthielten. Sobald der Datenbereich der Pivot leere Zellen beinhaltet, werden diese in der Pivot als (Leer) angezeigt. Dadurch wird in der Pivot im Werte-Bereich nicht "Summe von Betrag" sondern automatisch "Anzahl von Betrag" erstellt.
Die UsedRange musste also zur "wirklichen" UsedRange werden, damit es funktioniert. Und das tut es jetzt:
Hier mein Makro:
Sub Pivot()
'Dieses Makro soll nur eingesetzt werden, nachdem in der Umsatz-Datei Intermodal die KWs ergä _
nzt wurden (auch dafür gibt es ein Makro).'
Dim myWorksheet As Worksheet
Dim Bereich As Range
'Die Variablen werden deklariert. Es gibt nur zwei Stück. myWorksheet bezieht sich auf das  _
gerade aktive Tabellenblatt, Bereich ist der benutzte Zellenbereich in diesem.
For Each myWorksheet In Worksheets
On Error Resume Next
'Das Makro durchläuft alle Tabellenblätter (myWorksheet), etwaige Fehlermeldungen werden  _
ignoriert.
myWorksheet.Activate
Set Bereich = RealUsedRange
'Die Variable Bereich wird durch die Funktion RealUsedRange (s.u.) ermittelt.
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableName:="Pivot_" & myWorksheet.Name
'Die RealUsedRange wird ausgewählt, dann wird eine Pivot daraus erstellt. Sie erhält einen  _
Namen.'
ActiveSheet.Name = "Pivot " & myWorksheet.Name
ActiveSheet.Tab.ColorIndex = 6
'Das Tabellenblatt erhält einen Namen und wird eingefärbt.'
With ActiveSheet.PivotTables(1)
.PivotFields("Projektnr.").Orientation = xlRowField
.PivotFields("Betrag").Orientation = xlDataField
.TableStyle2 = "PivotStyleLight16"
.DisplayNullString = False
'Die Struktur und das Format der Pivot wird angepasst.'
End With
With ActiveSheet.PivotTables(1).PivotFields("Summe von Betrag")
.Function = xlSum
.NumberFormat = "#,##0.00"
'Das Zahlenformat der Zahlen in "Summe von Betrag" wird noch angepasst."
End With
Next
End Sub
Public Function RealUsedRange() As Range
Dim FirstRow        As Long
Dim LastRow         As Long
Dim FirstColumn     As Integer
Dim LastColumn      As Integer
'Die deklarierten Variablen bilden die Eckpunkte der RealUsedRange.'
On Error Resume Next
FirstRow = Cells.Find(What:="*", After:=Range("IV65536"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
FirstColumn = Cells.Find(What:="*", After:=Range("IV65536"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
LastRow = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastColumn = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set RealUsedRange = Range(Cells(FirstRow, FirstColumn), Cells(LastRow, LastColumn))
On Error GoTo 0
End Function
Nochmal vielen Dank Franz und Rudi.
Beste Grüße
Josef

Anzeige
AW: wie das sein kann
02.12.2015 13:32:21
Rudi
Hallo,
wenn du eine richtige Tabelle ohne komplett leere Zeilen hast, kannst du den Bereich mit Range("A1").CurrentRegion ermitteln.
Und das 
Range(Bereich.Address).Select

ist Quatsch.
Wenn du überflüssigerweise selektieren willst, reicht 
Bereich.Select

vollkommen aus.
Gruß
Rudi

Anzeige
AW: VBA - Laufzeitfehler bei Pivot über Makro
02.12.2015 11:40:13
Josef
Hallo Franz,
vielen Dank für deine Hilfe, ich bin damit den Fehler losgeworden. Leider ist nun ein anderer aufgetaucht.
Der Code sieht nun folgendermaßen aus (ich habe noch ein paar Tabellenformatierungen eingebaut, wahrscheinlich liegt da das Problem):
Sub Pivot()
Dim myWorksheet As Worksheet
Dim Bereich As Range
For Each myWorksheet In Worksheets
myWorksheet.Activate
Set Bereich = ActiveSheet.UsedRange
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableName:="Pivot_" & myWorksheet.Name
ActiveSheet.Name = "Pivot " & myWorksheet.Name
With ActiveSheet.PivotTables(1)
.PivotFields("Projektnr.").Orientation = xlRowField
.PivotFields("Betrag").Orientation = xlDataField
.TableStyle2 = "PivotStyleLight16"
End With
    With ActiveSheet.PivotTables(1).PivotFields("Anzahl von Betrag")
.Caption = "Summe von Betrag"
.Function = xlSum
.NumberFormat = "#,##0"
End With
With ActiveSheet.PivotTables(1).PivotFields("Projektnr.")
.PivotItems("(blank)").Visible = False
End With
Next
End Sub
Das erste Tabellenblatt wird noch normal durchlaufen, beim zweiten aber erhalte ich folgende Fehlermeldung:
Laufzeitfehler '1004':
Die PivotFields-Eigenschaft des PivotTable-Objektes kann nicht zugeordnet werden.
Laut VB-Editor liegt der Fehler in der fetten Zeile (s.o.). Das Tabellenblatt ist identisch mit dem ersten, was den Aufbau angeht.
Vorschläge?
Beste Grüße
Josef

Anzeige
AW: VBA - Laufzeitfehler bei Pivot über Makro
02.12.2015 13:32:51
fcs
Hallo Josef,
in der betreffenden Pivot-Tabelle gibt es zu PivotField("Projektnr.") das Pivot-Item "(blank)" nicht. Deshalb der Fehler.
Hier muss du eine entsprechende Fehlerbehandlung einbauen.
Das Summen-Feld für Betrag kann man auch direkt erstellen - ohne den Umweg,der Umbenennung wenn Excel als automatische Fuktion Anzahl wählt.
Gruß
Franz 
Sub Pivot_2()
Dim myWorksheet As Worksheet
Dim Bereich As Range
Dim pvTab As PivotTable
For Each myWorksheet In Worksheets
myWorksheet.Activate
Set Bereich = ActiveSheet.UsedRange
Range(Bereich.Address).Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Bereich, TableName:="Pivot_" & myWorksheet.Name
ActiveSheet.Name = "Pivot " & myWorksheet.Name
Set pvTab = ActiveSheet.PivotTables(1)
With pvTab
.PivotFields("Projektnr.").Orientation = xlRowField
.AddDataField Field:=.PivotFields("Betrag"), Caption:="Summe von Betrag", _
Function:=xlSum
.TableStyle2 = "PivotStyleLight16"
End With
With pvTab.DataFields("Summe von Betrag")
.NumberFormat = "#,##0"
End With
With pvTab.PivotFields("Projektnr.")
On Error Resume Next
.PivotItems("(blank)").Visible = False
Err.Clear
End With
Next
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Pivottabelle - wo ist Tab m ungültiger Quelle?
Magdalena

Hallo Excel Profis
habe ein File mit unzähligen Pivot-Tabellen und hab beim Erstellen unabsichtlich ein paar feste Pfade eingebaut. Hätte gedacht, dass ich die nun alle korrigiert habe (alle Pivots einzeln durchgeklickt), wenn ich jedoch jetzt auf "Alle Aktualisieren" drücke, dann wirft es...
13.02.2017 14:32:02
Thread-ID: 1541256
2 Beiträge
Anzeige
Pivottabelle - Fehlermeldung
Hubert

Hallo
Frage an die Excel-Experten
Ich habe eine Pivottabelle angelegt. Nachträglich habe ich in den Quelldaten etwas geändert und danach in der Pivottabelle "Aktualisieren" angeklickt.
Nun kommt aber folgende Fehlermeldung:
== Ein Feld in ihren Quelldaten enthält mehr einzigarti...
23.10.2005 14:54:59
Thread-ID: 685706
6 Beiträge
Pivot Tabelle Fehlermeldung
Sabine

Hallo,
ich versuche eine Pivottabelle auf Grundlage es access imports zu erstellen. Immer wenn ich versuche diese zu erstelen, kommt die Meldung "Invalid reference...."
Es sind aber hinter den ganzen Daten keine Formeln hinterlegt.
Die tabelle besteht aus Datum, Jahr, Auftragsnummer...
15.05.2008 10:58:30
Thread-ID: 977709
3 Beiträge
PowerQuery PivotTable-Bericht ungültig
Stefan
Hallo liebe Experten,
ich habe aktuell ein sehr merkwürdiges Problem und habe auch schon diverse Foren durchforstet, jedoch bisher ohne Erfolg. Ich hoffe ihr könnt mir bei meinem Problem helfen.
Ich habe ein Datenmodell in PowerQuery, welches verschiedene Excel Dateien als Quelle hat. Dieses...
28.09.2021 16:34:56
Thread-ID: 1849548
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Laufzeitfehler bei Pivot über Makro in Excel beheben

Schritt-für-Schritt-Anleitung

  1. Makro erstellen: Starte den VBA-Editor (Alt + F11) und erstelle ein neues Modul.

  2. Code eingeben: Füge den folgenden Code ein, um eine Pivot-Tabelle für jedes Tabellenblatt zu erstellen:

    Sub Pivot()
    Dim myWorksheet As Worksheet
    Dim Bereich As Range
    For Each myWorksheet In Worksheets
        myWorksheet.Activate
        Set Bereich = ActiveSheet.UsedRange
        ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        Bereich, TableName:="Pivot_" & myWorksheet.Name
        With ActiveSheet.PivotTables(1)
            .PivotFields("Projektnr.").Orientation = xlRowField
            .AddDataField Field:=.PivotFields("Betrag"), Caption:="Summe von Betrag", Function:=xlSum
            .TableStyle2 = "PivotStyleLight16"
        End With
    Next
End Sub

  3. Fehlerbehandlung einbauen: Um Laufzeitfehler wie „der PivotTable-Feldname ist ungültig“ zu vermeiden, stelle sicher, dass alle Daten in einer Liste mit Spaltenüberschriften organisiert sind.

  4. Zahlenformat anpassen: Wenn du das Zahlenformat anpassen möchtest, verwende die folgende Zeile:

    .NumberFormat = "#,##0.00"

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler '1004': Der PivotTable-Feldname ist ungültig.“

    • Lösung: Stelle sicher, dass der Datenbereich tatsächlich Spaltenüberschriften enthält. Leere Zellen oder falsche Datenformate können diesen Fehler verursachen. Verwende die Funktion RealUsedRange, um den tatsächlichen Datenbereich zu ermitteln.

  • Fehler: „PivotTable-Feldname ungültig um einen PivotTable-Bericht zu erstellen.“

    • Lösung: Überprüfe die Namen der Felder, die du in der Pivot-Tabelle verwendest. Diese müssen mit den Spaltenüberschriften in deinem Datenbereich übereinstimmen.

Alternative Methoden

  • Verwendung von CurrentRegion: Wenn deine Daten gut strukturiert sind, kannst du den Bereich auch mit Range("A1").CurrentRegion ermitteln. Dies vermeidet das Problem von leeren Zellen und sorgt dafür, dass nur die relevanten Daten in die Pivot-Tabelle einfließen.

  • Direktes Hinzufügen von Datenfeldern: Anstatt die Felder umbenennen zu müssen, füge das Datenfeld direkt hinzu:

    .AddDataField Field:=.PivotFields("Betrag"), Caption:="Summe von Betrag", Function:=xlSum

Praktische Beispiele

Hier ist ein Beispiel für ein vollständiges Makro, das eine Pivot-Tabelle erstellt und häufige Probleme berücksichtigt:

Sub Pivot_2()
    Dim myWorksheet As Worksheet
    Dim Bereich As Range
    Dim pvTab As PivotTable
    For Each myWorksheet In Worksheets
        myWorksheet.Activate
        Set Bereich = ActiveSheet.UsedRange
        ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        Bereich, TableName:="Pivot_" & myWorksheet.Name
        Set pvTab = ActiveSheet.PivotTables(1)
        With pvTab
            .PivotFields("Projektnr.").Orientation = xlRowField
            .AddDataField Field:=.PivotFields("Betrag"), Caption:="Summe von Betrag", Function:=xlSum
            .TableStyle2 = "PivotStyleLight16"
        End With
    Next
End Sub

Tipps für Profis

  • Verwende On Error Resume Next: Dies kann helfen, Laufzeitfehler zu ignorieren, wenn du über Tabellenblätter iterierst, die möglicherweise nicht die erwarteten Felder enthalten.

  • Feldnamen dynamisch prüfen: Überprüfe, ob die benötigten Felder vorhanden sind, bevor du versuchst, sie zu verwenden. Dies reduziert die Wahrscheinlichkeit, dass die Fehlermeldung „der Pivotfeldname ist ungültig“ auftritt.

  • Automatisiere das Formatieren: Wenn du eine standardisierte Formatierung für deine Pivot-Tabellen benötigst, erstelle eine Funktion, die das Format nach der Erstellung der Tabelle automatisch anwendet.

FAQ: Häufige Fragen

1. Was bedeutet der Fehler „PivotTable-Feldname ungültig“?
Dieser Fehler tritt auf, wenn der angegebene Feldname nicht in den Spaltenüberschriften deiner Datenquelle gefunden werden kann.

2. Wie kann ich sicherstellen, dass meine Daten für eine Pivot-Tabelle geeignet sind?
Stelle sicher, dass deine Daten in einer strukturierten Liste mit klaren Spaltenüberschriften angeordnet sind und dass keine leeren Zeilen oder Spalten vorhanden sind.

3. Warum wird statt „Summe von Betrag“ „Anzahl von Betrag“ angezeigt?
Das passiert, wenn der Datenbereich leere Zellen enthält. In diesem Fall interpretiert Excel die Daten als nicht numerisch. Überprüfe deinen Datenbereich und entferne leere Zellen, um dies zu vermeiden.

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