Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Do While Schleife

VBA Do While Schleife
18.02.2017 13:00:28
marie
Hallo,
ich würde gerne wissen, wie ich eine Do While Loop Schleife nutze: Die Schleife soll über alle gefüllten Zeilen iterien, beginnend ab Zeile 2: Danke schonmal

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Do While Schleife
18.02.2017 13:18:02
onur
Hi marie,
Hier ein Beispiel:
dim z,s as long
z=2:s=3
while cells(z,s)>
Gruß
Onur
AW: VBA Do While Schleife
18.02.2017 13:19:00
Hajo_Zi
cells(z,s)""
würde ich vermuten.

AW: VBA Do While Schleife
18.02.2017 13:34:40
onur
Hi,
VBA korigiert das ja schliesslich automatisch ....
Gruß
Onur
AW: VBA Do While Schleife
18.02.2017 18:05:38
Luschi
Hallo Onur,
das glaubst Du ja wohl selbst nicht! Probier Deinen sehr besch(...) Code doch selbst mal aus.
Da wird Dir der miserable Code richtig um die Ohren gehauen.
Luschi aus klein-Paris
AW: VBA Do While Schleife
18.02.2017 18:25:24
onur
Hi Luschi,
Wo bin ich denn hier hin geraten?
Sind wir hier beim Proletentreff?
Ja, dann:
Hey Alter, was stimmt denn mit dem besch.... code nicht?
Das ist ein besch... Beispiel, Alter, den ich übrigens gerade ausprobiert habe, Alter!
Aber anscheinend gehörst du zu den Leuten, die immer "NEXT" eintippen statt "next", damit VBA keine Fehlermeldung bringt.
Gruss
Onur
Anzeige
AW: VBA Do While Schleife
21.02.2017 21:28:12
Luschi
Hallo Onur,
Du hast nicht begriffen, daß Dein geposteter Code so nicht einsatzbar ist - teste es doch mal am praktischen Beispiel, statt mit den Iphone-/Android-Handy ungetesteten Code zu verbreiten.
Gruß von Luschi
aus klein-Paris
AW: VBA Do While Schleife
21.02.2017 21:43:45
onur
Hi Luschi,
Hatte ich doch auch.
Aber kannst du mir trotzdem sagen, wo genau das problem ist/sein soll?
Ausserdem ging es mir eigentlich um deinen Umgangston - für konstruktive Kritik auf normalen niveau bin ich jedoch immer offen und dankbar.
Gruß
Onur
AW: VBA Do While Schleife
18.02.2017 13:24:49
Michael
Hi,
probiere mal das hier: 
Sub schleife()
Dim zeile As Long
Dim spalte As String
spalte = "A" ' welche auch immer Du benötigst
zeile = 2
While Range(spalte & zeile)  ""
MsgBox "in Zelle " & spalte & zeile & " steht: " & Range(spalte & zeile).Value
zeile = zeile + 1
Wend
MsgBox "Die Zelle " & spalte & zeile & " ist leer."
End Sub

While ... Wend ist eine "kopfgesteuerte" Schleife, d.h. zuerst wird überprüft, ob das Kriterium zutrifft, und nur wenn ja, werden die Anweisungen innerhalb der Schleife ausgeführt.
Do ... Loop While ist "fußgesteuert", d.h. die Anweisungen werden mindestens einmal ausgeführt, auch wenn das Kriterium falsch ist - weil es erst am Schleifenende ausgewertet wird.
Schöne Grüße,
Michael
Anzeige
AW: VBA Do While Schleife
18.02.2017 13:32:56
marie
Lieben Dank!
AW: VBA Do While Schleife
19.02.2017 10:55:40
Gerd
Hallo,
noch eine mittig Gesteuerte. :-)
Sub D()
Dim Spalte As Long, Zeile As Long
Spalte = 1
Zeile = 2
Do
If Cells(Zeile, Spalte)  "" Then
MsgBox Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Else
Exit Do
End If
Loop
End Sub
Gruß Gerd
AW: VBA Do While Schleife
19.02.2017 13:52:32
Michael
Hi Gerd,
das Ding ist ja hübsch und erinnert mich irgendwie an Goto-Zeiten.
Der Vollständigkeit halber noch eine Variante: 
Sub D_mit_Var()
Dim Spalte As Long, Zeile As Long
Dim abbruch As Boolean
MsgBox "Variablen sind nach dem Dim immer" & vbLf & _
"mit Standardwerten vorbelegt:" & vbLf & _
"Long mit 0, also Spalte = " & Spalte & vbLf & _
"Boolean mit Falsch (VBA: false), also abbruch = " & abbruch
Spalte = 1
Zeile = 2
Do
If Cells(Zeile, Spalte)  "" Then
MsgBox Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Else
abbruch = True
End If
Loop Until abbruch
End Sub

So etwas setze ich gerne ein, wenn sich bei der Entwicklung herausstellt, daß die Abbruchbedingungen zu "unhandlich" werden (mehrere, ineinander verschachtelte IFs bzw. mehrere, mit And/Or usw. verknüpfte Abbruchbedingungen).
Schöne Grüße,
Michael
Anzeige

148 Forumthreads zu ähnlichen Themen

Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Do loop Schleife mit hoher CPU Last
Steffen44


Hallo,
ich habe ein kleines Programm wo ich Daten von der RS232 Schnittstelle in Excel einlese.
Das einlesen geschieht per Do loop Schleife wo die Daten direkt in die Zellen von Excel geschrieben werden.
Was mir permanent negativ auffällt ist das egal welche Schleifenart man ve...
21.02.2009 17:37:29
Thread-ID: 1052648
16 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA Windows Standarddrucker ermitteln
chrissey

Hallo Leut,
Frage:
Kann ich irgendwie via VBA den Windows Standarddrucker ermitteln?
Application.ActivePrinter = "?"
Das wäre super, wenn das ginge?
Danke Euch schon mal im Voraus und wünsche Euch ein schönes WE
Grüße
Chrissey
19.02.2010 15:09:39
Thread-ID: 1139782
6 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
if-Funktion mit do while loop
Rocco

hi leute,
irgendwie komm ich nicht weiter.
Mein Ziel:
Ich möchte alle Werte in Spalte 29 überprüfen und wenn "Ist-2009" drin steht soll die ganze Zeile gelöscht werden, außer in Spalte 28 steht "Mitarbeiter+" oder "Mitarbeiter-".
Meine Tabelle geht erst ab Zelle A4 los (dahe...
29.03.2010 12:30:37
Thread-ID: 1149063
3 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
8
15
1
2
5
8
2
2
2
4
10
6
2
2
10
4
3
3
3
20
4
5
9