Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen lassen sich nicht ausblenden

Zeilen lassen sich nicht ausblenden
21.01.2009 16:19:36
Kurt
Guten Tag Zusammen,
ich habe folgendes Makro für das Ausblenden der Zeilen 23:50,
gebastelt.
Nun wollte ich die Aktion durchführen, leider werden die anderen
Tabellen die Zeilen nicht ausgeblendt nur die Active Tabelle.
Dann ist mit aufgefallen das ich die Zeilen oder auch Spalten
nicht selektieren kann, Warum ?
Es ist kein Schutz drin.

Sub Zeilen_Ausblenden()
Application.ScreenUpdating = False
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Rows ("24:50")'.Select
Selection.EntireRow.Hidden =True
Next WsTabelle
Range("C4").Select
Application.ScreenUpdating = True
End Sub


mfg Kurt

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

Betreff
Datum
Anwender
Anzeige
Zeilen in allen Tabellen ausblenden
21.01.2009 16:23:00
RS
Hi Kurt,
Für was ist den das Select Gefummel?

Sub Zeilen_Ausblenden()
Application.ScreenUpdating = False
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Rows("24:50").EntireRow.Hidden = True
Next WsTabelle
Application.ScreenUpdating = True
End Sub


Grüsse RS

AW: Zeilen lassen sich nicht ausblenden
21.01.2009 16:25:55
Rudi
Hallo,
du musst nicht selecten.

Sub Zeilen_Ausblenden()
Application.ScreenUpdating = False
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
WsTabelle.Rows("24:50").Hidden = True
Next WsTabelle
Range("C4").Select
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige
AW: Zeilen lassen sich nicht ausblenden
21.01.2009 18:17:00
Kurt
Hallo Rudi,
auch Dir Danke für die Unterstützung.
Kannst Du mir den sagen, warum ich das Rabellenblatt nicht Gesamt anklicken,
selektieren kann, bzw. auch ein e Spalte oder Zeile geht nicht.
Habe ein neues Tabellenblatt eingefügt, da geht alles.
mfg Kurt
Habe Lösung -)
22.01.2009 09:07:00
Kurt
Guten Morgen Zusammen,
habe die Lösung gefunden.
Ich hatte mit:
ScrollArea $A$1:$L$5000
das Tabellenblatt begrenzt.
Danke für die Unterstützung und schönen Tag noch.
mfg Kurt

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige