|
Hallo und schöne Grüße an alle,
ich stehe irgendwie auf dem Schlauch.
Kann mir bitte jemand das als Schleife umbauen:
Cells(Range("K2") + 1, 3).Value = Cells(1, 11).Value
Cells(Range("K3") + 1, 3).Value = Cells(1, 11).Value
Cells(Range("K4") + 1, 3).Value = Cells(1, 11).Value
Cells(Range("K5") + 1, 3).Value = Cells(1, 11).Value
Cells(Range("K6") + 1, 3).Value = Cells(1, 11).Value
Werte zwischen K2 und K6 sind verschiedene Zahlen.
Wert in K1 ist ein Buchstaben-Zahlen-Salat der übertragen wird.
Danke
|