man hat mir einmal schnell geholfen. Folgen Lösung habe ich mal erhalten:
Set raDrop = Union(Range("X21"), Range("AI21"), Range("AT21"), Range("BE21"), Range("BP21"))
raDrop = "Nein"
Set raPlus = Nothing: Set raDrop = Nothing
Range("X5").Formula = "=Y5"
Range("X6").Formula = "=Y6"
Range("X7").Formula = "=Y7"
Range("X8").Formula = "=Y8"
Range("X9").Formula = "=Y9"
Range("X10").Formula = "=Y10"
Range("X11").Formula = "=Y11-X10"
Range("AI5").Formula = "=AJ5"
Range("AI6").Formula = "=AJ6"
Range("AI7").Formula = "=AJ7"
Range("AI8").Formula = "=AJ8"
Range("AI9").Formula = "=AJ9"
Range("AI10").Formula = "=AJ10"
Range("AI11").Formula = "=AJ11-AI10"
Range("AT5").Formula = "=AU5"
Range("AT6").Formula = "=AU6"
Range("AT7").Formula = "=AJ7"
Range("AT8").Formula = "=AU8"
Range("AT9").Formula = "=AU9"
Range("AT10").Formula = "=AU10"
Range("AT11").Formula = "=AU11-AT10"
Range("BE5").Formula = "=BF5"
Range("BE6").Formula = "=BF6"
Range("BE7").Formula = "=BF7"
Range("BE8").Formula = "=BF8"
Range("BE9").Formula = "=BF9"
Range("BE10").Formula = "=BF10"
Range("BE11").Formula = "=BF11-BE10"
Range("BP5").Formula = "=BQ5"
Range("BP6").Formula = "=BQ6"
Range("BP7").Formula = "=BQ7"
Range("BP8").Formula = "=BQ8"
Range("BP9").Formula = "=BQ9"
Range("BP10").Formula = "=BQ10"
Range("BP11").Formula = "=BQ11-BP10"
End Sub
~f~
Jetzt möchte ich jeweils in den Zellen X7 Ai7 AT7 und BE7 eine andere Formel eingetragen erhalte aber wenn ich dieses wie unten steht ändere eine Debuggen Meldung die sich auf die neue Formel bezieht. Hat einer eine Idee.
~f~
Set raDrop = Union(Range("X21"), Range("AI21"), Range("AT21"), Range("BE21"), Range("BP21"))
raDrop = "Nein"
Set raPlus = Nothing: Set raDrop = Nothing
Range("X5").Formula = "=Y5"
Range("X6").Formula = "=Y6"
Range("X7").Formula = "=WENN(Y7<AA7;AA7;Y7)"
Range("X8").Formula = "=Y8"
Range("X9").Formula = "=Y9"
Range("X10").Formula = "=Y10"
Range("X11").Formula = "=Y11-X10"
Range("AI5").Formula = "=AJ5"
Range("AI6").Formula = "=AJ6"
Range("AI7").Formula = "=WENN(AJ7<AL7;AL7;AJ7)"
Range("AI8").Formula = "=AJ8"
Range("AI9").Formula = "=AJ9"
Range("AI10").Formula = "=AJ10"
Range("AI11").Formula = "=AJ11-AI10"
Range("AT5").Formula = "=AU5"
Range("AT6").Formula = "=AU6"
Range("AT7").Formula = "=WENN(AU7<AV7;AV7;AJ7)"
Range("AT8").Formula = "=AU8"
Range("AT9").Formula = "=AU9"
Range("AT10").Formula = "=AU10"
Range("AT11").Formula = "=AU11-AT10"
Range("BE5").Formula = "=BF5"
Range("BE6").Formula = "=BF6"
Range("BE7").Formula = "=WENN(BF7<BH7;BH7;BF7)"
Range("BE8").Formula = "=BF8"
Range("BE9").Formula = "=BF9"
Range("BE10").Formula = "=BF10"
Range("BE11").Formula = "=BF11-BE10"
Range("BP5").Formula = "=BQ5"
Range("BP6").Formula = "=BQ6"
Range("BP7").Formula = "=BQ7"
Range("BP8").Formula = "=BQ8"
Range("BP9").Formula = "=BQ9"
Range("BP10").Formula = "=BQ10"
Range("BP11").Formula = "=BQ11-BP10"
End Sub
Viele Dank im Voraus