Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
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
Inhaltsverzeichnis

Vorgegebene Zeilen ausblenden

Vorgegebene Zeilen ausblenden
Heinz

Hallo Leute
Ich möchte vorgegebene Zeilen ausblenden.
Leider bekomme ich bei unteren Makro die Fehlermeldung
"Typen unverträglich"
Könnte mir bitte jemand weiterhelfen.
Gruß
Heinz
Option Explicit
'Ab Spalte 155 ausblenden
Sub Unten_Ausblenden()
Dim mySheets As Sheets
Application.ScreenUpdating = False
Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember"))
Rows("155:156,175,185,206:999").Select
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
passt das so ?
05.12.2010 18:31:14
Matthias
Hallo Heinz
Wenn es nur diese 12 Blätter gibt dann könnntest Du das so lösen:
Sub ausblenden()
Dim mySheets As Sheets
Dim x As Long
For x = 1 To 12
Application.ScreenUpdating = False
Worksheets(x).Range("5:6,10:11,15:15,20:20,25:33").EntireRow.Hidden = True
Next
End Sub

Sub Einblenden()
Dim mySheets As Sheets
Dim x As Long
For x = 1 To 12
Application.ScreenUpdating = False
Worksheets(x).Range("5:6,10:11,15:15,20:20,25:33").EntireRow.Hidden = False
Next
End Sub
Beispiel mit 3 Blättern:
https://www.herber.de/bbs/user/72601.xls
Gruß Matthias
Anzeige
AW: passt das so ?
05.12.2010 18:36:41
Heinz
Hallo Matthias
Leider gibt es mehr als diese 12 Sheets.
Danke
Heinz
AW: Vorgegebene Zeilen ausblenden
05.12.2010 18:35:06
Tino
Hallo,
ich würde dies in etwa so angehen.
Sub Unten_Ausblenden()
Dim mySheets, oSH As Object

Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", _
                            "Mai", "Juni", "Juli", "August", _
                            "September", "Oktober", "November", "Dezember"))
    
For Each oSH In mySheets
 oSH.Range("155:156,175:175,185:185,206:999").EntireRow.Hidden = True
Next oSH

End Sub
Gruß Tino
Anzeige
AW: Vorgegebene Zeilen ausblenden
05.12.2010 18:40:08
Heinz
Hallo Tino
Jetzt kommt die Fehlermeldung
Userbild
Gruß
Heinz
AW: Bin so ein Tro....
05.12.2010 18:44:00
Heinz
Danke Matthias & Tino
Natürlich funktioniert es.
Muß nur vorher den Blattschutz aufheben.
Recht herzlichen Dank euch beiden.
Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige