Hi prima, nun klappt es auch vielen lieben Dank. Echt Klasse :)
Eine Frage habe ich noch: Ich habe noch im Sheet1 2 Zeilen hinzugefügt mit 2 neue Parameter, wodurch sich alles natürlich um 2 Zeilen verschiebt.
Ich habe ein Problem, dass der zweite Parameter nicht ersetzt wird im Sheet2 in Spalte D, da dieser wieder ein Spezialparameter ist der in Spalte D vorkommt (also genau wie die 4 anderen)
Ich habe eigentlich den Code auch angepasst genau wie bei den anderen:
Else
Select Case temp
Case "pBUDATto"
parameter(5, 1) = "pBUDATto"
parameter(6, 1) = Workbooks(ziel).Worksheets(1).Cells(i, 5)
Case "pUDATEto"
parameter(5, 2) = "pUDATEto"
parameter(6, 2) = Workbooks(ziel).Worksheets(1).Cells(i, 5)
Case "pZALDTto"
parameter(5, 3) = "pZALDTto"
parameter(6, 3) = Workbooks(ziel).Worksheets(1).Cells(i, 5)
Case "pWADAT_ISTto"
parameter(5, 4) = "pWADAT_ISTto"
parameter(6, 4) = Workbooks(ziel).Worksheets(1).Cells(i, 5)
Case "pWADAT_ISTto"
parameter(5, 5) = "panGJAHRto"
parameter(6, 5) = Workbooks(ziel).Worksheets(1).Cells(i, 5)
Habe ich was vergessen sonst noch anzupassen?
Zur Info:
Wegen diesen 2 neuen Zeilen habe ich auch dementsprechend die Stelle des Codes angepasst, wo die Packages stehen damit das auch nicht in die quere kommt.
Die Packages sind nun im Zellen A77:A82 (es ist ein Package hinzugekommen, also 6 Packages nun).
Dementsprechend habe ich den Code angepasst und das mit dem neuen Package klappt auch wunderbar :)
If i < 77 Or i > 82 Then
'Parameternamen auswerten
Bleibt also nur der Fehler das der eine neue Parameter "panGJAHRto" nicht ersetzt wird.
Ich danke dir nochmals.
Grüße und einen schönen Abend
Christy
|