Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeilen/Spalten ein- u. ausblenden
27.06.2007 11:24:57
Wrobel
Hallo Excelfan´s,
habe folgenden Code.
Mit dem kann ich Zeilen und Spalten ein- u. ausblenden lassen.
Kann ich den Code aber auch so verändern, dass wenn alles ausgeblendet ist, danach nur noch alle Zeilen und nur noch die Spalte "G" eingeblendet wird?
Gruß
Wrobel

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("e, 1")
ws.Rows("6:10").EntireRow.Hidden = Not ws.Rows("6:10").EntireRow.Hidden
ws.Columns("H").EntireColumn.Hidden = Not ws.Columns("H").EntireColumn.Hidden
ws.Columns("J").EntireColumn.Hidden = Not Columns("J").EntireColumn.Hidden
ws.Columns("c").EntireColumn.Hidden = Not Columns("c").EntireColumn.Hidden
ws.Columns("i").EntireColumn.Hidden = Not Columns("i").EntireColumn.Hidden
ws.Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
ws.Columns("b").EntireColumn.Hidden = Not Columns("b").EntireColumn.Hidden
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen/Spalten ein- u. ausblenden
28.06.2007 08:00:00
Daniy
Hallo,
Hilft dir das weiter?
Columns("H:IV").Select
Range("IV1").Activate
Selection.EntireColumn.Hidden = True
Columns("A:F").Select
Selection.EntireColumn.Hidden = True
Range("G1").Select
LG
Daniy
Anzeige

270 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige