Kategorien

Artikel-Schlagworte: „Zeilen“

Ausblendung von Zeilen abhängig von Zellwerten

Prüfung der Zeilen 1 bis 10, wenn die Zelle in der Spalte A den Wert "A" enthält, wird die Zeile ausgeblendet.
Sub Ausblenden()
Dim i As Integer
i = 0
For i = 1 To 10
If Cells(i, 1) = "A" Then
Rows(i).Hidden = True
End If
Next i
End Sub



Wenn dieser Code häufiger ausgeführt werden soll, so ist es ratsam, die zuvor ausgeblendeten Zeilen erst wieder einzublenden und danach erst eine Ausblendung anhand des Kriteriums herbeizuführen. Der ergänzte Code stellt sich dann wie folgt dar:
Sub Ausblenden()
Cells.EntireRow.Hidden = False
Dim i As Integer
i = 0
For i = 1 To 10
If Cells(i, 1) = "A" Then
Rows(i).Hidden = True
End If
Next i
End Sub


Einblenden von ausgeblendeten Zeilen in Excel

Nachfolgender Code bewirkt dass vor Code Anwendung ausgeblendete Zeilen mittels Anwendung dieses Befehls wieder eingeblendet werden
 Cells.EntireRow.Hidden = False