Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeilen ausblenden wenn:
19.02.2007 11:59:00
Andre´
Hallo alle zusammen,
ich habe folgendes Makro, dass Zeilen im Bereich A1:A100 ausblendet wenn der Zellwert kleiner als 4 ist.

Sub ausblenden()
Dim i As Byte
For i = 1 To 100
If Cells(i, 1) < "4" Then
Rows(i).Hidden = True
End If
Next i
End Sub

Da ich nun den Bereich von A1:A65563 durchsuchen möchte kommt Laufzeitfehler '6' Überlauf. Hier das Makro:

Sub ausblenden()
Dim i As Byte
For i = 1 To 65536
If Cells(i, 1) < "4" Then
Rows(i).Hidden = True
End If
Next i
End Sub

Hat jemand eine Idee, wie der Code dafür lautet.
Danke im Voraus
MFG Andre

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn:
19.02.2007 12:04:50
IngGi
Hallo Andre,
falscher Variablentyp für i.
Dim i As Long
Gruß Ingolf
AW: Zeilen ausblenden wenn:
19.02.2007 12:22:00
Andre´
Hallo Ingolf,
danke für die schnelle Hilfe!
MFG
Andre
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige