chimred
Goto Top

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)

problem

und geht munter so weiter :D

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

gewuenschteloesung

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.

Content-ID: 610828

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

Ausgedruckt am: 02.04.2025 um 03:04 Uhr

Meierjo
Meierjo 07.10.2020 um 16:55:00 Uhr
Goto Top
Hallo

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

Gruss
146189
Lösung 146189 07.10.2020 aktualisiert um 17:36:57 Uhr
Goto Top
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
ChimRed 07.10.2020 um 17:38:35 Uhr
Goto Top
Naja, bei knapp 30.000 Keys mit 200.000 Werten ist das etwas...umständlich wenn ich jeden Key extra transponieren muss.
SachsenHessi
SachsenHessi 08.10.2020 um 10:20:05 Uhr
Goto Top
Hallo,
da hilft kein Transponieren.
Transponieren dreht nur die Daten, macht aus Zeilen Spalten.
Er muss Gruppieren.

LG
SH
146189
Lösung 146189 08.10.2020 aktualisiert um 10:23:44 Uhr
Goto Top
@ChimRed : Passender Code steht schon oben, falls übersehen.
ChimRed
ChimRed 08.10.2020 um 22:18:53 Uhr
Goto Top
Danke, funktioniert top face-smile