Code zu einer Schleife formen

[MSCom]

Hallo Community,


Ich habe einen Code, und der Soll zu einer Schleife umgewandelt werden.


Sub schleife()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=FORMULATEXT(INDIRECT(""ZS(-1)"",0))"
Range("B1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:= _
"!", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

Dim wsh As Worksheet
Dim sWert As Double
Dim c As Range

With Sheets("Prüfungstabelle")
Set wsh = Sheets(.Range("D1").Value)
sWert = .Range("A1")
End With

With wsh
Set c = .UsedRange.Find(sWert)
If Not c Is Nothing Then
c.Interior.Color = vbRed
Else
MsgBox "Suchwert nicht gefunden"
End If
End With

End Sub


Ich habe in der Spalte "A" meine ganzen Werte. Der Code soll so lange durchlaufen bis die Liste in Spalte "A" zuende ist, bzw die erste leere Zeile erscheint.


vielen Dank und Grüße,

LiNy


siehe auch:

https://www.ms-office-forum.net/forum/showthread.php?t=366449