schleife an anfang zwingen

Forumthread: schleife an anfang zwingen

05.01.2003 14:24:38

Holger

Hallo Forum,

Für euch sicher eine einfache Frage: wie kann ich erreichen, dass bei nachstehendem code, die berechnung nicht mehr durchgeführt wird, aber ich gleichzeitig nicht die schleife verlasse mit exit sub. Hintergrund: wenn eine zelle in der schleife leer ist dann soll der wert 0 erscheinen und wieder zum schleifenanfang gegangen werden und die nächste zelle überprüft werden... Gibt es hier also eine Unterbrechung mit der ich sofort wieder zum schleifenanfang gelange?

For j = 8 To 32
If Cells(j, 2) = "" Then
j = j + 1
End If
Wert1 = Cells(j, 2)
Wert2 = Cells(j, 3)
Wert3 = wert1 – wert2
Cells(j, 19) = wert
If Cells(j, 18) = 0 Then
Cells(j, 9) = 24
End If
:
:
Next j

Danke.

Holger

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: schleife an anfang zwingen

05.01.2003 14:32:28

Otto Ecker
Re: schleife an anfang zwingen

05.01.2003 14:33:23

Hajo_Zi
Re: schleife an anfang zwingen=> DANKE

05.01.2003 15:30:17

Holger

Re: schleife an anfang zwingen

05.01.2003 14:32:28

Otto Ecker

For j = 8 To 32
If isnumeric(Cells(j, 2)) Then
Wert1 = Cells(j, 2)
Wert2 = Cells(j, 3)
Wert3 = wert1 – wert2
Cells(j, 19) = wert
If Cells(j, 18) = 0 Then
Cells(j, 9) = 24
End If
:
:
Next j

So ?

Gruß Otto

Re: schleife an anfang zwingen

05.01.2003 14:33:23

Hajo_Zi

Hallo Holger

aus Deiner Beschreibung würde ich lesen das Du eine Endlosschleife haben willst. "wieder zum schleifenanfang gegangen"

Ansonsten genauer Beschreiben.

Aber ich vermute mal das lese ich falsch


Option Explicit

	

Sub Holger()

	For j = 8 To 32

		If Cells(j, 2) <> "" Then

			wert1 = Cells(j, 2)

			Wert2 = Cells(j, 3)

			Wert3 = wert1 - Wert2

			Cells(j, 19) = wert

			If Cells(j, 18) = 0 Then Cells(j, 9) = 24

			':

			':

		End If

	Next j

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Re: schleife an anfang zwingen=> DANKE

05.01.2003 15:30:17

Holger

Vielen Dank,

es hat wie immer prima geklappt...

Gruss
Holger

Beliebteste Forumthreads (12 Monate)

Forumthread: schleife an anfang zwingen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread