Zeichenfolge in Text

[server]

Hi,

Ich hab es jetzt:

Dim add As Long
Dim X As Long
Dim Gefunden As Boolean

For Y = 1 To List1.ListCount

If Left(List1.List(Y), Len("127.0.0.1")) > "127.0.0.1" Then
List2.AddItem List1.List(Y)
k = ("127.0.0.1")
List1.List(Y) = k
End If

Danke

 

[Bambusbieger]

Achso ich dachte das mit der Y-Sleife wäre schon klar weil du überall Y geschrieben hast