Hallo zusammen,
ich möchte per Makro aus allen sichtbaren Tabellenblätter (derzeit 17) alle Zellen in Spalte C (C6 bis …) mit Inhalt zählen und addieren. Das Ergebnis sollte ungefähr 3000 sein. Unten stehendes Makro liefert mir lediglich die Zahl 1700. Das Makro startet sobald die die userform1 aktiviert wird.
Weiß jmd. wo der Fehler liegt?
VG Chris

Sub x
Dim lngAnzahlEY1 As Long 'zahlen aus allen Jahren
Dim lngLetzteZeile As Long
Dim wks As Worksheet
lngLetzteZeile = Cells(Rows.Count, 3).End(xlUp).Row
For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = True Then
lngAnzahlEY1 = WorksheetFunction.CountA(wks.Range("C6:C" & lngLetzteZeile)) + lngAnzahlEY1
end if
next
UserForm1.Label8.Caption = lngAnzahlEY1