Office: (Office 2010) Tabelle transponieren

mareike.b1 · 18. Oktober 2014

Hallo *Smilie
Mein Problem ist folgendes:
Ich will eine Tabelle mit 5 Spalten und einem Datensatz transponieren, so dass die Spaltenüberschriften zu Zeilenüberschriften werden.

Ausgangstabelle:
A B C D E
1 2 3 4 5

Zieltabelle:

Was Wieviel
A 1
B 2
C 3
D 4
E 5

Die Zieltabelle brauche ich in der Form um daraus ein Kreisdiagramm zu machen.
Gibt es eine Funktion in Access oder einen VBA Code mit dem man das umsetzen kann?

Da ich mich noch nicht lange mit Access beschäftige, freue ich mich über jede Hilfe.
Danke schonmal *Smilie

:)

Kyron9000 · 20. Oktober 2014

Hallo Mareike,

ohne großartig darüber nachzudenken, eine Funktion in ein Modul...
Code:

Function fncFeldnamen(X As Integer) As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabelle", dbOpenDynaset)
fncFeldnamen = rs.Fields(X).Name
Set rs = Nothing
Set db = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine Abfrage dazu...
Code:

SELECT fncFeldnamen(0) AS FN, A FROM Tabelle
UNION SELECT fncFeldnamen(1) AS FN, B FROM Tabelle
UNION SELECT fncFeldnamen(2) AS FN, C FROM Tabelle
UNION SELECT fncFeldnamen(3) AS FN, D FROM Tabelle
UNION SELECT fncFeldnamen(4) AS FN, E FROM Tabelle
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe sonst keine Idee den Feldnamen in eine Abfrage zu bekommen.

wb_3001 · 20. Oktober 2014

Hallo!

Ich will eine Tabelle mit 5 Spalten und einem Datensatz transponieren
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn die Tabelle nur einen Datensatz hat ist es am Einfachsten, das zu Fuß zu tut.
Meinst Du aber

Ich will eine Tabelle mit 5 Spalten in jedem Datensatz transponieren
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist, falls Du das nicht regelmäßig benötigst, am Einfachsten mit EXCEL zu machen. Da gibt es einen Menübefehl dafür.

Ansonsten siehe http://www@office-loesung@de/ftopic44275_0_0_asc@php. (@ gegen dot austauschen.)
Außerdem würde ich anraten das Excel- gegen ein Access-Datenmodell zu tauschen

Wolfgang

ebs17 · 20. Oktober 2014

Außerdem würde ich anraten das Excel- gegen ein Access-Datenmodell zu tauschen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diesen Transponieren-Wunsch kann man aber schon als Normalisierungs-Schritt und somit Zuwendung zu einem Datenmodell (in Excel gibt es keine Datenmodelle, sondern höchstens persönliche Richtlinien) verstehen.

Die nachfolgende Routine kann auch mit beliebig vielen Spalten sowie beliebig vielen Datensätzen in der Ausgangstabelle - vorbehaltlich der gezeigten Struktur - umgehen:
Code:

Sub TransformTable()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Dim i As Long

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Ausgangstabelle", dbOpenSnapshot)
With rs
For i = 0 To .Fields.Count - 1
sSQL = "INSERT INTO Zieltabelle(Was, Wieviel)" & _
" SELECT '" & .Fields(i).Name & "', " & .Fields(i).Name & " FROM Ausgangstabelle"
db.Execute sSQL, dbFailOnError
Next
.Close
End With

Set rs = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mareike.b1 · 20. Oktober 2014

So klappts wunderbar!
Vielen Dank!

wb_3001 · 20. Oktober 2014

Hallo Eberhard!

das Excel-Datenmodell
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

War eigentlich ein Scherz.

Wolfgang

Office: (Office 2010) Tabelle transponieren

Tabelle transponieren

Tabelle transponieren

Tabelle transponieren

Tabelle transponieren - Similar Threads - Tabelle transponieren

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

(2021) Pivot-Tabelle: mehrere Spalten als eine behandeln

Resultat aus Filter in zweiten Tabellen Blatt filtern

Umgestaltung möglich ?

Wie transponiere ich eine Tabelle mit 3 Spalten in eine komplexere Matrix?

Spalten von einer Tabelle in eine andere transponieren

Excel-Tabelle transponieren