Guten Abend zusammen,
ich habe eine kleine Frage. Ich möchte für meine Prognoseanpassung die Ursprungsdaten um x Prozent verändern. Um diese Rechnungdurchführen zu können möchte ich ab der dritten Spalte immer eine Zusatzspalte einfügen und dann zum nächsten Kunden springen.
Sieht dann so aus:
Datum Uhrzeit Kunde1 Kunde2 Kunde 3....
Mit dem unten aufgeführten Code erhalte ich stets den Laufzeitfehler 1004. Hat jemand eine Idee wie ich zwischen Kunden 1 und 2 eine Zusatzspalte einbauen kann und dann als nächstes eine Spalte zwischen Kunde 2 und 3 einfügen kann?
'Zusatzspalte einfügen um die Anpassung durchführen zu können
Spalte = 4
Vorgabewert = 20
Do
Range(Cells(4, Spalte), Cells(4, Spalte)).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Vorgabewert = Vorgabewert - 1
Spalte = Spalte + 2
Loop While Vorgabewert < 20
ich danke euch für eure Hilfe.
Viele Grüße
Roman