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.

1. Geben Sie die Spalte oder Zeile mithilfe des Bereichsobjekts an.
2. Anschließend verwenden Sie die Eigenschaft „Gesamte Spalte/Zeile“, um auf die gesamte Zeile oder Spalte zu verweisen.
3. Dann nutzen Sie die versteckte Eigenschaft.
4. 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