Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
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
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schleife an anfang zwingen

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
Anzeige
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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige