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!
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
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