If-And Schleife
01.08.2013 11:49:13
Z1mtstern
ich habe ein Problem mit meiner If-Schleife und ich komme einfach nicht drauf, was daran falsch sein kann.
Ich habe in der Spalte A Buchstaben und Zahelnkombinationen stehen (z.B. "ha3672a", "6673", "ggzh", "73za"). Wenn der Wert nicht numerisch ist und ungleich 4 Zeichen ist, dann soll der Wert in die zweite Spalte übernommen werden.
Laut meiner Theorie müssten aus meinen Beispielen dann alle Werte bis auf "6673" übernommen werden.
Fakt ist aber, dass alle Werte, die entweder numerisch oder 4 Zeichen lang oder beides sind, nicht übernommen werden. Der Code ist denkbar einfach. Ich hoffe jemand von euch kann mir helfen. Vielen Dank!
Sub selektieren()
For i = 1 To 11
hostname = Tabelle1.Cells(i, 1).Text
If ((Len(hostname) 4) And (IsNumeric(hostname) = False)) Then
Tabelle1.Cells(i, 2) = hostname
End If
Next i
End Sub