Terminliste automatisch umgestalten

[Lauchcremesuppe]

Ich habe vom Lieferanten eine Terminübersicht bekommen und möchte diese umarbeiten.
Ziel ist es die Daten in ein ERP zu bekommen. Das funktioniert leider nur indem "Sollzustand".

Gibt es die Möglichkeit das automatisch machen zu lassen?

Schon jetzt herzlichen Dank fürs Helfen!

[Matthias84]

Hallo,

du hast dafür 3 Möglichkeiten:

1.) Frage mal deinen Lieferanten, ob er sie nicht in dem von dir benötigten Format zur Verfügung stellen kann.

2.) Ab Excel 2016 automatisch dabei: Power Query - davor kann dies zusätzlich installiert warden

3.) Per VBA

[MisterBurns]

Ich würde sogar soweit gehen und dies vom Lieferanten fordern! Sollte wohl unter Dienstleistung laufen...

PS: Na toll, jetzt hab ich Lust auf Lauchcremesuppe!


EDIT: Hier, so sollte es grundsätzlich hinhauen. Ändert aber nichts an meiner obigen Aussage.

Code:

Sub uebertragen()
Dim Z As Long
Dim S As Long
Dim ZZ As Long
Dim Ziel As Worksheet

Set Ziel = Sheets("Tabelle2")       'Zieltabelle
ZZ = 2                              'Zielzeile

With Sheets("Tabelle1")
    For Z = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        For S = 2 To .Cells(2, Columns.Count).End(xlToLeft).Column
            Ziel.Cells(ZZ, 1) = .Cells(Z, 1)
            Ziel.Cells(ZZ, 2) = .Cells(Z, S)
            ZZ = ZZ + 1
        Next S
    Next Z
End With
Ziel.Columns(2).NumberFormat = "m/d/yyyy"
End Sub