Spalte mit 0 Wert ausblenden

Question

Guten Tag

Ich habe eine Excel Tabelle mit einem Makro, das in Spalte 6 die Zeilen mit 0 ausblendet.

Jetzt habe ich versucht, das die Spalten 4 und 5 mit 0 Werten die Zeilen auch ausblendet, aber ich krig das nicht hin.

Es müssten die Spalten 4-6 bei 0 Werten die Zeilen ausblenden.

Ich habe Excel 2003

Hier das Makro, das mit der Spalte 6 funktioniert.

Sub Ausblenden()
Dim intRow As Integer
Application.ScreenUpdating = False
For intRow = 6 To 300
Rows(intRow).EntireRow.Hidden = False
If Cells(intRow, 6).Value = 0 Then _
Rows(intRow).EntireRow.Hidden = True
Next
End Sub

Kann mir jemand helfen

Gruss Gregy

Answer 1

Hallo,

was du genau willst, habe ich nicht unbedingt richtig verstanden.

Wenn du nur in einer Zelle eine Null hast und willst die ausblenden geht das nicht.

Sonst könntest du es mit "Daten" "Filter""Autofilter" machen, dort die passende Einstellungen für deinen Fall wählen.

Gruß

Helmut

Answer 2

Hallo Helmut

Ich habe in allen Zeilen in der Spalte 4-6 einen 0 Wert

Jetzt möchte ich, dass mir jemand das Makro abändert das ich oben eingefügt habe.

Gruss Gregy

Answer 3

Hallo Gregy,

Option Explicit

Sub Ausblenden()
Dim intRow As Integer
Application.ScreenUpdating = False
For intRow = 6 To 300
Rows(intRow).EntireRow.Hidden = False
If Cells(intRow, 4).Value = 0 _
Or Cells(intRow, 5).Value = 0 _
Or Cells(intRow, 6).Value = 0 Then
Rows(intRow).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rainer

Answer 4

Hallo Rainer

Es funktioniert, Hurra

Das finde ich Obersupermaximal von Dir

Besten Dank

Gruss Gregy