Hallo liebe Leute,
ich habe das Problem, dass ich nicht leere Zellen einer Zeile zählen, wenn sie der Quelle XY zugehören. Genauer in Spalte E stehen die Quellen, die Funktion soll die nicht leeren Zellen von H (Zeile in der die spezifische Quelle steht) bis H2000 zählen. Die Variable ist die Quelle, da es diverse Quellen gibt.
Folgenden Code habe ich dafür entworfen:
Function Count(x)
Dim i As Integer
Set wb = DieseArbeitsmappe
Set wss = wb.Sheets("3.A Survey General Application")
For i = 1 To 2000
If wss.Cells(i, 5) = "x" Then
wss.WorksheetFunction.CountA Range("Cells(i,8):Cells(i,2000)")
End If
Next i
End Function
Funktioniert leider nicht. Habt ihr Idee?
Danke schonmal, Markus
|