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.

Please also mark the comments that contributed to the solution of the article

Content-Key: 610828

Url: https://administrator.de/contentid/610828

Printed on: April 25, 2024 at 05:04 o'clock

6 Comments

Latest comment

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