Excel VBA CountIf-Funktion in aktiver Zeile

[MuMa0806]

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!

[Kuwer]

Hallo,

Das Auszählen für den gesamten Bereich klappt hervorragend, ...

wie sieht denn das aus?

Gruß Uwe

[MuMa0806]

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

[Kuwer]

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

[MuMa0806]

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!

Marcel