unsichtbare zellen
29.01.2003 10:46:14
Patrick
ich wollte mir per makro die sichtbaren spalten zählen lassen
Private Sub zaehler()
Dim i As Integer
i = 2
Dim z As Integer
z = 0
Do While i < 6
If Cells(1, i).Visible = True Then
z = z + 1
End If
Loop
Cells(20, 1).Value = z
End Sub
aber das makro bricht mit "Ojekt unterstützt diese eigenschaft oder Mathode nicht" ab, was mach ich falsch? bzw. was muss ich ändern?
gruß
patrick