Zellen mit Text nicht ausblenden
21.03.2017 09:54:37
Juergen
habe Hilfe zu meinem Problem mittels folgenden VBA Code bekommen:
Sub ausblenden()
Dim r As Range
For i = 8 To 160
If Cells(i, 3) > 8001 Then
If r Is Nothing Then
Set r = Cells(i, 3)
Else
Set r = Union(r, Cells(i, 3))
End If
End If
Next i
If Not r Is Nothing Then r.EntireRow.Hidden = True
End Sub
Könnte man dieses noch irgendwie abfangen, dass nur Zeilen MIT Zahlen versteckt werden?
Danke für jede Hilfestellung.
Gruss,
Juergen