Es klappt gut, bis auf den Fall, daß der Monat, indem nicht alle Werte vollständig eingetragen sind, falsch errechnet wird.
Kann man das Problem lösen ?
Hoffe auf Eure Hilfe
MfG
Wolfgang
Option Explicit
Public datu, dat
Private Sub ComboBox1_Change()
Dim r, b, h, f As Integer
Dim betr, betr1
Dim ma As Integer
Label1.Caption = ""
TextBox1 = ""
ma = Range("A65536").End(xlUp).Row
dat = ComboBox1.Text
r = 2
Do While Format(Cells(r, 1), "MMMM") <> dat
r = r + 1
If r >= ma Then
Label1.Caption = "Keine Daten vorhanden"
Exit Do
End If
Loop
If Format(Cells(r, 1), "MMMM") = dat Then
b = r
End If
Do While Format(Cells(r, 1), "MMMM") = dat
betr = (betr + Cells(r, 2) + Cells(r, 3) + Cells(r, 4) + Cells(r, 5))
r = r + 1
betr1 = betr / (r - b) / 4
Loop
TextBox1 = Format(betr1, "#,##0.00 ")
End Sub