Ausblenden mit VBA

13/02/2008 - 10:02 von Harald | Report spam
Hallo ich habe folgendes Problem,

Ich möchte in einer Tabelle die Zeilen ausblenden, die keine Zahlen in
Spalte E enthalten (also 0 bzw. eine Formel, die nicht erfüllt ist mit
Wert N/A).

Hier ist mein aktueller VBA-Code:


Sub Leere_Zellbereiche_ausblenden_ganz_neu()

Dim lngZeilen As Long

lngZeilen = Range("E6").CurrentRegion.Rows.Count


For i = 1 To lngZeilen
If Cells(i, 5) = 0 Or Cells(i, 5) = (HIER BRAUCHE ICH HILFE:
UNGLEICH ZAHL, z.B. eine Formel) Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Cells(i, 5) = " "
Next

End Sub


Vielen Dank im Voraus für die Hilfe.

Harald
 

Lesen sie die antworten

#1 Peter Schleif
13/02/2008 - 10:14 | Warnen spam
Harald schrieb:

If Cells(i, 5) = 0 Or Cells(i, 5) = (HIER BRAUCHE ICH HILFE:
UNGLEICH ZAHL, z.B. eine Formel) Then



Sucht Du vielleicht die Tabellenfuktion ISTNV() bzw. deren VBA-Prendant?

... Or WorksheetFunction.IsNA(Cells(i, 5)) Then ...

Peter

Ähnliche fragen