Zeilen ein und ausblenden

Hallo zusammen
ich würde gerne mal eure Meinung hören bevor ich anfange zu basteln. Folgende Problematik:
Ich habe auf einem Blatt (Quelle) in Spalte A Nummern von 1 bis 10.000 in einer lückenlose Liste. In Spalte B des Blattes werden diesen Nummern gewisse Werte zugewiesen. Dabei sind 0-Einträge in Spalte B möglich!
Jeder der Nummern aus Spalte A soll dann noch einer bestimmten Position zugeordnet sein auf einem anderen Blatt (Auswertung). Im Beispiel unten will ich also eine Position "1.Summe" auf dem Blatt Auswertung haben, welche die Werte B1:B3 (zzgl weitere, die Liste ist lang) aus dem Blatt Quelle enthält.
soweit unproblematisch mit Formeln zu lösen.
Beispielhaft:
Blatt Quelle
A1 = 10, B1 = 200
A2 = 20, B2 = 800
A3 = 30, B3 = 0
...
A100 = 95, B100 = 637
usw
Blatt Auswertung
C1 = "1.Summe", D1 = Summe(D2:D99)
C2 = QuelleA1, D2 = QuelleB1
C3 = QuelleA2, D3 = QuelleB2
C4 = QuelleA3, D4 = QuelleB3
....
C101 = "2.Summe", D101 = Summe(D102:D200)
C102 =QuelleA100, D102 = QuelleB100
usw
Die 1.Summe in AuswertungD1 würde also 1.000 betragen. Ich möchte per VBA die Zeilen auf dem Blatt Auswertung zwischen der 1.Summe und 2.Summe ein- und ausblenden können. Insoweit erstmal auch unproblematisch mit rows.visible...
Wenn ich ausblende, will ich auf Auswertung nur die Summenzeilen sehen (also Zeile1 und Zeile 101).
Wenn ich einblende, will ich die Zeilen dazwischen wieder sehen - aber - Die Zeile 4 welche den Wert 0 aus QuelleB3 enthält - die will ich NICHT sehen. Ebenso alle anderen solcher 0-Zeilen.
Würdet ihr das mit einer Schleife lösen und die Zeile nur dann einblenden, wenn die Zeile auf dem Blatt Quelle in Spalte B (oder halt SpalteD auf Auswertung, ist ja das gleiche) einen Wert 0 enthält?
Bei 10.000 Zeilen klingt das recht "langatmig". Gibt's eine bessere Lösung dafür?
Dank euch!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
würde ich über den Autofilter im Blatt Auswertung machen.
du müsstest hierzu eine Überschriftenzeilen einfügen.
in Spalte C filtern nach "enthält Summe" (Criteria1:="*Summe*")
in Spalte D filtern nach "entspricht nicht 0" (Criteria1:="0")
zum aufheben des Filters in einer bestimmten Spalte das Criteria dann einfach weglassen:
nur Summen anzeigen:

With Sheets("Auswertung").Usedrange
.Autofilter field:=3, Criteria1:="*Summe*"
.Autofilter field:=4
End with

Zwischenwerte ohne 0 anzeigen:

With Sheets("Auswertung").Usedrange
.Autofilter field:=3
.Autofilter field:=4 Criteria1:="0"
End with

einziges Problem hierbei wäre, wenn es Summen mit 0 geben würde, dann würdest du die Summenzeilen mit ausblenden.
da könntest du dir aber mit einer Hilfsspalte mit dieser Formel behelfen (Formel für Zeile 2)

=Wenn(Und(ZählenWenn(C2;"*Summe*")=0;D2=0);"x";"")

und dann mit dieser Hilfsspalte filtern:

With Sheets("Auswertung").Usedrange
.Autofilter field:=3
.Autofilter field:=5 Criteria1:="x"
End with

Gruß Daniel

Sub Makro3() Dim rng As Range With Sheets("Auswertung") For Each rng In .Columns(3).SpecialCells(xlCellTypeFormulas).Areas rng.Rows.Group Next For Each rng In .Columns(4).SpecialCells(xlCellTypeFormulas) If rng.Value = 0 Then If Not rng.Offset(0, -1).Value Like "*Summe*" Then rng.EntireRow.RowHeight = 0.75 End If Next End With End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Zelle As Range If Target.Value Like "*Summe*" Then Set Zelle = Target.EntireColumn.Find(what:="Summe", _ after:=Target, lookat:=xlPart, searchdirection:=xlNext) If Zelle.Row

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'per Doppelklick in Spalte B die Zeilen zwischen den Summen-Positionen ein und ausblenden (" _ Summe" in Spalte A) Dim Zelle As Range ActiveSheet.Unprotect 'Auswählen von Zellen erlauben ActiveSheet.EnableSelection = xlNoRestrictions If Target.Offset(0, -1).Value Like "*Summe*" Then ' " " ist nur in den Positionssummen _ enthalten Set Zelle = Target.Offset(0, -1).EntireColumn.Find(what:="Summe", _ after:=Target.Offset(0, -1), lookat:=xlPart, searchdirection:=xlNext) If Zelle.Row

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ein und ausblenden

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread