Spalten in Zeilen umwandeln, wenn diese befüllt sind

[orhane]

Hallo liebe Forumsgemeinde,

das ist meine erste Nachricht hier und ich sitze wohlmöglich vor einem für euch recht einfachem Problem.
Meine Datentabelle soll die Zeilen und Spalten zueinander zuordnen, so dass diese befüllt werden, sofern diese auch einen Wert besitzen.


  Beispieldatensatz.xlsx (Größe: 12,31 KB / Downloads: 11)

Gibt es dafür eine Prozedur, die mir das Umwandeln erleichtert?
Sprich Daten nur umwandeln, wenn auch wirklich etwas vorher in der Spalte stand.

Vielen Dank.

[UweD]

Hallo

in ein normales Modul

Code:

Sub Transform()
    Dim TB1 As Worksheet, TB2 As Worksheet
    Dim LR As Integer, LC As Integer, i As Integer, j As Integer, Z As Integer
   
    Set TB1 = Sheets("Beispieldatensatz")
    Set TB2 = Sheets("Ziel")
   
   
    'Reset
    TB2.UsedRange.Offset(1).ClearContents
    Z = 2 'erste Zielzeile
   
    LR = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
    LC = TB1.Cells(1, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
   
    For i = 2 To LR
        For j = 2 To LC
            If TB1.Cells(i, j) <> "" Then
                TB2.Cells(Z, 1) = TB1.Cells(i, 1)
                TB2.Cells(Z, 2) = TB1.Cells(1, j)
                TB2.Cells(Z, 3) = TB1.Cells(i, j)
                Z = Z + 1
               
            End If
        Next j
    Next
End Sub

LG UweD

[orhane]

Vielen Dank, ich probiere es gleich aus.

---

Funktioniert wunderbar, jetzt werde ich nur es versuchen zu erweitern, wenn ich noch mehr Variablen habe, die ich auflisten möchte, aber somit ist die Vorgehensweise sehr gut transparent nachvollziehbar.

[PIVPQ]

Hallo

Oder als Alternative mit PQ, einfach PQ Tabelle nur Aktualisieren.

[orhane]

Hallo

Oder als Alternative mit PQ, einfach PQ Tabelle nur Aktualisieren.

Vielen Dank, ich finde PowerQuery ziemlich gut, nur müsste Ich mich in die Steuerung der Elemente und Zuordnung der Daten und Verweise einarbeiten. Viele Grüße