Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Daten von Waagrecht zu Senkrecht

Forumthread: Daten von Waagrecht zu Senkrecht

Daten von Waagrecht zu Senkrecht
02.05.2025 12:19:20
Max
Guten Morgen zusammen, eine Frage. Wie kann ich Daten die Waagrecht angeordnet sind automatisch in Senkrecht "umwandeln"

Beispiel Datei im Anhang. Rot ist das was mir aktuell zur Verfügung steht und Gelb wäre das was ich brauche.

Kann mir da jemand einen Tipp geben bitte?

https://www.herber.de/bbs/user/177305.xlsx

LG MAX
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 12:32:30
Sigi.21
Hallo Max,

sieh dir die Funktion MTRANS() an. Das könnte es sein, was du suchst.

Gruß Sigi
Du könntest das...
02.05.2025 14:13:17
Case
Moin Max, :-)

... z. B. über Power Query lösen. Wäre das ein Weg für dich? ;-)

Servus
Case
AW: Du könntest das...
02.05.2025 14:40:50
Max
Hallo Case, das Thema interessiert mich schon lange... Aber ich hab mich leider nicht daran gewagt bisher.

Könntest Du mir da helfen?

LG
Anzeige
Das ist jetzt auf...
02.05.2025 15:26:27
Case
Moin Max, :-)

… die Schnelle: ;-)
https://www.herber.de/bbs/user/177307.xlsx

Den Bereich in eine Tabelle (heißt bei mir Tabelle2) umgewandelt (Ohne Überschrift).
Dann erste Zeile als Überschrift genommen (bei Transformieren).
Column1 in Kunde umbenannt.
Die Produkte ausgelesen.
Entpivotiert.
Kunden rausgesucht.
Daraus Tabellen gemacht.
Und alles angezeigt.


Du kannst auch bei Tabelle erstellen oder aus Bereich laden MIT Überschriften nehmen. Dann fällt der Schritt mit dem Header weg. ;-)
Er nimmt dann für die erste Zelle die Überschrift "Spalte1". Das musst du beim umbenennen noch anpassen. Oder du benennst nicht um, dann musst du eben den M-Code anpassen. ;-)

Du schaffst das. ;-)

Servus
Case
Anzeige
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 12:45:36
Max
Danke Sigi, aber leider nein. Hier werden nur die Daten links und oben vertauscht. Also Zeilen wandern in die Spalten und Spalten wandern in die Zeilen.

Ich brauche alle Spalten in Zeilen und die Werte einfach rechts daneben in EINER Spalte.

LG
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 14:10:30
GerdL
Moin Max!
Sub Unit()


Dim s As Long, z As Long, nz As Long

'Leerzeichen in Überschriften einfügen
For s = 2 To Cells(1, 2).End(xlToRight).Column
Cells(1, s) = Space(2) & Cells(1, s).Value
Next

For z = 2 To Cells(2, 1).End(xlDown).Row
'ab Zeile 7 einfügen
nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
If nz 7 Then nz = 7
'Namen
Cells(nz, 1) = Cells(z, 1)
'Überschriften
Cells(nz + 1, 1).Resize(s - 2) = Application.Transpose(Cells(1, 2).Resize(1, s - 2))
'Zahlen
Cells(nz + 1, 2).Resize(s - 2) = Application.Transpose(Cells(2, 2).Resize(1, s - 2))
Next


End Sub

Gruß Gerd
Anzeige
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 14:33:14
Max
Danke Gerd. Das ist soweit super, aber die Werte stimmen nicht. Er schreibt zwar alles untereinander. Aber die Werte sind bei Huber und Müller die selben wie bei Meier.

Huber hätte z.B. nur 1 x Pizza und 1 x Chips, hat aber alles was auch Meier hat..

Könntest Du das noch fixen?

LG
Anzeige
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 14:42:05
GerdL
Oje!

Nimm statt
'Zahlen
Cells(nz + 1, 2).Resize(s - 2) = Application.Transpose(Cells(2, 2).Resize(1, s - 2))
besser
'Zahlen
Cells(nz + 1, 2).Resize(s - 2) = Application.Transpose(Cells(z, 2).Resize(1, s - 2))

Gruß Gerd
AW: Daten von Waagrecht zu Senkrecht
02.05.2025 14:48:42
Max
Gerd, mein Held. Ich danke Dir vielmals!!!!
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18