negative Werte zaehlen in bestimmten Monat
29.06.2005 14:50:09
Alexander
ich komme wieder einmal nicht weiter. In einer Spalte A steht ein Lieferdatum in Spalte B eine Zahl. Die Zahl ist entweder 0, negativ oder positiv und immer ganzzahlig. Die Zahl gibt an ob eine Lieferung zu spaet war oder nicht. Ist sie zu spaet ist die Zahl negativ (z.B. -1 bedeutet ein Tag zu spaet). Ich moechte jetzt die negativen Zahlen und die postiven Zahlen (incl. der 0) zaehlen. Das an sich ist ja auch kein Problem. Aber ich moechte es in Abhaengigkeit vom Monat machen. Das Ergebniss soll also sein
..........postive Zahlen........negative Zahlen
Juni.............20.....................5
Juli.............25.....................3
Das soll dann in einer anderen Tabelle in der Reinfolge stehen. Um mir die Arbeit zu erleichtern wandel ich das Datum in einen String um. Der VBA Code hierfuer ist:
Private Sub CommandButton1_Click()
Dim a, b As Long
b = Cells(Rows.Count, 5).End(xlUp).Row
For a = 10 To b
'Cells(a, 11).NumberFormat = "DD-MMM-YY"
If Not Cells(a, 11).Interior.ColorIndex = 6 Then
If Month(Cells(a, 11)) = 5 Then
If Year(Cells(a, 11)) = 2005 Then
Cells(a, 11).Value = "05_May"
Cells(a, 11).Interior.ColorIndex = 6
End If
End If
If Month(Cells(a, 11)) = 6 Then
If Year(Cells(a, 11)) = 2005 Then
Cells(a, 11).Value = "06_Jun"
Cells(a, 11).Interior.ColorIndex = 6
End If
End If
If Month(Cells(a, 11)) = 7 Then
If Year(Cells(a, 11)) = 2005 Then
Cells(a, 11).Value = "05_Aug"
Cells(a, 11).Interior.ColorIndex = 6
End If
End If
End If
Next
'Worksheets("Temp MRL").Cells(5, 1).Value = CountIf(Range("l10:l50"), ">0")
End Sub
Ich habe aber keine Idee wie ich das Auszaehlen in VBA gestalte.
Mein Ansatz in Excel war CountIf mit AND zu verbinden aber das klappt auch nicht. in etwa so
COUNTIF(and(L10:L100,k10:k100),and(" Hat jemand eine Idee fuer das PRoblem
Danke Alex