HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Daten von Waagrecht zu Senkrecht

Forumthread: Daten von Waagrecht zu Senkrecht
10 Beiträge zu diesem Forumthread
Anzeige

Forumthread: 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

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten von Waagrecht zu Senkrecht

02.05.2025 12:32:30

Sigi.21
Du könntest das...

02.05.2025 14:13:17

Case
AW: Du könntest das...

02.05.2025 14:40:50

Max
Das ist jetzt auf...

02.05.2025 15:26:27

Case
Hier noch ein...

02.05.2025 16:26:13

Case
AW: Daten von Waagrecht zu Senkrecht

02.05.2025 12:45:36

Max
AW: Daten von Waagrecht zu Senkrecht

02.05.2025 14:10:30

GerdL
AW: Daten von Waagrecht zu Senkrecht

02.05.2025 14:33:14

Max
AW: Daten von Waagrecht zu Senkrecht

02.05.2025 14:42:05

GerdL
AW: Daten von Waagrecht zu Senkrecht

02.05.2025 14:48:42

Max

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

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

Hier noch ein...

02.05.2025 16:26:13

Case

Moin Max, :-)

... paar hilfreiche Links zu Power Query: ;-)
https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/
https://learn.microsoft.com/de-de/power-query/power-query-what-is-power-query
https://support.microsoft.com/de-de/office/hilfe-zu-power-query-f%C3%BCr-excel-2b433a85-ddfb-420b-9cda-fe0e60b82a94

Servus
Case

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

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

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!!!!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!