Zwei Do..Loop Schleifen in 1 Prozedur

reiner · 2021-09-10T14:59:06+00:00

Hallo Leute, in einer Prozedur wird eine Do until....Loop-Schleife fehlerfrei durchlaufen. Nun soll in der gleichen Prozedur eine zweite Do until....Loop-Schleife in Abhängigkeit einer IF-Bedingung durchlaufen werden: Beispielcode: If Bedingung1 =true then Do until .... If Bedingung2 =true then Do until .... zu durchlaufender Programmcode zu durchlaufender Programmcode zu durchlaufender Programmcode zu durchlaufender Programmcode zu durchlaufender Programmcode Loop (Bedingung1) Loop (Bedingung2) Es erscheint die Fehlermeldung: Loop ohne Do Ist es überhaupt möglich 2 Do..Loop Schleifen in 1 Prozedur in Abhängigkeit von 2 IF-Bedingungen funktionsfähig zu programmieren? mfg reiner

Es geht um die Auswertung von aufgezeichneten 'ankommenden' und 'abgehenden Telefongesprächen einer privaten Telfonanlage. 9999396 ist eine der Telefonnummern. Die anderen Telefonnummern habe ich hier weggelassen, der jeweilige Programmcode ist entsprechend dem nachfolgenden aufgebaut.
Im dargestellten Programmcode werden die Gespräche nach ankommend und abgehend sortiert. Die Gespräche können monatsweise, per Kalenderauswahl oder per CB-Auswahl ausgewertet werden. Die CB-Auswahl bedingt eine andere Vorgehensweise als die Monats-bzw. Kalenderauswahl. Darum geht es.
Bei Anwahl der CB wird die Variable Gesprächsauswertung_CB ="1" gesetzt; bei der Monats-bzw. Kalenderauswahl wird dei Variable Gesprächsauswertung_Monat_Kalender ="1" gesetzt; die jeweils andere Variable ist dann natürlich "0". Über diese beiden Variablen soll die zugehörige Do until...Bedingung gesetzt werden bzw. NICHT gesetzt werden. Wenn beiden Do until.. Bedingungen in "Wartestellung" sind und die z.B. Monatsauswahl wird betätigt, dann erscheint die am Beginn genannte Fehlermeldung. Es geht also darum beide Do until.. Bedingungen in "Wartestellung" zu versetzen, eine Auswahl zu treffen UND KEINE Fehlermeldung zu erhalten.


Public Function Markieren_und_auswerten_CB_Monat_Kalender()
If Gesprächsauswertung_Monat_Kalender = 1 Then
Do Until (BereichEnde - BereichAnfang) + 1 = Umlauf
'If Gesprächsauswertung_CB = 1 Then
'   Do Until cboDatumIndex + 1 = Umlauf
'9999396################################################################################
Umlauf = Umlauf + 1
If frmGesprächszeit.optAbgehend_Page1.Value = False And frmGesprächszeit.optAnkommend_Page1.Value = False Then frmGesprächszeit.lblZeile.Caption = Umlauf & " Zeilen"
If ActiveCell.Value = 9999396 Then GoTo 9999396
9999396:
ActiveCell.Offset(0, 23).Select 'Spalte "Y"
'ohne Auswahl
If frmGesprächszeit.optAbgehend_Page1.Value = False And frmGesprächszeit.optAnkommend_Page1.Value = False And ActiveCell.Value = "ankommendes Gespräch" Then
If Gesprächsauswertung_CB = 1 Then Gesprächszeit_Umlauf = Gesprächszeit_Umlauf + 1
ActiveCell.Offset(0, -17).Select 'Spalte "H" VorVorWahl-Nummer
Spaltenüberprüfung
ElseIf frmGesprächszeit.optAbgehend_Page1.Value = False And frmGesprächszeit.optAnkommend_Page1.Value = False And ActiveCell.Value = "abgehendes Gespräch" Then
If Gesprächsauswertung_CB = 1 Then Gesprächszeit_Umlauf = Gesprächszeit_Umlauf + 1
ActiveCell.Offset(0, -17).Select 'Spalte "H" VorVorWahl-Nummer
Spaltenüberprüfung
'optAbgehend gewählt
ElseIf frmGesprächszeit.optAbgehend_Page1.Value = True And ActiveCell.Value = "abgehendes Gespräch" And optAbgehendGesprächszeit = 1 Then
If Gesprächsauswertung_Monat_Kalender = 1 And ErsteZeileAuswertbereich = 0 Then ErsteZeileAuswertbereich = ActiveCell.EntireRow.Row - 1
If Gesprächsauswertung_CB = 1 Then Gesprächszeit_Umlauf = 1
ActiveCell.Offset(0, -17).Select 'Spalte "H" VorVorWahl-Nummer
Umlauf_Abg = Umlauf_Abg + 1
frmGesprächszeit.lblZeile.Caption = Umlauf_Abg & " Zeilen"
Spaltenüberprüfung
'optAnkommend gewählt
ElseIf frmGesprächszeit.optAnkommend_Page1.Value = True And ActiveCell.Value = "ankommendes Gespräch" And optAnkommendGesprächszeit = 1 Then
If Gesprächsauswertung_Monat_Kalender = 1 And ErsteZeileAuswertbereich = 0 Then ErsteZeileAuswertbereich = ActiveCell.EntireRow.Row - 1
If Gesprächsauswertung_CB = 1 Then Gesprächszeit_Umlauf = Gesprächszeit_Umlauf + 1
ActiveCell.Offset(0, -17).Select 'Spalte "H" VorVorWahl-Nummer
Umlauf_Ank = Umlauf_Ank + 1
frmGesprächszeit.lblZeile.Caption = Umlauf_Ank & " Zeilen"
Spaltenüberprüfung
Else
Selection.EntireRow.Hidden = True
If Gesprächsauswertung_Monat_Kalender = 1 Then Umlauf = Umlauf + 1
ActiveCell.Offset(1, -23).Select
GoTo NeuerUmlauf
End If
Berechnung9999396
Weiter:
LetzteZeileAuswertbereich = ActiveCell.EntireRow.Row - 1
Loop
End If ' Do until....
Auswertung
End Function

HI
ok, ich vermute ich hab das Problem verstanden.
Du hast eigentlich eine einzige DO-Loop-Schleife, aber du willst unterschiedliche Abbruch-Bedingungen verwenden, je nach dem ob
Gesprächsauswertung_Monat_Kalender oder ob Gesprächsauswertung_CB gewählt wurde.
wenn jetzt die Werte "(BereichEnde - BereichAnfang) + 1" und " cboDatumIndex + 1" über den Schleifenverlauf nicht verändert werden,
könnte man einfach programmieren:


Public Function Markieren_und_auswerten_CB_Monat_Kalender()
Dim Ende As long
If Gesprächsauswertung_Monat_Kalender = 1 Then Ende = BereichEnde - BereichAnfang) + 1
If Gesprächsauswertung_CB = 1 Then Ende = cboDatumIndex + 1
If Ende = 0 then Exit Sub 'nicht ausgewählt
Do Until Umlauf = Ende
Umlauf = Umlauf + 1

wobei man dann hier auch anstelle von Do_Loop auch ein For-Next einsetzen könnte, was folgende Vorteile hat:
- keine Endlosschleifen möglich
- etwas schneller als Do-Loop
- Schleifenzähler wird automatisch mit hochgezählt
also


for Umlauf = Umlauf to Ende
Next

etwas anders sieht es aus, wenn sich die Abbruchbedingungen über den Schleifenverlauf ändern können.
Dann braucht man zwingend das Do-Loop und die Grenzwerte für den Abbruch müssen auch immer aktuell berechnet werden und können nicht vorab bestimmt werden.
Dann muss man das so machen, wenn man unterschiedliche Abbruchbedingungen hat:
man startet die Schleife erstmal mit DO ohne irgendwas und programmiert die Abbruchbedingung mit EXIT DO innerhalb der schleife
Da hat man dann noch mehr Möglcihkeiten, das flexibel zu gestalten und kann dann auch mehrere Progammzeilen dafür verwenden:


Public Function Markieren_und_auswerten_CB_Monat_Kalender()
DO
If Gesprächsauswertung_Monat_Kalender = 1 Then
IF (BereichEnde - BereichAnfang) + 1 = Umlauf Then Exit Do
ElseIf Gesprächsauswertung_CB = 1 Then
IF cboDatumIndex + 1 = Umlauf Then Exit Do
Else
Exit Do '--- ´Sofortabbruch, wenn keine der beiden Optionen gewählt wurde
end If
Umlauf = Umlauf + 1
.... hier dann der weitere Code
Loop

Gruß Daniel

Zwei Do..Loop Schleifen in 1 Prozedur

Forumthread: Zwei Do..Loop Schleifen in 1 Prozedur

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zwei Do..Loop Schleifen in 1 Prozedur

Forumthread: Zwei Do..Loop Schleifen in 1 Prozedur

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread