Office: Tabellen umformatieren

Hallo,
ich habe eine Tabelle, die folgendermaßen aufgebaut ist:
Abschnitt Art 1 Anzahl 1 Art 2 Anzahl 2
4 M. jurtina 4 T. betulae 2
5 S. chenopodiata 5 M. jurtina 7

Nun muss ich diese Daten in folgendes Tabellenformat überführen:

Abschnitt Art Anzahl
4 M. jurtina 4
4 T. betulae 2
5 S. chenopodiata 5
5 M. jurtina 7

Kann mir jemand helfen, wie ich das mache?

LG, Cindy

 

Hallo Cindy,

warum ist die Art "4 T. betulae 2" mit eimal ein Abschnitt?
warum ist die Art "5 M. jurtina 7" mit eimal ein Abschnitt?

 

Hallo,
ich sehe jetzt erst, dass durch das Abschicken des Beitrags die Formatierung durcheinander geraten ist. Daher lade ich mal 2 Excel Tabellen hoch um das Ganze leserlicher darzustellen. Mein Datensatz ist recht groß und die Tabellen zeigen nur einen Ausschnitt.

Danke für die Hilfe!

 

Du willst es in zwei Dateien haben, das ist mir zu aufwendig.
Eine Lösung mit VBA wäre möglich.
Dein Vorhaben ist nicht möglich. Da eine XLSX Datei kein Makro enthält
.

Gruß Hajo

 

Gut eine VBA Lösung ist nicht gewünscht.
In der gleichen Datei wäre es dieser.

Code:

Option Explicit

Sub Tabellle()
    Dim LoLetzte As Long
    Dim Loi As Long
    Dim LoZeile As Long
    With ActiveSheet
        LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        Worksheets.Add
        .Range("A1:C1").Copy Range("A1")
        For Loi = 2 To LoLetzte
            LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
            .Range(.Cells(Loi, 1), .Cells(Loi, 3)).Copy Cells(LoZeile, 1)
            .Cells(Loi, 1).Copy Cells(LoZeile + 1, 1)
            .Range(.Cells(Loi, 4), .Cells(Loi, 5)).Copy Cells(LoZeile + 1, 2)
        Next Loi
    End With
End Sub

Ich bin dann raus, da keine VBA Lösung gwüscht.
Viel Erfolg.
Vielleicht findert jemand noch eine VBA freie Lösung.

Gruß Hajo