Ausblendung von Zeilen abhängig von Zellwerten

Tamara — Thu, 16 Jun 2011 20:35:45 +0000

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

Tamara — Wed, 15 Jun 2011 21:56:04 +0000

Nachfolgender Code bewirkt dass vor Code Anwendung ausgeblendete Zeilen mittels Anwendung dieses Befehls wieder eingeblendet werden

 Cells.EntireRow.Hidden = False

Vancra » Zeilen

Ausblendung von Zeilen abhängig von Zellwerten

Einblenden von ausgeblendeten Zeilen in Excel