Krass langer Code. Wie lange läuft das Makro würde mich mal interessieren? Gib mal zu Beginn Debug.Print "Start: " & now und ganz zum Schluss Debug.Print "Ende: " & now ein. Im Direktbereich siehst Du dann die Laufzeit.
Mir ist gerade etwas aufgefallen. Die Variablen für "GezähltGV0xxx" musst Du nicht explizit für jede GV deklarieren. Es muss ausreichen, wenn Du einfach nur Dim Gezählt as Integer deklarierst und das für jede Schleife einsetzt, da die Variable jedesmal ohenhin auf 0 zurückgesetzt wird.
Für einen dritten Auftrag müsstest Du eine dritte Schleife einrichten:
Mir ist gerade etwas aufgefallen. Die Variablen für "GezähltGV0xxx" musst Du nicht explizit für jede GV deklarieren. Es muss ausreichen, wenn Du einfach nur Dim Gezählt as Integer deklarierst und das für jede Schleife einsetzt, da die Variable jedesmal ohenhin auf 0 zurückgesetzt wird.
Für einen dritten Auftrag müsstest Du eine dritte Schleife einrichten:
Visual Basic-Quellcode
- Gezählt = 0
- For Each r In Intersect(.UsedRange, .Range("B:B"))
- If r = "GV0588" Then
- Gezählt = Gezählt + r.Count
- If r = "GV0588" And Gezählt > AnzahlGV0588_gelb1 + AnzahlGV0588_gelb2 And Gezählt <= AnzahlGV0588_gelb1 + AnzahlGV0588_gelb2 + AnzahlGV0588_gelb3 Then
- r.Offset(0, -1).Interior.Color = Gelb
- End If
- End If
- Next r