Hallo,

mit den folgenden Code werden die importierten csv-Daten aufbereitet:

Sub Aufbereitung()
    Dim rngRw As Range
    Dim strTMP As String
    Dim strName As String
    For Each rngRw In ActiveWorkbook.Worksheets("Daten").UsedRange.Rows
        strName = rngRw.Cells(3) & ", " & rngRw.Cells(4)
        Person strName, rngRw.Cells(5), rngRw.Cells(7)
        End If
    Next
End Sub

Sub Person(strName As String, strEigenschaft As String, strWert As String)
    ' Tabelle: Personen
    ' Suche nach strName in Spalte A
    ' Zeile 1: Eigenschaften einer Person
    
    Dim rng As Range
    Dim rngPerson As Range
    Dim rngFind As Range
    Dim rngProp As Range
    With ActiveWorkbook.Worksheets("Personen")
        Set rngFind = .Range("A:A").Find(strName)
        If rngFind Is Nothing Then
            ' Person Nicht vorhanden -> Neu anlegen
            Set rngPerson = .Rows(.UsedRange.Rows.Count + 1)
            rngPerson.Cells(1) = strName
        Else
            Set rngPerson = .Rows(rngFind.Row)
        End If
        
        ' Eigenschaften
        Set rng = .Range("1:1")
        Set rngFind = rng.Find(strEigenschaft)
        If rngFind Is Nothing Then
            ' Eigenschaft nicht vorhanden -> anlegen
            Set rngProp = .Columns(.UsedRange.Columns.Count + 1)
            rngProp.Cells(1) = strEigenschaft
        Else
            Set rngProp = .Columns(rngFind.Column)
        End If
        
        If Not rngProp Is Nothing And Not rngPerson Is Nothing Then
            ' Wert eintragen
            .Cells(rngPerson.Row, rngProp.Column) = strWert
        End If
    End With
End Sub

Damit der Code fehlfrei durchläuft müssen in der Arbeitsmappe zwei Tabellen vorhanden sein:

- Tabelle 1: Daten
Beinhaltet alles csv-Daten (Wichtig ist hierbei, dass der Name in Spalte C und D befindet)

- Tabelle 2: Personen
Es muss hier nur die Zelle A1 mit "Name" vorausgefüllt werden

Der Befehl "Aufbereitung" füllt die Tabelle "Personen".

VG, BigBen