versuche es 24h später ein zweites mal, gestern waren die Antworten nicht erschöpfend
habe kleines Problem mit Calculate, AUTO Berechnung habe ich ausgeschaltet (bewusst)
Case "leer6"
ws13.Range("h41").Value = ws.Range("c38").Value
ws13.Range("h42").Value = ws.Range("g6").Value
ws13.Range("h43").Value = ws.Range("i56").Value
ws13.Range("h44").Value = ws.Range("i57").Value
Case Else
' nothing
End Select
Next ws
Set ws = Nothing
Set ws13 = Nothing
Calculate
'ActiveWorkbook.Save
End Sub
die Berechnung findet erst beim zweiten RUN des Macros statt !!!
habs auch mit SAVE probiert, gibt es kleinen Trick dies doch noch zu bewerkstelligen
DANKE
gruss geri