Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Frage zu 'Do until' Schleife

Frage zu 'Do until' Schleife
18.03.2021 18:40:48
PhilipMcn
Noch eine Frage meinerseits:
Ich habe ein Makro mit einer Do until Schleife geschrieben, welche eine bestehende Tabelle nach bestimmten Inhalten filtert, letztere sollen dann an anderer Stelle direkt untereinander aufgeführt werden:
Sub NeueTabelle()
Worksheets("Blut").Range("A:A").ClearContents
Dim Zeile As Integer
Dim LetzteZeile2 As Integer
Zeile = 6
LetzteZeile2 = 1
Do Until Zeile = 63
If Worksheets("Tabelle1").Cells(Zeile, 33).Value Like "*Perfusor*" Then Worksheets("Blut"). _
Cells(LetzteZeile2, 1).Value = Worksheets("Tabelle1").Cells(Zeile, 33).Value
Zeile = Zeile + 1
LetzteZeile2 = LetzteZeile2 + 1
Loop
End Sub
Excel geht auch brav alle Zeilen bis 63 durch, allerdings hat die gefilterte Liste Leerzeilen zwischen den Ergebnissen, die Variable LetzteZeile2 scheint also bei jedem Durchlauf um 1 erhöht zu werden, auch wenn die Bedingung nicht erfüllt ist. Was mache ich hier falsch?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu 'Do until' Schleife
18.03.2021 18:54:15
Hajo_Zi
Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.
Bild
Homepage

Anzeige
AW: Frage zu 'Do until' Schleife
18.03.2021 18:57:50
Luschi
Halle PhilipMcn,
bei mir klappt das so:

Do Until Zeile = 63
If Worksheets("Tabelle1").Cells(Zeile, 33).Value Like "*Perfusor*" Then
Worksheets("Blut").Cells(LetzteZeile2, 1).Value = Worksheets("Tabelle1").Cells(Zeile, 33). _
Value
LetzteZeile2 = LetzteZeile2 + 1
End If
Zeile = Zeile + 1
Loop
Gruß von Luschi
aus klein-Paris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige