Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen verstecken

Zeilen verstecken
21.07.2003 17:05:02
Harald
Hallo Fachleute,
ich möchte per VBA in einem Blatt alle Zeilen verstecken, die in der Spalte B eine 0 eingetragen haben:

Sub verstecken()
Dim c As Integer, r As Integer
Dim loletzte As Long
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
c = 2
For r = 1 To loletzte Step 1
If Cells(r, c) = 0 Then
Rows("r").EntireRow.Hidden = True
End If
Next
End Sub

Bei der Zeile
Rows("r").EntireRow.Hidden = True
beschwert er sich mit: Anwendungs- oder objektdefinierter Fehler.
Könnt Ihr mir bitte helfen.
Danke schon mal im Voraus
Gruß
Harald

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vielen Dank an Euch beide o.T.
21.07.2003 17:25:42
Harald
AW: Zeilen verstecken
21.07.2003 17:10:41
Hajo_Zi
Hallo Harald
ohne den Code zu Prüfen entferne bei r die " Zeichen
Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

AW: Zeilen verstecken
21.07.2003 17:10:07
Knut

Sub verstecken()
Dim c As Integer, r As Integer
Dim loletzte As Long
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
c = 2
For r = loletzte to 1 Step - 1
If Cells(r, c) = 0 Then
Rows(r).EntireRow.Hidden = True
End If
Next
End Sub

Knut

Anzeige
und noch was...
21.07.2003 17:11:04
Knut
Zeilen immer schön as Long deklarieren!
Knut

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige