hallo,
ich hoffe ihr könnt mir helfen.
ich habe folgenden code geschrieben, der in meiner firma auch über monate sauber lief:
For m = 3 To 4
n = 1
Do While Sheets(n).Cells(m, 4).Value <> "" And n < 13
Sheets(13).Cells(m, 4).Value = Sheets(n).Cells(m, 4).Value
n = n + 1
Loop
Next
komischer weise steigt mir das programm laut debugger in der do while bedingeung aus. ich kann dort aber partout keinen fehler entdecken.
hat von euch vielleicht jemand einen hinweis? oder kann mich vielleicht ein bischen in die richtige richtung schubsen?
vielen dank schonmal
grüße inqui |