prüfen und verstecken.
05.10.2005 09:36:04
Daniel
Ich habe mich gestern schon mit Rene M und Rocky darüber unterhalten. Irgendwie funktioniert das immer noch nicht. Es soll die Zeilen verstecken, wo nicht TRS0001I drinne steht. Aber im Moment versteckt er alle wo was drinne steht, egal was. Kann mir da jemand noch einen Tipp geben?
MfG Daniel
Vielen dank für eure Mühe
Sheets("Daten").Activate
Anzahl = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
Dim v As Long
For v = 5 To Anzahl
If Not Cells(v, 1).Value = "TRS0001I" Then
Sheets("Daten").Rows(v).EntireRow.Hidden = True
End If
Next v