Artikel-Schlagworte: „ausblenden“
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.
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() 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 
Schlagworte: