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

Zellen ausblenden

Zellen ausblenden
18.09.2005 16:43:58
Basti
Hallo zusammen,
ich möchte einen ganz bestimmten Zellbereich ausblenden. Nach langem Rumprobieren ist leider nur folgender Code rausgekommen der natürlich nicht funktioniert:

Sub hidden()
Dim er, lz As Long
er = Range("b:b").Find("generelle Probleme").Select
lz = Range("d500").End(xlUp).Select
Range(Cells(er, "A"), Cells(lz, "G")).select
With selection
rows.hidden
End With
End Sub

Kann mir vielleicht jemand sagen wie es richtig geht
Gruß Basti

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen ausblenden
18.09.2005 17:45:00
ceyser
Hallo Basti,
ich weisst nicht ob ich genau verstanden habe, welcher Bereich ausgeblendet werden soll, aber prinzipiell sollte dich dieser Code weiterbringen:

      
Sub hidden()
    
Dim such As Range
    
Set such = Range("B:B").Find("generelle Probleme", LookIn:=xlValues)
    Range(such, such.End(xlDown)).Rows.hidden = 
True
End Sub 


Gruß
CS
Anzeige
oder als einzeiler...
18.09.2005 17:53:46
ceyser
...

      
Sub hidden2()
    Range(Range("B:B").Find("generelle Probleme", LookIn:=xlValues), Range("B:B").Find("generelle Probleme", LookIn:=xlValues).End(xlDown)).Rows.hidden = 
True
End Sub 


Gruß
CS
Anzeige
AW: Zellen ausblenden
18.09.2005 17:53:55
Basti
Hallo CS,
du hast genau verstanden was ich meine, allein dein Code funktioniert auch nicht.
Range(such, such.End(xlDown)).Rows.hidden = True
bei dieser Zeile zeigt er mir an: Objekt oder With-Variable nicht festgelegt
Gruß Basti
AW: Zellen ausblenden
20.09.2005 19:33:23
Ceyser
Halo Basti,
also bei mir funktioniert mein Code... Hier ist eine Beispielmappe:
https://www.herber.de/bbs/user/26775.xls
Probier die mal aus.
Gruß
CS

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige