Schleifen und Filterproblem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub WoStehtWas() Dim lZeile As Integer For lZeile = 2 To Range("B65536").End(xlUp).Row ' anpassen an deine Anzahl If Rows(lZeile).Height > 0 Then MsgBox "in Zeile " & lZeile & " steht " & Cells(lZeile, 2) End If Next lZeile End Sub

Hallo,
dein Code ist wirklich etwas chaotisch.
folgende Probleme sind mir mal so spontan aufgefallen:
1. du schaltets mit der Zeile Selection.AutoFilter Field:=1, Criteria1:="" den Autofilter aus.
2. deine Variablen vorallem in der Schleife gehen völlig durcheinander.
das fängt damit an, daß die Schleifenzählervariablen innerhalb der Schleife deklariert und auf 0 gesetzt werden. Außderdem ist die Variable die du hochzählst eine ganz andere als die du in der DO-Schleife abfragst, da hast du natürlich eine Endlos-Schleife.
3. würde ich den Bildschirm erst ausschalten, wenn ich sicher bin, daß das Makro funzt. In der Entwicklungsphase ist es besser, wenn man sehen kann, was passiert.
Ich empfehle mal, folgende Links durchzuarbeiten:
http://www.online-excel.de/excel/grusel_vba.php?f=6
http://vb-anton.de/index.php?action=artikel&cat=353481&id=26&artlang=de
und auch hier findet sich einiges interessantes bei den xlbasics:
https://www.herber.de/forum/index.htm
Gruß, Daniel Eisert

Hallo,
dein Problem ist, daß du mit .offset(1,0) um eine Zeile nach unten springst, unabhängig davon, ob die Zeile sichtbar ist oder nicht.
.offset(1,0) ist da doch ein bisschen anders als die Cursor-Down-Taste zu drücken.
Es ist jetzt auch nicht ganz leicht, in deinen Code was einzufügen, da ich mit der ganzen Offset-rumspringerei nicht so ganz weiß, was ich da durcheinander bringen würde.
Der einfachste Weg bei deinem Kenntnisstand zum Erfolg zu kommen ist,
- ein neues Sheet anzulegen (z.B. Kopie) (nicht im Makro, sondern "normal")
- NACH dem Filtern kopierst du den kompletten Inhalt von Sheet "Excel" nach Sheet "Kopie" Hier verwendest du den Befehl:
sheets("excel").cells.copy destination:=sheets("Kopie").cells
Beim Kopieren werden nur die sichtbaren Zeilen kopiert, die unsichtbaren nicht.
- jetzt führtst du die ganze Aktion im Sheet "Kopie" aus.
Da jetzt tatsächlich nur noch die gefilterten Daten vorhanden sind, ohne unsichtbare Zwischenzeilen, sollte das relativ problemlos funktionieren.
Danach kannst du den Inhalt von Kopie wieder leeren.
Gruß, Daniel
noch nur so als Hinweis, in der Teilergebnisformel, die du per Makro einträgst, gehst du fix auf den Zellbereich A2:A17, du hast aber wesentlich mehr Daten.
Wenn du mal ein x'le unterhalb der Zeile 17 einträgst, wird dieses so nicht mitgezählt.
Aber vielleicht fällt dir ja ein geschicktere Weg ein, die Zeilenzahl zu ermitteln, wenn du die Daten kopiert hast.

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread