Office: (Office 2010) Matrixdarstellung per Kreuztabellenabfrage

Broom · 3. Juli 2017

Hallo Eberhard,
jetzt funktioniert es einwandfrei.
Habe es auf meinen Fall angepasst und es läuft.
Da hast du eine super Funktion erstellt. Toll!
Danke

Auch eine Danke an alle Anderen für die gute Unterstützung.

Broom · 3. Juli 2017

Habe doch noch eine Frage.
Die Tabelle "Listtabelle" wird auch neu erstellt wenn sie noch nicht vorhanden ist. Im Beispiel ist das Feld Art als kurzer Text definiert und der Betrag als Zahl. Wenn das Feld Betrag ein Textfeld ist, kommt es zu einem Fehlerhinweis wegen Datentypkonflikt. Kann man dieses Feld bei der Neuerstellung auch als Textfeld definieren?

ebs17 · 3. Juli 2017

Die Funktion hat einige Argumente, die man auf persönliche Belange einstellen kann:
Code:

Public Function PivotToList(ByVal NamePivotTable As String, _
ByVal NameListTable As String, _
ByVal NumberFirstMatrixField As Byte, _
ByVal NameTitleField As String, _
ByVal NameValueField As String, _
ByVal TypeValuefield As DataTypeEnum, _
Optional ByVal UseNullValues As Boolean = False, _
Optional ByVal IntoNewTable As Boolean = False) As Boolean
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffte, die Bezeichnungen der Argumente wären selbsterklärend.

Gleichlautend müsste man dann in der vewendeten Anfügeabfrage auf den geänderten Datentyp eingehen, an folgender Stelle:
Code:

For i = NumberFirstMatrixField - 1 To .Fields.Count - 1

sSQL = "INSERT INTO " & NameListTable & " (" & sConstantFields & "[" & _
NameTitleField & "], [" & NameValueField & "])" & _
" SELECT " & sConstantFields & "'" & .Fields(i).Name & "', [" & _
.Fields(i).Name & "] FROM " & NamePivotTable
If Not UseNullValues Then
sSQL = sSQL & " WHERE [" & .Fields(i).Name & "] IS NOT NULL"
End If
dbs.Execute sSQL, dbFailOnError
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Siehe dazu auch Grundlagen - SQL ist leicht (5) - Datentypbehandlung für VBA

Der unmittelbare Einbau der Behandlung anderer Datentypen war mir zu aufwändig. Andererseits sollte der Anwender den Code auch etwas verstehen und demzufolge auch anpassen können.

Broom · 3. Juli 2017

Wenn die Tabelle vorhanden ist und man das Feld Betrag als "Kurzer Text" definiert, dann ist auch ein Import bzw. Anfügen von Datensätzen möglich ohne das ein Hinweis auf Datenkonflikt erscheint.

Broom · 3. Juli 2017

Ich habe versucht die Datentypen anzupassen, aber es gelingt mir nicht. Meine Anpassung sieht wie folgt aus:
Code:

ByVal TypeValuefield As String, _...
" SELECT " & sConstantFields & "'" & .Fields(i).Name & "', " & _
"'" & .Fields(i).Name & "'" & FROM & NamePivotTable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich erhalte den Hinweis das FROM nicht als Variable definiert ist?

Broom · 4. Juli 2017

Wenn man dbLong gegen dbText ersetzt wird auch der Datentyp 'kurzer Text' in der Listtabelle erzeugt:
Code:

bRet = PivotToList("Pivottabelle_XL", "Listtabelle", 4, "Art", "Betrag", dbText, False, False)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Matrixdarstellung per Kreuztabellenabfrage

Matrixdarstellung per Kreuztabellenabfrage

Matrixdarstellung per Kreuztabellenabfrage

Matrixdarstellung per Kreuztabellenabfrage

Matrixdarstellung per Kreuztabellenabfrage - Similar Threads - Matrixdarstellung Kreuztabellenabfrage

Spaltensumme in einer Kreuztabellenabfrage

kein gültiger feldname oder ausdruck bei Kreuztabellenabfrage

Leere Felder in kreuztabellenabfrage mit 0 füllen

Verbessern der Lesbarkeit von Zusammenfassungsdaten mithilfe einer Kreuztabellenabfrage

Datumseingrenzung in Kreuztabellenabfrage