Äußere Schleife aus innerer Schleife verlassen

Sub Schleifentest() Dim i As Long, j As Long For i = 1 To 10 For j = 1 To 10 Debug.Print "j-Durchlauf: " & j Exit For 'Beendet nur innere Schleife, soll aber auch äußere Schleife beenden Next j Debug.Print "i-Durchlauf: " & i Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub gleichTrue() Dim blnV As Boolean Dim x As Long, ww As Integer ' If-Anweisung: If #### Then ww = 1 ' #### ist ein Ausdruck. ' #### muss True oder False sein oder einen Datentyp ergeben, ' der implizit in Boolean konvertiert werden kann. ' (http://msdn.microsoft.com/de-de/library/752y8abs.aspx) ' Beispiele: If x Then ww = 1 ' x ist 0, wird konvertiert zu False. If x = 0 Then ww = 1 ' Die Gleichung x=0 ist True. ' Dazu müssen die Ausdrücke auf der linken ' und der rechten Seite der Gleichung ausgewertet ' und dann die Ergebnisse vergleichen werden. ' Deutlicheres Beispiel: If x + 17 = 51 / 3 Then ww = 1 ' x + 17 ist 17 ' 51 / 3 ist 17 ' Die Gleichung 17 = 17 ist True If blnV Then ww = 1 ' blnV ist False. If blnV = True Then ww = 1 ' Die Gleichung blnV=True ist False. If (blnV = True) = True Then ww = 1 ' Die Gleichung (blnV=True)=True ist False, ' denn (blnV=True) ist (False) und ' (False) ist nicht gleich True. End Sub

Sub WennCWluegt() Dim CWluegt As Boolean If CWluegt = True Then Rücktritt ' Wenn es wahr ist, dass CW lügt, dann Rücktritt If CWluegt Then Rücktritt ' Wenn CW lügt, dann Rücktritt If CWluegt = False Then Dableiben ' Wenn es falsch ist, dass CW lügt, dann Dableiben If Not CWluegt Then Dableiben ' Wenn CW nicht lügt, dann Dableiben End Sub Sub Rücktritt(): End Sub Sub Dableiben(): End Sub

Hallo,
@Luc danke für den Link zu Nachgedacht.
Wie seht ihr das im Sinne von Geiz ist geil u.ä. wenn unter dem Betreff
"Alles wird billiger"
in einem Forum schrieb jmd den genannten Betreff und diesen Beitrag:
*********************************************************************************************
"heute in der Mittagpause kam von einer Kollegin, deren Lieblingsbeschäftigung das Lamentieren ist, mal
wieder die Leier 'Alles wird teurer' (seit dem sowieso).
Das ließ mir keine Ruhe und so verbrachte ich den Rest der Mittagpause damit das Gegenteil zu zeigen.
Ergebnis ist u.a. diesr Link
http://finanzwertig.de/kaufkraft-vergleich-frueher-w...
Ist schon interessant wie gut es uns heute geht und wie es unsere Eltern/Großeltern geschafft haben,
nicht im Elend zu versinken.
Die Argumention der Bedenkenträger möge beginnen!
*********************************************************************************************
Ich antwortete ihm so:
*********************************************************************************************
:::: Die Argumention der Bedenkenträger möge beginnen!
warum diese diese Verunglimpfung? jeder der die Teuerung anders sieht als du ist ein Bedenkenträger?
Bedenkenträger ist m.E. eine negative Abwertung, ich sehe das wie dieser Rob.
(Anmerkung, Rob ist ein Link auf
http://de.answers.yahoo.com/question/index?qid=20080105170929AAkdsRC
)
::::heute in der Mittagpause kam von einer Kollegin, deren
::::Lieblingsbeschäftigung das Lamentieren ist, mal wieder die
::::Leier 'Alles wird teurer' (seit dem sowieso).
Schon wieder Verunglimpfung :-(
"heute in der Mittagpause sagte eine Kollegin: 'alles wird teurer'"
wäre ein sachlicher Anfang eines Meinungsaustausches darüber ob man das auch so sieht gewesen.
Okay, im Bezug auf den Brettnamen plauder ich mal so vor mich hin.
Ich lasse mal weg auf wessen Kosten "verbilligungen" gehen/gingen, also Umweltzerstörung, unmenschlicheer Tierumgang, Ausbeutung von von Menschen, natürlich auch Kindern und deren Körperliche schäden durch Sklavenarbeit.
Z.B. Puerto Rico. Sie exportieren sehr viele Bananen, Anbau in Monokulturen, Monokulturen bedeuten zwangsläufig Einsatz von giftiger Chemie. Die das paar jahre versprühen werden nicht alt...
Aber so Peanuts wollte ich ja weglassen *erinner*
In dem von dir gezeigten Link steht eine Tabelle mit dem Vergleich
wie lange man 1950 bzw. 2009 für eines der dort aufgeführten ca. 15
Produkte arbeiten mußte.
Quelle dieser Tabelle ist das Institut der Deutschen Wirtschaft
Logisch stellen sie sich gut dar.
So wie Philipp Rösler auch die ähem sehr guten Leistungen von Schwarz/gelb herausstellt.
Fazit, diese Tabelle wurde nicht von einer unabhängigen Quelle erstellt.
Dann zum Vergleich 1950/2009.
Man kann seriös nur Gleiches mit Gleichem vergleichen.
Brotpreis, Brot wurde damals beim Bäcker gekauft, Discounter in der Dimension wie heute gabs damals nicht.
Wie wäre denn der Vergleich ausgefallen wenn dort die Bäcker-Brotpreise miteinander verglichen werden?
Wie hätten die Vergleiche für Bruttomiete pro qm ausgesehen, dito für Nettomiete?
Preise für öffentlichen Nahverkehr und auch Fernverkehr (Zug).
Und der Euro wurde 1999 als Buchgeld eingeführt, 2002 als Währung.
Wie sähe denn ein Vergleich 1999/2011 aus?
In diesem Licht müßte man die Aussage 'alles wird teurer' mal beleuchten *find*
Habe fertig
Gruß
Reinhard
*********************************************************************************************
Okay, es ist schon richtig wenn ich da Rösler höre oder lese das alles billiger ist, dann kann ich schwer sachlich werden.
Für mich in meinem Hirn schwingt da automatisch mit zu welchem menschlichen Preis das erkauft wurde daß hier was billiger ist.
Ich krieg halt die Bilder nicht aus dem Kopf die ich habe weil ich sie sah, grad in einem Bericht über Puerto Rico.
Da sah man einen Sprüher, wie zum Badeurlaub gekleidet also freier Zugang dessen was er versprüht zu seiner haut.
Eine für gase lächerliche Staubmaske vor dem Mund.
Und die sah verdammt neu aus, also nur für's Fernsehen, ansonsten kriegen sie die Dinger nicht.
Da es eine Dokumentation anschließend daten, Fakten betreffend frühe Sterblichkeit.
Aber gut bzw. schlecht. Ich habe leider dieser Statistik eines Instituts der deutschen Wirtschaft nichts "gleichwertiges" entgegenzusetzen.
Vor Jahren hat doch diese gewaltige gewinne einfahrende deutsche Nation den 100.000 Blinden in D
Zuschüße für ein Braille-telefon gewaltig gekürzt oder gestrichen.
Makaber genug, sieht der Blinde es also auch so daß alles billiger wid?
Ich habe auch diese Fernsehbilder nicht vergessen, im Zuge der sogennanten Gesundheitsreform nahm sich ein "Einstufer" oder wie man die nennt zwei Stunden Zeit um einer sehr alten Frau zuzusehen
wie sie da mühsam erst nach dieser Zeit ihren Teller aufgegessen hatte.
Dann kreuzte das Warzenschwein im Pflegebeurteilungsbogen der Dame an, "braucht keine Hilfe bei der nahrungsaufnahme" oder wie das im Behördendeutsch genannte wird.
Wahrscheinlich hat diese Dreckswanze der dame noch die drei Stunden zugesehen die sie braucht um sich zu duschen oder in der badewanne zu reinigen.
Um dann anzukreuzen "braucht keine Hilfe bei Körperhygiene :-(
Sorry, aufgrund der Dinge die mich aufregen wich ich leicht vom roten Faden ab.
Jetzt mal wirklich im Versuch alles wegzulassen und nur rein auf die Preise zu reagieren,
Seht ihr beide es auch so wie da die deutsche Wirtschaft?
"Alles" ist sowieso meist nie korrekt.
Zugegeben, bestimmte Produkte sind billiger geworden.
Optimierte herstellungsverfahren, Chinaimporte u.v.m.
Aber was ist z.B. mit den ganzen Dienstleistungen?
Handwerker, Kneipen, usw.
Gruß
Reinhard

Hallo Reinhard, hallo Luc,
ich habe mir ein sehr altes und zwei neue Bücher bestellt:
Ein Buch zu Ribbon-Programmierung für Excel 2007:
Ribbon-Programmierung für Office 2007 (Autor André Minhorst)
http://www.amazon.de/Ribbon-Programmierung-Office-2007-Andr%C3%A9-Minhorst/dp/3827327385/ref=sr_1_2?ie=UTF8&qid=1326187877&sr=8-2
... denn zu dem Thema habe ich keine anderes Buch gefunden:
Ein Buch zur VBA-Programmierung:
Excel-VBA Master Class: Einstieg für Anspruchsvolle (von Michael Schwimmer)
http://www.amazon.de/Excel-VBA-Master-Class-Einstieg-Anspruchsvolle/dp/3827325250/ref=sr_1_1?ie=UTF8&qid=1326188423&sr=8-1
... weil ich mich auch für Klassenprogrammierung und Zugriff auf Access-Datenbanken interessiere.
und noch ein sehr altes Buch (englisch) für nur 3,49 Euro, das hier im Forum bei einem für mich interessanten VBA-Code als Quelle genannt wurde:
Excel 2000 VBA Programmer's Reference (von John Green, Stephen Bullen & Filipe Pereira Martins)
http://www.amazon.de/Excel-2000-VBA-Programmers-Reference/dp/1861002548/ref=sr_1_4?ie=UTF8&qid=1326188193&sr=8-4
Gut, auf das letzte Buch hätte ich vielleicht verzichten können. Aber aufwärtkompatibel zu neueren Excel-Versionen ist der Code doch meistens (mal abgesehen von den wenigen Ausnahmen wie FileSearch) und bei nur 3,49 Euro muss ich mich im Falle eines Fehlkaufes nicht wirklich ärgern. Die ersten beiden Bücher überschneiden sich inhaltlich garantiert nicht.
Viele Grüße
Martin

Sub Schleifentest() Dim i As Long, j As Long, lngEnd As Long For i = 1 To 10 For j = 1 To 4 Debug.Print "j-Durchlauf: " & j If i > 2 And j > 2 Then Exit For ' beendet innere Schleife Next j Debug.Print "i-Durchlauf: " & i & " vor Prüfung" If j

Sub Schleifentest() Dim i As Long Dim j As Long Dim bEnde As Boolean For i = 1 To 10 For j = 1 To 10 Debug.Print "j-Durchlauf: " & j bEnde = True Exit For 'Beendet nur innere Schleife, soll aber auch äußere Schleife beenden Next j If bEnde Then Exit For Debug.Print "i-Durchlauf: " & i Next i End Sub

Beliebteste Forumthreads (12 Monate)

Äußere Schleife aus innerer Schleife verlassen

36
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

49 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Äußere Schleife aus innerer Schleife verlassen

36 Beiträge zum Forumthread Beiträge zu diesem Forumthread

49 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

36
Beiträge zum Forumthread

Beiträge zu diesem Forumthread