Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen ausblenden

Zeilen ausblenden
06.02.2004 10:09:39
Detlef
Liebe Excel-Fans!
Ich habe ein Problem, dass man - wie ich glaube - nur über Makros lösen kann. Leider bin ich in der VBA-Programmierung nicht fit und hoffe, dass mir jemand von Euch helfen kann.
Das ist das Problem:
In den Zellen a1 und b1 sollen jeweils die Zeilen-Nummern stehen, die sichtbar sein sollen. Der maximale Bereich geht von 3 bis 30. Wenn a1 = 5 und b1 = 15, sollen nur die Zeilen 5 bis 15 sichtbar sein, die Zeilen 3-4 und 16-30 sollen ausbeglendet werden.
Kann mir jemand mitteilen, wie dieses Problem zu lösen ist?
Funktioniert das Ausblenden vielleicht auch bei einem geschützten Arbeitblatt?
Vorab vielen Dank für Eure Hilfe
Detlef

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden
06.02.2004 10:24:45
Worti
Hallo Detlef,
so geht's:


Sub Ausblenden()
    Dim As Long
    
    I = 1
    Do While I < Cells(1, 1).Value
       Rows(I).Hidden = True
       I = I + 1
    Loop
    I = Cells(1, 2).Value + 1
    Do While I < 31
       Rows(I).Hidden = True
       I = I + 1
    Loop
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Worti
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige