Call Sheets("Grafdata").SollBM
thomas
Hallo,
Call Sheets("Grafdata").SollBM sieht wie folgt aus: Aber ich der Fehler wird ja bei der eckigen Klammer im Change-Event angezeigt, daher glaub ich nicht, dass das Problem im Code unten liegt. Der Code unten wurde übrigens von Sepp optimiert, nicht dass ich mich da mit fremden Federn schmücke.
Besten Dank und beste Grüsse
thomas
Option Explicit
Sub SollBM()
Dim iZeile As Long
Dim Startwert As Long
On Error GoTo FEHLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Range("A328:D333, F328:K333, B340:B399").ClearContents
Range("A319:D325").Copy
Range("A327").PasteSpecial Paste:=xlPasteValues
Range("F319:K325").Copy
Range("F327").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("F327:K333").Sort Key1:=Range("G328"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B336") = WorksheetFunction.Max(Range("B328:B333"))
'dito Soll-ROS
Startwert = WorksheetFunction.RoundUp(Range("B335"), 0)
iZeile = 340
Do Until Startwert > Range("B337") Or iZeile > 399
Cells(iZeile, 2) = Startwert
iZeile = iZeile + 1
Startwert = Startwert + 5
Loop
FEHLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.Calculate
End With
End Sub