Ich möchte in einer Spalte die Ersten zwei Zeichen austauschen.
mit meinem geschnitzten Code wills leider nicht
Private Sub aendern()
Dim i as Integer
for i = 20 to 580
With Cells(i, 2)
If .Value2 <> "" Then
If Left(.Value, 2) = "06" Then Left(.Value, 2) = "60"
End If
End With
next
End Sub
bei "Left(.Value, 2) = "60"" tritt leider ein Laufzeitfehler 424 (Objekt erforderlich) ein
Hat vielleicht jemand ´ne Idee wie der Code ausschauen muss?
PS.: Der Zelleintrag ist nicht immer numerisch (ist fallweise "Text")
Danke im Voraus
Lorenz