Ausblendung von Zeilen abhängig von Zellwerten

16. Juni 2011 | Autor: Tamara

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

Veröffentlicht in VBA |

Schlagworte: ausblenden, Excel, VBA, Zeilen

Kommentieren ist momentan nicht möglich.

Vancra

Ausblendung von Zeilen abhängig von Zellwerten