Ich möchte folgendes erreichen:
In der Spalte E steht ab Zeile 2 bis 252 das Datum von Januar bis Dezember.
In der Spalte C steht in jeder Zeile das Wort Abteilungsleitung
Wenn in der ComboBox cboLesen4 der Monat Januar aktiviert ist und im Label namLab1 der Name Abteilungsleitung steht dann soll folgendes passieren:
Treffen die vorher erwähnten Kriterien zu dann soll in der rstBox1 die Summe der in der Spalte F eingetragenen Werte vom Januar eingetragen werden.
Wo habe ich hier bitte im Code den Fehler gemacht?
Private Sub CommandButton38_Click()
If cboLesen4.Value = "Januar" And namlab1.Caption = "Abteilungsleitung" Then
Anzahl = [E65536].End(xlUp).Row
For i = 2 To Anzahl
If Cells(i, 5).Value = "" Then GoTo Weiter
Mo = Cells(i, 5).Value
Mon = Month(Mo)
Select Case Mon
Case Is = 1
Wert_Tabelle = Cells(i, 3).Value
Select Case Wert_Tabelle
Case Is = UserForm1.namlab1.Caption
Set myRange = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Vergütung").Cells(i, 6) 'Range("F2:F6")
rstBox1.Value = Application.WorksheetFunction.Sum(myRange)
End Select
End Select
Weiter:
Next i
End If
End Sub
Danke
Josef