Hallo,
folgende Situation: ich möchte eine Schlaufe machen die so lange läuft bis zwei Zellen identische Werte haben (bei der einen Zelle erfolgt eine Eingabe (Zahl), bei der anderen Zelle ändert sich die Zahl mit den Schlaufendruchgängen). Die maximale Anzahl Schlaufen ist 500, aber das Abbruchkriterium sollte vorher greiffen...
Ich habe als VBA-Anfänger zwei verschiedene mögliche Codes geschrieben:
Code 1:
Sub Clustering1()
Dim i As Integer
Do Until Range("C6") = Range("A1")
Range("C1:C5").Select
Selection.Copy
Range("B1:B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'statements
Loop
End Sub
Code 2:
Sub Clustering2()
Dim i As Integer
For i = 1 To 500
Range("C1:C5").Select
Selection.Copy
Range("B1:B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("C6") = Range("A1") Then Exit For
Next i
End Sub
Beim Code 1 scheint es eine Endlosschlaufe zu geben (er hört nicht mehr auf zu rechnen).
Bei Code 2 macht er alle 500 Schritte und beachtet das Abbruchkriterium nicht...
Würde mich freuen wenn jemand den Fehler finden könnte!
Grüsse |