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.
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: 02.04.2025 um 03:04 Uhr
6 Kommentare
Neuester Kommentar

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

@ChimRed : Passender Code steht schon oben, falls übersehen.