Summier-Code
Claus
ich habe mir folgende Routine gebastelt, die in einer Spalte (D) auf Worksheet(1) alle Zellen mit dem Wort "ja" zählt.
Die Summe soll in Zelle A2 auf Worksheet(2) ausgegeben werden.
Leider klappt der Code noch nicht ganz, da nur eine "1" ausgegeben wird. Es sind aber insgesamt 20 mal "ja" in der Spalte D auf Worksheet(1) vorhanden...Was habe ich bloß falsch gemacht?
Private Sub Diagram_Click()
Dim ja, nein
x = 4
Do Until Application.WorksheetFunction.CountBlank(Rows(x)) = 256
x = x + 1
If Worksheets(1).Cells(4, x) = ja Then
ja = WorksheetFunction.Count(Range("D:D"))
Worksheets(3).Cells(2, 1) = ja
End If
Loop