Wie kann ich eine spalte/zeile über vba ein-/ausblenden?
Versteckte VBA-Eigenschaft
Um eine Spalte oder Zeile in Excel mit VBA auszublenden/einzublenden, können Sie die Eigenschaft „Hidden“ verwenden. Um diese Eigenschaft zu verwenden, müssen Sie die Spalte oder Zeile mithilfe des Bereichsobjekts angeben und dann TRUE/FALSE angeben.
- Geben Sie die Spalte oder Zeile mithilfe des Bereichsobjekts an.
- Anschließend verwenden Sie die Eigenschaft „Gesamte Spalte/Zeile“, um auf die gesamte Zeile oder Spalte zu verweisen.
- Dann nutzen Sie die versteckte Eigenschaft.
- Geben Sie am Ende wahr/falsch an.
Hier ist das zu berücksichtigende Beispiel:
Sub vba_hide_row_columns() 'hide the column A Range("A:A").EntireColumn.Hidden = True 'hide the row 1 Range("1:1").EntireRow.Hidden = True End Sub
Im obigen Code haben wir die Eigenschaft „hidden“ verwendet, um die Spalten A und Zeile 1 auszublenden. Und hier ist der Code, um sie anzuzeigen.
Sub vba_hide_row_columns() 'unhide the column A Range("A:A").EntireColumn.Hidden = False 'unhide the row 1 Range("1:1").EntireRow.Hidden = False End Sub
Mehrere Zeilen und Spalten ein-/ausblenden (VBA).
Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = True 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = True End Sub
Und das Gleiche gilt, wenn Sie mehrere Zeilen und Spalten anzeigen möchten.
Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = False 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = False End Sub
Alle Spalten und Zeilen ausblenden
Sub vba_hide_row_columns() 'hide the column A Columns.EntireColumn.Hidden = True 'hide the row 1 Rows.EntireRow.Hidden = True End Sub
Alle Spalten und Zeilen anzeigen
Sub vba_hide_row_columns() 'unhide all the columns Columns.EntireColumn.Hidden = False 'unhide all the rows Rows.EntireRow.Hidden = False End Sub
Spalten und Zeilen in einem anderen Arbeitsblatt ein-/ausblenden
Sub vba_hide_row_columns() 'hide all columns in the sheet 1 Worksheets("Sheet1").Columns.EntireColumn.Hidden = False 'hide all rows in the sheet 1 Worksheets("Sheet1").Rows.EntireRow.Hidden = False End Sub