Vergleichen von zwei zellen

Question

Hallo ihr lieben,

ich habe ein kleines Problem. Ich moechte gerne in einem Datensatz jeweils die Zeilen ausblenden in denen in Spalte F und H nichts oder eine Null steht. Ich bin ein totaler Anfaenger und bin bisher soweit gekommen; vermute aber, dass es sehr umstaendlich ist, ausserdem funktioniert es nicht richtig. Waere toll zenn ir jemand helfen koennte

Sub CentralAvis()

Dim Markierung As Range, Mark As Range, Wert As String, Zert As String, zelle, zellen
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Set Markierung = Sheets("Centrale Avis").Range("F5:F6105")
Set Mark = Sheets("Centrale Avis").Range("H5:H6105")
For Each zelle In Markierung
For Each zellen In Mark
Wert = zelle.Value
Zert = zellen.Value
If Wert = Zert = "" Or Wert = "0" = Zert Then Rows(zelle.Row).Hidden = True
Next zellen
Next zelle
End Sub

Vielen Dank und liebe Gruesse Julia

Answer 1

Hallo,

eine kleine Ergänzung, dadurch ist es egal wo "Titre" und "Avis" steht, das Programm such sich selbst die Spalte

Sub CentralAvis()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Sheets("Centrale Avis").Select
For i = 1 To Range("IV5").End(xlToLeft).Column
If Cells(5, i).Value = "Titre" Then Spalte_T = i
If Cells(5, i).Value = "Avis" Then Spalte_A = i
Next i
For i = 6 To Range("A65536").End(xlUp).Row
If (Cells(i, Spalte_T).Value = "" Or Cells(i, Spalte_T).Value = "0") And (Cells(i, Spalte_A).Value = "" Or Cells(i, Spalte_A).Value = "0") Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Gruß

Helmut

Answer 2

Ich habe im uebrigen auch bei M.O. den Fehler gefunden, manchmal sieht man den Wald ja vor lauter Baeumen nicht mehr: Es waren durchweg "or" verknuepfungen, dabei braucht man ja eine "and" veerknuepfung um es von beiden Zeilen ausgehen zu lassen.