Clever-Excel-Forum

Hallo Community,

ich versuche mich an einem kleinen Aufgaben verteilen tool und stecke aktuell bei einer Sache fest.
Ich würde gerne die Anzahl an offenen Aufgaben auswerfen.

In einer Listbox zeige ich die offenen Aufgaben wie folgt an:

Code:
With Worksheets("Aufgaben")

        ReiheNr = 3

            With ListBox2

              Do While IsEmpty(Worksheets("Aufgaben").Cells(ReiheNr, 1)) = False

              If Worksheets("Aufgaben").Cells(ReiheNr, 8) = "Aufgabe" And Worksheets("Aufgaben").Cells(ReiheNr, 13) = Environ$("username") And Worksheets("Aufgaben").Cells(ReiheNr, 15) <> "erledigt" Then

Ich bekomme es aber nicht hin die Reihen zu zählen und in eine variable zu packen.

Könnte mir jemand hierzu unter die Arme greifen?

Vielen Dank!

VG Steve

Hallo Steve,

zeige doch den vollständigen Quelltext, oder noch besser: lade hier die Datei hoch.

Hi,

Zitat:Ich bekomme es aber nicht hin die Reihen zu zählen...

ich vermute mal. Du meinst die so ermittelten offenen Aufträge?

Code:
dim iToDo as integer

iToDo = Listbox2.Listcount

Ich habe es etwas einfacher nun gelöst:

Code:
With Worksheets("Aufgaben")

         AufgabenCount = 0

         ReiheNr = 3

              Do While IsEmpty(Worksheets("Aufgaben").Cells(ReiheNr, 1)) = False

               If Worksheets("Aufgaben").Cells(ReiheNr, 8) = "Aufgabe" And Worksheets("Aufgaben").Cells(ReiheNr, 13) = Environ$("username") And Worksheets("Aufgaben").Cells(ReiheNr, 15) <> "erledigt" Then

               AufgabenCount = AufgabenCount + 1

             End If

            ReiheNr = ReiheNr + 1

            Loop

            Worksheets("Dash").Range("D18").Value = AufgabenCount

End With

Ich bin auf das simple mitzählen einer Variable nicht gekommen

Code:
With sheets("Aufgaben").Usedrange

  .autofilter 1, false

  .autofilter 8, "Aufgabe"

  .autofilter 13, Environ("username")

  .autofilter 15, "erledigt"

  .copy sheets("Aufgaben").Cells(1,100)

  .autofilter

end with

With sheets("Aufgaben").Cells(1,100).currentregion.value

   Listbox1.List=.value

   .clear

End With

tyr0n

Klaus-Dieter

Ralf A

tyr0n

snb