Office: Zeilen ausblenden, wenn Wert 0 / 0,00

David Schubert · 10. Juli 2007

Hallo!

Da ich leider über keinerlei Kenntnisse in VBA verfüge, bräuchte ich mal dringendst Hilfe.

Ich habe eine Excel Arbeitsmappe die als Kalkulationshilfe und als Zusammenfassung der Kalkulation unter bestimmten Themen dienen soll.
Da nicht alle "Waren" in der Kalkulation nicht alle vorher bestimmbar sind, habe ich dummies eingesetzt. In der Kalkulationshilfe habe ich dieses Problem mit einer bedingten Formatierung umgangen.
In der Zusammenfassung sollten aber die Zeilen (Zeile 18 - 22), in denen der Wert 0 (in Spalte B) erscheint, ausgeblendet werden. (der Übersichtlichkeit wegen)
mich überfordert dieses Problem leider vollkommen. kann mir jmd sagen, wie ich das Problem lösen kann.

gestresste (weil ich es nach 2-Stündigem probieren einfach nicht auf die Reihe bekomme) Grüße
David

p.s.: habe excel 2000

schatzi · 10. Juli 2007

Hallo!

Hier habe ich mal sowas gebaut:
http://www.office-hilfe.com/support/topic,5288,-zeilen-mit-nullwert-ausblenden.html

Teste mal, ob du das für deine Zwecke umbauen kannst.

David Schubert · 11. Juli 2007

erstmal ein großes Dankeschön für dein Bemühen!

sieht auch alles super aus, und funktioniert auch (jedenfalls das komplette ausblenden und das komplette einblenden :P)

Ich habe versucht das ganze ein wenig anzupassen, komme aber nicht so recht weiter, da ich, wie gesagt wenig bis keine Ahnung von VBA habe.

Sub Schaltfläche1_BeiKlick()
Dim i As Integer
'Die Bildschirmaktualisierung wird abgeschaltet
Application.ScreenUpdating = False
'Auf das aktive Blatt wird zugegriffen
With ActiveSheet
'Der Bereich von Zeile 4 bis zum Ende des benutzten
'Bereichs wird nach Nullwerten durchsucht
For i = 17 To .UsedRange.Rows.Count
'Prüfung ob die Summe der Werte Null beträgt
'Wenn "Ja" -> ausblenden
If WorksheetFunction.Sum(Range(.Cells(i, 8), .Cells(i, 19))) = 0 _
Then .Rows(i).Hidden = True
Next i
End With
'Die Bildschirmaktualisierung wird wieder eingeschaltet
Application.ScreenUpdating = True

End Sub
Sub Schaltfläche2_BeiKlick()
'Alle Zeilen werden eingeblendet
ActiveSheet.Rows.Hidden = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habs immerhin geschafft, die Makros mit den Buttons zu verknüpfen, und dass das Makro erst ab Zeile 17 läuft. :P

Ich hab ein wenig probiert, aber ich bekomme es leider nicht hin, es so anzupassen, dass es für meine Tabelle genau passt.

Das Makro soll nur gelten für Spalte c und für die Zeilen (17 bis 21), (38 bis 42) und (58 bis 62).
kann mir da vllt jmd helfen?

lG David

David Schubert · 11. Juli 2007

ahhhh :D

jetzt habe ich es geschafft, dass das ganze für spalte c gilt ... yuppie...

Sub Schaltfläche1_BeiKlick()
Dim i As Integer
'Die Bildschirmaktualisierung wird abgeschaltet
Application.ScreenUpdating = False
'Auf das aktive Blatt wird zugegriffen
With ActiveSheet
'Der Bereich von Zeile 4 bis zum Ende des benutzten
'Bereichs wird nach Nullwerten durchsucht
For i = 17 To .UsedRange.Rows.Count
'Prüfung ob die Summe der Werte Null beträgt
'Wenn "Ja" -> ausblenden
If WorksheetFunction.Sum(Range(.Cells(i, 3), .Cells(i, 19))) = 0 _
Then .Rows(i).Hidden = True
Next i
End With
'Die Bildschirmaktualisierung wird wieder eingeschaltet
Application.ScreenUpdating = True

End Sub
Sub Schaltfläche2_BeiKlick()
'Alle Zeilen werden eingeblendet
ActiveSheet.Rows.Hidden = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

David Schubert · 11. Juli 2007

ich ahbs geschafft :D juppie!!!!

Sub Schaltfläche1_BeiKlick()
Dim i As Integer
'Die Bildschirmaktualisierung wird abgeschaltet
Application.ScreenUpdating = False
'Auf das aktive Blatt wird zugegriffen
With ActiveSheet
'Der Bereich von Zeile 4 bis zum Ende des benutzten
'Bereichs wird nach Nullwerten durchsucht
For i = 17 To 21
'Prüfung ob die Summe der Werte Null beträgt
'Wenn "Ja" -> ausblenden
If WorksheetFunction.Sum(Range(.Cells(i, 3), .Cells(i, 19))) = 0 _
Then .Rows(i).Hidden = True
Next i
For i = 38 To 42
'Prüfung ob die Summe der Werte Null beträgt
'Wenn "Ja" -> ausblenden
If WorksheetFunction.Sum(Range(.Cells(i, 3), .Cells(i, 19))) = 0 _
Then .Rows(i).Hidden = True
Next i
For i = 58 To 62
'Prüfung ob die Summe der Werte Null beträgt
'Wenn "Ja" -> ausblenden
If WorksheetFunction.Sum(Range(.Cells(i, 3), .Cells(i, 19))) = 0 _
Then .Rows(i).Hidden = True
Next i
End With
'Die Bildschirmaktualisierung wird wieder eingeschaltet
Application.ScreenUpdating = True

End Sub
Sub Schaltfläche2_BeiKlick()
'Alle Zeilen werden eingeblendet
ActiveSheet.Rows.Hidden = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schatzi · 11. Juli 2007

Hallo!

Eine noch etwas einfachere Variante liegt bereits seit über einer Stunde in deinem Postfach...
Zeilen ausblenden, wenn Wert 0 / 0,00 [IMG]

Code:

Sub Schaltfläche1_BeiKlick()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
For i = 17 To 21
If .Cells(i, 3) = 0 Then .Rows(i).Hidden = True
Next i
For i = 38 To 42
If .Cells(i, 3) = 0 Then .Rows(i).Hidden = True
Next i
For i = 58 To 62
If .Cells(i, 3) = 0 Then .Rows(i).Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub

JimmytheSaint · 25. Juli 2007

Hallo Schatzi,

frage funktioniert das auch mit Spalten und was muss ich am Code ändern

Danke Jimmythesaint

schatzi · 25. Juli 2007

Hallo!

Natürlich funktioniert das auch mit Spalten:
dazu musst du "rows" ersetzen durch "columns" und die Parameter bei "cells(Zeile,Spalte)" anpassen.

Office: Zeilen ausblenden, wenn Wert 0 / 0,00

Zeilen ausblenden, wenn Wert 0 / 0,00

Zeilen ausblenden, wenn Wert 0 / 0,00

Zeilen ausblenden, wenn Wert 0 / 0,00

Zeilen ausblenden, wenn Wert 0 / 0,00

Zeilen ausblenden, wenn Wert 0 / 0,00 - Similar Threads - Zeilen ausblenden Wert

Zeile ausblenden anhand bestimmter Werte

Zeile ausblenden wenn bestimmter Wert in Spalte

Zeilen ausblenden bei bestimmten Wert

Zeile Ausblenden mit bestimmten Wert !!!

Bei 0 Werte in einer Spalte ganze Zeile ausblenden

Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen

VBA Zeilen ausblenden v. mehren akt. Arbeitsmappen m. best. Wert in Zelle, Laufzeit