ich häng hier grad fest ohne VBA kenntnisse.
Wie kann ich nach der MsgBox das Makro beenden?
Und wie kann ich in der Do...While Schleife mich bei den
Zellen ebenfals auf Worksheets(3) beziehen ?
Sub berechnung_MaxProd()
If Worksheets(3).Cells(14, 19) = 0 Then
MsgBox "Nicht genügend Daten zur Berechnung vorhanden!"
End If
Dim i As Integer
i = 0
Do While Worksheets(3).Cells(14 + i, 19 + i) > 0
Range(Cells(10 + i, 19 + i), Cells(14 + i, 19 + i)).AutoFill Destination:=Range(Cells(10 + i, 19 + i), Cells(19 + i, 19 + i)), Type:=xlLinearTrend
Range(Cells(15 + i, 19 + i), Cells(19 + i, 19 + i)).Font.ColorIndex = 52
i = i + 1
Loop
End Sub
Schon mal danke,
Ben