Excel - VBA - Tabellenumwandlung

Weiß jemand, wie man folgendes Thema, via VBA oder Excel, löst:

Ich habe mehrere hundert Keys, die verschiedenste unterschiedliche Daten beinhalten, die alle in einer Spalte angegeben sind.

Die Tabellen-Struktur sieht folgend aus (und enthält im Original Kontaktdaten bspw. Fax- und Mailadressen)

und geht munter so weiter :D

Um die Daten besser strukturieren zu können, möchte ich nun folgende Tabelle erstellen:

Gibt es eine Möglichkeit, so etwas mit Excel zu machen? Gerne auch via VBA.

Falls möglich wäre eine Schritt für Schritt-Anleitung super.

Vielen Dank im Voraus.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 610828

Url: https://administrator.de/forum/excel-vba-tabellenumwandlung-610828.html

Ausgedruckt am: 26.04.2025 um 09:04 Uhr

6 Kommentare

Neuester Kommentar

Hallo

Google mal nach Excel Tabelle transponieren, da sollte dir geholfen werden können

Gruss

Sub DatenGruppieren()
    'Quellsheet  
    Set wsSource = Sheets(1)
    'Zielsheet  
    Set wsTarget = Sheets(2)
    With wsSource
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            If cell.Value <> "" Then  
                Set f = wsTarget.Range("A:A").Find(cell.Value, Lookat:=xlWhole)  
                If Not f Is Nothing Then
                    wsTarget.Cells(f.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = cell.Offset(0, 1).Value
                Else
                    wsTarget.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 2).Value = cell.Resize(1, 2).Value  
                End If
            End If
        Next
    End With
End Sub