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

Next-Anweisung in einer IF-Schleife

Next-Anweisung in einer IF-Schleife
06.03.2008 16:44:49
ralf
Hallo,
wie bekomme ich bei folgendem Code die Next-Anweisung in der IF-Schleife hin
der soll den nächsten Wert nehmen, wenn die Bediengungen erfüllt sind
For i = 0 To vMnLgArr(z)
If Day(zDatum = 6) Or Day(zDatum = 7) Then Next
Range("C" & zRow & ":D" & zRow) = zDatum
zDatum = zDatum + 1
zRow = zRow + 1
Next
Gruß Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Next-Anweisung in einer IF-Schleife
06.03.2008 16:49:00
Tino
Hallo,
in deiem Code müsste es so gehen.
For i = 0 To vMnLgArr(z)
If Day(zDatum = 6) Or Day(zDatum = 7) Then GoTo nächste:
Range("C" & zRow & ":D" & zRow) = zDatum
zDatum = zDatum + 1
zRow = zRow + 1
nächste:
Next
Gruß
Tino

AW: Next-Anweisung in einer IF-Schleife
06.03.2008 16:57:00
Tino
Hallo,
bin mir nicht sicher ob dein Code überhaupt so funktioniert.
Eventuell müsste es so geschrieben werden.

For i = 0 To vMnLgArr(z)
If Day(zDatum) = 6 Or Day(zDatum) = 7 Then GoTo nächste:
Range("C" & zRow & ":D" & zRow) = zDatum
zDatum = zDatum + 1
zRow = zRow + 1
nächste:
Next i


Gruß
Tino

Anzeige
AW: Next-Anweisung in einer IF-Schleife
06.03.2008 17:19:00
ralf
Danke Tino - funktioniert !!!!

AW: Next-Anweisung in einer IF-Schleife
06.03.2008 17:15:00
Erich
Hallo Ralf,
willst du mit der Bedingung Wochenenden ausschließen?
Dann könnte Bsp2 funzen.
Wenn nicht, tut es vielleicht Bsp1:

Sub Bsp1()
For i = 0 To vMnLgArr(z)
If Day(zDatum)  6 And Day(zDatum)  7 Then
Range("C" & zrow & ":D" & zrow) = zDatum
zDatum = zDatum + 1
zrow = zrow + 1
End If
Next
End Sub
Sub Bsp2()
For i = 0 To vMnLgArr(z)
If Weekday(zDatum) 

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige