Office: Vorzeitig Schleife verlassen

ajafarov · 28. Dezember 2016

Hallo zusammen,

ich habe in meinem Makro zwei For Schleifen, wobei die erste Schleife sich auf die Spalten und die zweite sich auf die Reihen bezieht. Nun möchte ich die erste Schleife vorzeitig verlassen und zwar erst dann, wenn die jeweilige if-Bedingung erfüllt ist. Ich habe 3 Bedingungen eingebaut, jedoch reagiert mein Makro nur auf die letzte Bedingung und macht dementsprechend nur im dritten Fall das, was ich vorhabe.

Es geht im Prinzip darum, dass Werte aus zwei Spalten durcheinander geteilt und die Ergebnisse in die Spalten 14, 17 und 20 eingetragen werden, z.B.um das Ergebnis für die Spalte 14 zu ermitteln, möchte ich den Wert aus Spalte 6 durch den Wert aus Spalte 4 teilen und das zeilenweise etc. In allen anderen Fällen, d.h. wenn die Spaltennummer ungleich 14, 17 oder 20 ist, möchte ich dass mein Makro nichts ausführt.

Code:

Sub Test()
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
lastcolumn = Cells(3, Columns.Count).End(xlToLeft).Column
For icount = 4 To lastrow
For ccount = 1 To lastcolumn
If ccount = 14 Then
htnom = 6
htdenom = 4
ElseIf ccount = 17 Then
htnom = 8
htdenom = 4
ElseIf ccount = 20 Then
htnom = 10
htdenom = 4
Exit For
End If
Next ccount
If Not IsEmpty(Cells(icount, 3)) Then
Cells(icount, ccount) = Cells(icount, htnom) / Cells(icount, htdenom)
Else
Cells(icount, ccount) = 0
End If
Next icount
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Könnte mir vielleicht jemand helfen? Sollte man geschickter vorgehen können, so wäre ich für die alternativen Varianten sehr dankbar.

Vielen Dank im Voraus & schöne Feiertage!

Beste Grüße!!!

:)

Hajo_Zi · 30. Dezember 2016

Du prüfst nicht 3 Bedingungen mit Einmal sondern jede einzeln.

BoskoBiati · 30. Dezember 2016

Hi,

dann mach´s mal so:

Code:

Option Explicit

Sub Test()
Dim lastRow As Long
Dim lastColumn As Long
Dim loSpalte As Long
Dim loCo As Long
Dim htnom As Long
Dim loZeile As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
lastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
For loCo = 1 To 3
loSpalte = 11 + loCo * 3
htnom = 4 + 2 * loCo

For loZeile = 4 To lastRow
If Cells(loZeile, 3) 0 Then
Cells(loZeile, loSpalte) = Cells(loZeile, htnom) / Cells(loZeile, 4)
Else
Cells(loZeile, loSpalte) = 0
End If
Next
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ajafarov · 12. Januar 2021

was heißt das für mich in meinem Fall, wie kann ich mein Makro dazu bringen erst dann die Schleife zu verlassen, wenn die jeweilige Bedingung erfüllt ist? Ich möchte, dass die Schleife dreimal verlassen wird und zwar im Laufe des gesamten Durchlaufs. Ist das überhaupt möglich? Danke!

von Hajo_Zi

Du prüfst nicht 3 Bedingungen mit Einmal sondern jede einzeln.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

BoskoBiati · 30. Dezember 2016

Hallo,

warum probierst Du nicht mein Makro?

ajafarov · 12. Januar 2021

von BoskoBiati

Hallo,

warum probierst Du nicht mein Makro?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo,

ich werde dein Makro ausprobieren und melde mich dann!

Herzlichen Dank!!!

ajafarov · 12. Januar 2021

Vielen Dank, funktioniert super! Guten Rutsch! *Smilie

von BoskoBiati

Hi,

dann mach´s mal so:

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Sub Test()
Dim lastRow As Long
Dim lastColumn As Long
Dim loSpalte As Long
Dim loCo As Long
Dim htnom As Long
Dim loZeile As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
lastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
For loCo = 1 To 3
loSpalte = 11 + loCo * 3
htnom = 4 + 2 * loCo

For loZeile = 4 To lastRow
If Cells(loZeile, 3) 0 Then
Cells(loZeile, loSpalte) = Cells(loZeile, htnom) / Cells(loZeile, 4)
Else
Cells(loZeile, loSpalte) = 0
End If
Next
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Vorzeitig Schleife verlassen

Vorzeitig Schleife verlassen

Vorzeitig Schleife verlassen

Vorzeitig Schleife verlassen

Vorzeitig Schleife verlassen - Similar Threads - Vorzeitig Schleife verlassen

Verkettung von Zellen - Schleife

While-Schleife wird nicht beendet

For Next Schleife

VBA Schleife kopieren und einfügen von Spalten

Eine Schleife mit zwei tebellen vba Access

Besprechungen vorzeitig beenden oder verspätet beginnen

For Next Schleife vorzeitig nächsten Schleifendurchgang