Option Explicit
Private Sub CommandButton1_Click()
Dim rngC As Range, rngBer As Range, intRot As Integer
Set rngBer = Range("J209:J285")
For Each rngC In rngBer
If rngC.Interior.ColorIndex = 3 Then intRot = intRot + 1
Next
MsgBox WorksheetFunction.CountA(rngBer) - intRot
End Sub
Durch Formel ermittelte Uhrzeitwerte in einer Spalte addieren
Qman 06.02.2007 - 104 Hits - 1 Antwort
Zellen in Spalte A vergleichen und bei Übereinstimmung Werte aus Spalte B addieren
superduke 24.04.2007 - 132 Hits - 2 Antworten
felder in eine spalte zusammen addieren
zacharias 25.04.2007 - 145 Hits - 3 Antworten
Berechnung nur wenn Datum in Zelle
spalte 10.02.2008 - 93 Hits - 5 Antworten
Daten addieren, wenn Kombination übereinstimmt
IT304 04.03.2008 - 36 Hits - 3 Antworten