Ich habe in einer Mappe probleme mit folgendem Makro:
Sub Restmenge_ermitteln()
Dim i As Long, dRest As Double, dTotal As Double
With Sheets("Tagesleistung")
i = 5 'Starte ab Zeile 5 - man könnte auch nach dem Stichwort "Aufträge" in Spalte A suchen _
lassen
'Nun laufen wir von Zeile 5 hinunter bis wir auf Total stoßen (zur Sicherheit wollen wir nie in _
_
_
_
den Bereich Folieren gelangen!)
Do While .Cells(i, stAuftraege) "Total" And .Cells(i, stAuftraege) "Folieren" ' And Not _
IsEmpty (.Cells(i, stRestmenge))
If .Cells(i, stAuftraege) 0 Then 'Die Nullen in Spalte sollte man möglichst löschen, _
aber wir ignorieren sie erst einmal
'Wenn wir bereits eine Restmenge haben, ziehen wir davon ab, ansonsten starten wir mit _
_
_
_
der Gesamtmenge
dRest = IIf(IsEmpty(.Cells(i, stRestmenge)), .Cells(i, stGesamtmenge), .Cells(i, _
stRestmenge)) _
- Application.WorksheetFunction.Sum(.Range(.Cells(i, stRestmenge + 1), .Cells(i, _
stUBound - 1)))
.Cells(i, stRestmenge) = dRest
dTotal = dTotal + dRest
.Range(.Cells(i, stRestmenge + 1), .Cells(i, stUBound - 1)).ClearContents
End If
i = i + 1
Loop
If .Cells(i, stAuftraege) = "Total" Then .Cells(i, stRestmenge) = dTotal
End With
End Sub
Anfangs hat es funktioniert, nun plötzlich funktioniert es zwar noch, aber es dauert jedesmal ca. 30 Sek. und es kommt dann eine Fehlermeldung. Vielleicht kann jemand sich ja einmal die Mappe "Tagesleistung" mit dem Button "Update" anschauen, hier die Mappe:
https://www.herber.de/bbs/user/139764.xlsm
Die Daten sind nicht sensibel, kann niemand etwas damit anfangen.
Danke und Gruss René