Spalten in Zeilen mit Überschrift pivotisieren??

[Kalle75]

Hallo liebe Forummitglieder,

ich habe lange nichts mehr mit Excel zu tun gehabt und stehe nun vor einem Problem mit Daten, die ich in ein nutzbares Format, automatisiert wandeln möchte.

Ich lade mal die Datei hoch mit Ist und Soll Zustand. Ich hoffe jemand kann mir helfen? Ich habe es mit Pivot Tabellen versucht aber ich bekomme immer wieder die Überschriften ebenfalls angezeigt, die soll aber nur einmal in oberster Zeile als Überschrift sein. 

Am Ende soll es eine Liste mit mehr als 1000 Einträge werden, da diese Daten aus einem Outlook Export kommen.

Danke im Voraus.

LG, Kalle

[WillWissen]

Hallo Kalle,

warum eine csv-Datei, wenn du ein Excelproblem hast? Und wo in der Datei ist die Gegenüberstellung Ist - Soll?

[Fennek]

Hallo,

die CSV-Datei wird mit "Öffnen" korrekt eingelesen. Dann geht dieser Code:

Code:

Sub F_en()
Dim RNG As Range
lr = 10
With ActiveSheet.UsedRange.Columns(1)
    Set RNG = .Find("Anrede", , xlValues, xlWhole)
    Adr = RNG.Address
    Do
        lr = lr + 1
        Range(RNG, RNG.Offset(14)).Offset(, 1).Copy
            Cells(lr, "F").PasteSpecial Transpose:=True
        Set RNG = .FindNext(RNG)
    Loop Until RNG.Address = Adr
End With
End Sub

mfg

[Kalle75]

Ups sorry habe die falsche Datei hochgeladen... anbei die richtige Datei.

---

@Fennek

Genau das ist was ich brauche.. aber wie mache das im Detail.. bin totaler Excel Anfänger. Wo kommt der Code hin?

Danke!!

[Kalle75]

Nevermind hab´s verstanden. Sehr gut das Makro! 

Besten Dank!