|
Vielen Dank für deine Antwort. Ich habe den Code nun wie folgt umgeschrieben:
With Sheets("UPLOAD IREP")
' nächste freie Zeile
nextRow = IIf(IsEmpty(.Range("C7")), .Range("C7"), .Cells(Rows.Count, "C").End(xlUp)(2)).Row
' Werte kopieren
.Range("C" & nextRow).Value = Left(Sheets("Read me").Range("E9").Value, 6)
.Range("D" & nextRow).Value = Sheets("Read me").Range("E9").Value
.Range("E" & nextRow).Value = gueltig_von
.Range("F" & nextRow).Value = Sheets("Read me").Range("E8").Value
End With
So ganz mein Ziel habe ich nicht erreicht. Ich möchte für Spalte C,D,E und F Werte ergänzen. Uns zwar für alle Zeilen von Zeile 7 bis zur letzten befüllten Zeile. Vielleicht hilft das Bild zu verstehen, was ich meine?
Zum Hintergrund, Die Spalten A,B, G, H, I etc setzen sich aus vielen Tabellenblättern zusammen, Spalte C,D,E und F sind Werte, die für alle Zeilen identisch sind.
| 1 |
2 |
3 |
4 |
5 |
6 |
7 |
| |
|
|
|
|
|
|
| |
|
|
|
|
|
|
| |
|
|
|
|
|
|
| ZULIEFERUNGSTYP |
GESCHAEFTSTYP |
AENDERUNGSGRUND |
KOMMENTAR |
GUELTVON |
GUELTBIS |
PORTFOLIOKONTEXT |
| Zulieferungstyp (S.6369)* |
GA: Geschäftstyp
(S.6427)* |
Änderungsgrund
(S.4377) |
Kommentar* |
Gültig von* |
Gültig bis* |
Portfoliokontext
(S.2010)* |
| 4102 |
3 |
146792 |
|
|
|
10001 |
| 4102 |
4 |
146792 |
|
|
|
10001 |
| 4102 |
4 |
146792 |
|
|
|
10001 |
| 4102 |
4 |
146792 |
|
|
|
10001 |
| 4102 |
4 |
146792 |
|
|
|
10001 |
| 4102 |
4 |
146792 |
|
|
|
10001 |
| |
|
146792 |
146792 nicht an DIS Stage angebunden |
20240731 |
20240930 |
|
|