Count Rows in vba

[tyr0n]

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

[Klaus-Dieter]

Hallo Steve,

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

[Ralf A]

Hi,

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

[tyr0n]

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 

[snb]

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