PDA

Vollständige Version anzeigen : sichtbare zeilen zählen -Fehler-


xerxses
04.04.2012, 20:20
folgender Code: quelle (herber.de)
soll die anzahl der sichtbaren Zeilen anzeigen

leider funktioniert der Code nicht
überlauf Fehler
jemand Rat?

Sub VisibleRowsCount()
Dim lRows As Long
Dim rng As Range
Set rng = Cells.SpecialCells(xlCellTypeVisible)
lRows = rng.Cells.Count / 256
MsgBox "Sichtbare Zeilen: " & lRows
End Sub


Excel 2010

GMG-CC
04.04.2012, 20:43
jemand Rat?
Ja.
Passe den Datentyp auf single oder double an. Korrektes Ergebnis -> Spaltenzahl anpassen.

ps. Ich habe meinen Schreibstil dem deinigen angepasst, sonst bin ich höflicher ... :(

xerxses
05.04.2012, 17:05
:boah: war ich unhöflich? oder ist meine kurz gebundene Schreibweise gemeint? sorry..

danke für die Antwort :)
hab das problem anders lösen können,
mit teilergebnis(102;...:....)

das Ergebnis wird gebraucht damit ein anderes Makro nur die eingeblendeten Zeilen durchsucht.

hary
05.04.2012, 17:15
Hallo
war ich unhöflich?
Wie beim Bund:
Gruss Meldung Gruss(mit Name)
Ist netter...
....sonst geht's auf die Latrine mt der Zahnbuerste. ;-)))
gruss hary

xerxses
05.04.2012, 17:21
hallo harry

ich glaube ich habe es verstanden. :)


Gruß
der Jochen

hary
05.04.2012, 17:39
Hallo Jochen
sieht doch viel ansprechender aus oder?? ;-))
schoenes Osterfest
gruss hary

GMG-CC
05.04.2012, 19:18
Hi,

... danke an euch beide!