Exit For bei verschachtelter Schleife
13.08.2005 13:30:44
Mario
habe ein kleines Problem. Bin gerade dabei meine Diplomarbeit zu schreiben und hab dementsprechen Bilanzkennzahlen von 1500 Unternehmen. Diese müssen nach verschiedenen Kriterien sortiert werden. Jetzt habe ich mir einen Code gebastelt der mir diese sortierei erleichter. Aber leider komme ich gerade nicht weiter. Daher die Hoffnung das mir jemand von euch weiter helfen kann wäre echt traumhaft. So nun zum Problem. Nach dem ich Exit For eingefügt habe wird leider nicht nur die verschachtelte 2. For Schleife beendet sonder auch die erste die eigentlich weiterlaufen soll bzw. kann ich die erste wieder aktivieren? Hat jemand eine Idee wie ich das lösen kann. Vielen Dank. Wäre super wenn mir jemand helfen könnte.
Gruß
Mario
For Each C In Bereich
If C.Value > 0 And C.Value C.Select
Selection.Offset(-1, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(0, -2).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Application.Goto Reference:=Worksheets("Tabelle3").Range("a1")
If Range("a1") = Empty Then
Application.Goto Reference:=Cells(1, 1)
ActiveSheet.Paste
ElseIf Range("a1") Empty Then
For Each l In Bereich_SIC
If l.Text Like "SIC:" Then
l.Activate
Selection.Offset(-1, 2).Select
ActiveCell.End(xlDown).Offset(2, -2).Select
If ActiveCell = Empty Then
ActiveSheet.Paste
ActiveCell.Select
Exit For 'Hier ist mein Problem
End If
End If
Next
End If
Application.Goto Reference:=Worksheets("Daten").Range("a1")
End If
Next