Clever-Excel-Forum

Hallo ins Forum,

habe (mal wieder) ein VBA-Problem.

Ich habe eine Tabelle1, in welcher im Bereich J9:NK26 Personaldaten stehen.

Nun möchte ich bei einem Aufruf einer Userform über die CountIf-Funktion bestimmte Daten (Bspw. "KR" oder "UR" etc.) aus der jeweils aktiven Zeile im benannten Bereich auszählen und in eine Textbox eintragen lassen.

Das Auszählen für den gesamten Bereich klappt hervorragend, aber an der jeweils aktiven Zeile scheitere ich gerade.

Würde mich freuen, wenn ihr helfen könntet...

Vielen Dank im Voraus!

Hallo,

(23.02.2023, 08:56)MuMa0806 schrieb: [ -> ]Das Auszählen für den gesamten Bereich klappt hervorragend, ...

wie sieht denn das aus?

Gruß Uwe

Code:
Private Sub UserForm_Initialize()

textbox1.Value = Application.WorksheetFunction.CountIf(ws_Dienstplan.Range("J9:NK27"), "KR")

End Sub

hier zum Beispiel um die Kranktage auszuzählen.

VG

Hallo,

Code:
Private Sub UserForm_Initialize()

  Dim rngDienstplan As Range

  Dim rngZeile As Range

  Dim ws_Dienstplan As Worksheet

  Set ws_Dienstplan = ActiveSheet

  Set rngDienstplan = ws_Dienstplan.Range("J9:NK27")

  If Not Intersect(rngDienstplan, ActiveCell.EntireRow) Is Nothing Then

    Set rngZeile = Intersect(rngDienstplan, ActiveCell.EntireRow)

    Textbox1.Value = Application.WorksheetFunction.CountIf(rngZeile, "KR")

  End If

End Sub

Gruß Uwe

Hallo Uwe,

das funktioniert ja wirklich einwandfrei.

Vielen herzlichen Dank für deine Hilfe...damit komm ich ein ganzes Stück weiter voran!!!

Bis ganz bestimmt zum nächsten mal! Wink

Marcel

MuMa0806

Kuwer

MuMa0806

Kuwer

MuMa0806