Ich möchte in einem Worksheet (aSheet) in den Zellen B4 bis bis B153, 150 mal den gleichen Wert aus dem Worksheet "Dateien", Zelle B4 einsetzen.
Anschliessend möchte ich in in den Zellen B154 bis B303 150 mal den Wert aus dem Worksheet Dateien, Zelle B5 einsetzen, usw.
Sobald die nächste Zelle im Worksheet "Dateien" leer ist, möchte ich die Aktion abschliessen.
Kann mir jemand sagen, wie ich diese Schlaufe mache (hochzählen oder so)?
Vielen Dank
Peter
With aSheet
zNr = 4
ErfTool = 4
.Cells(zNr, "B") = Worksheets("Dateien").Cells(ErfTool, "B")