CountA(Range) Problemchen...
16.12.2007 02:01:45
Alex
ich bräuchte mal eine kleine Hilfestellung in folgendem Code:
Sub Anzahl()
Dim myRange As Range
Dim Zeile As Long
Dim Spalte As Integer
Zeile = Worksheets("Datenbank").Range("A65536").End(xlUp).Row
Worksheets("Datenbank").Select
For Spalte = 4 To 34
For i = 2 To Zeile
Cells(i, 35) = Application.WorksheetFunction.CountA(Range("D" & Spalte & ":AH" & _
Spalte))
Next i
Next Spalte
Sheets("Datenbank").Select
Columns("AI:AI").Copy
Sheets("Unterschriftenblatt").Select
Columns("D:D").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Unterschriftenblatt").Select
End Sub
Passieren soll folgendes: ich will die Spalten D:AH ZEILENWEISE auf Inhalt überprüfen und dann in die Spalte AI den Wert eintragen lassen, wie viele Zellen mit Inhalt vorhanden sind.
Allerdings bin ich anscheinend zu doof - um das mit den Schleifen auf die Reihe zu bekommen... hab sogar schon aus Verzweiflung versucht die Cells (Argumente) einzeln einzugeben, allerdings ... max. 30 Arg. möglich... und 1 Monat hat auch mal 31 Tage.... *hmpf*
Bitte um Hilfe.
Danke schon mal :)
Alex S.