Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Temporärer Ausstig aus For Next Schleife

Temporärer Ausstig aus For Next Schleife
16.02.2003 11:50:12
Hans-Karl
Hallo Leute,

mit diesem Makro färbe ich Wochentage ein, um einen Schichtkalender zu bekommen:


Sub faerben()
Dim r%
For r = 1 To 50
If WeekDay(Cells(r, 1)) = 7 _
Or WeekDay(Cells(r, 1)) = 1 Then GoTo ziel ' Ausstieg wenn Sonnabend oder Sonntag
Cells(r, 1).Interior.ColorIndex = 6
ziel:
Next r
End Sub

Nun ist es ja ein schlimmes Vergehen mit GoTo zu arbeiten. Kennt jemand eine bessere Lösung. Ich habe den Ausstieg schon mit Exit For versucht, das geht nicht. Auch das Hochzählen der Variable r brachte nicht den gewünschten Erfolg.

In der Hoffnung auf eine Lösung
Hans-Karl

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Temporärer Ausstig aus For Next Schleife
16.02.2003 11:57:02
Hajo_Zi
Hallo Hans-Karl

Du hast die Aufgabe Deines Makros nicht ganz klar beschrieben. Versuchs mal so

Gruß Hajo

Re: Temporärer Ausstig aus For Next Schleife
16.02.2003 12:02:04
Nepumuk
Hallo Hans-Karl
mach es einfach so:

Sub faerben()
Dim r%
For r = 1 To 50
If WeekDay(Cells(r, 1)) <> 7 And WeekDay(Cells(r, 1)) <> 1 Then Cells(r, 1).Interior.ColorIndex = 6
Next r
End Sub

Gruß
Nepumuk

@ Hajo
16.02.2003 12:04:25
Hans-Karl
Hallo Hajo,

das funktioniert leider nicht, da der Ausstieg endgültig erfolgt.
Die Schleife soll nach dem Wochenende aber weiterlaufen. Es soll ein Jahreskalender nach Früh und Spätschicht wechselseitig eingefärbt werden. Für die Anfrage hatte ich das Makro auf das Problem verkürzt.

Gruß Hans-Karl

Anzeige
Re: Temporärer Ausstig aus For Next Schleife
16.02.2003 12:06:19
Hans-Karl
Hallo Nepumuk,

manchmal sieht man den Wald vor lauter Bäumen nicht. Vielen Dank.

Hans-Karl

Wochenende markieren
16.02.2003 12:07:37
Hajo_Zi

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige