Hallo Freunde,
kann mir jemand sagen, wie ich das hier verändern muss, damit sich auch b5 immer um 1 erhöht?
Dim proName, data, zahl
Range("C5").Formula = Range("b5").Value
proName = "5"
data = Range("b5").Value
Do Until proName = "100"
Range("C100").End(xlUp).Offset(1, 0) = data
data = Range("b5").Value
proName = proName + 1
Loop
mfg robert