Wenn Nullwerte & "" Werte dann Zeile ausblenden.

Bild

Betrifft: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
von: Heinz H
Geschrieben am: 24.07.2015 15:47:13

Schönen Freitag im Forum
Im untenstehenden Macro möchte ich die Spalten C100:C135 wenn ein Wert "0" oder leer "" ist ausblenden.
Funktioniert aber nicht wie gewollt.
Eventuell auch nach Werten von Spalte "C" A100:D135 absteigend sortieren.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß Heinz

Sub Zeilen_ausblendenHeim()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 100 To 135
If .Cells(i, 3) = 0 Then .Rows(i).Hidden = True
Next i
For i = 100 To 135
If .Cells(i, 3) = "" Then .Rows(i).Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
von: Matthias L
Geschrieben am: 24.07.2015 16:58:14
Hallo Heinz
Funktioniert aber nicht wie gewollt.
Was geht denn bei Dir nicht?
Bei mir funktioniert es.
Übrigens kannst Du Dir die 2.Schleife sparen

Dim i&
Application.ScreenUpdating = False
For i = 100 To 135
 If Cells(i, 3) = 0 Or Cells(i, 3) = "" Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
und das with brauchst Du bei ActiveSheet auch nicht
Gruß Matthias

Bild

Betrifft: AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
von: AlexG
Geschrieben am: 24.07.2015 17:00:18
Hallo Heinz,
Was meinst du mit: "funktioniert nicht wie gewollt"?
Ich habe deinen Code etwas gekürzt und er funktioniert

Sub Zeilen_ausblendenHeim()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 100 To 135
If .Cells(i, 3) = 0 Or .Cells(i, 3) = "" Then
    .Rows(i).Hidden = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Brauchst du die Sortierung des Bereiches A100:D135?
Gruß
Alex

Bild

Betrifft: AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
von: Heinz H
Geschrieben am: 24.07.2015 22:34:55
Hallo Matthias & Alex
Erstmals Danke für Eure Hilfestellung !!!
Leider funktionieren beide Code von Euch bei mir nicht.
Warum - Weshalb - Wieso ???
Habe die Datei mal hochgeladen
https://www.herber.de/bbs/user/99063.xlsm
Vielleicht findet ihr den Fehler?
Gruß Heinz

Bild

Betrifft: AW: Wenn Nullwerte & "" Werte dann Zeile ausblenden.
von: Matthias L
Geschrieben am: 24.07.2015 23:44:11
Hallo
Keine Ahnung warum das bei Dir nicht geht.
Bei mir funktioniert es.

 ABCD
98    
99LASK Runde HeimLASK Gegner HeimLASK Zuseher HeimLASK Datum Heim
100Runde 01Floridsdorfer AC13.456Fr.24.07.15
103Runde 04SK Austria Klagenfurt4.123Fr.07.08.15
136    


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn Nullwerte & "" Werte dann Zeile ausblende"