Danke im voraus.
Danke im voraus.
mach aus dem Teil der bestehenden Prozedur, in das Du hinein springen willst eine eigene Prozedur und rufe diese dann auf.
Gruß
Peter
Do Until x = z
If Sheets("Tabelle1").Cells(x, a) <> Sheets("Tabelle2").Cells(x, a) Then
'Überprüft ob ein Wert ungleich war.
meld1 = ("Zeile :" & x)
meld2 = ("Spalte:" & a)
meld3 = Sheets("Tabelle1").Cells(x, a)
meld4 = Sheets("Tabelle2").Cells(x, a)
Call UserForm2.meldung
If UserForm1.Aufzeichnen = True Then
Call Auslesen1
End If
If UserForm2.AlleÜbernehmen = False Then
UserForm2.Show
Else
MsgBox ("2test")
End If
Call UserForm2.werte_übernehmen
End If
HIER WILL ICH REIN SPRINGEN
If x = z - 1 Then
a = a + 1
End If
If a = s + 1 Then
Exit Do
End If
If x = z - 1 Then
x = 0
End If
x = x + 1
Loop
vergiss es! Selbst wenn es ginge (was ich stark bezweifle) und abgesehen davon, dass Du die Variablen auch mitgeben musst ist Dein Ansatz, einfach in andere Module, und dort auch noch IN Schleifen hinein zu springen der beste Weg, in Basic-Zeiten zurück zu fallen; und im Ergebnis weißt Du dann vor lauter Springerei nicht mehr, wo im Moment Code abgearbeitet wird.
Gruß
Peter