Suchen und ersetzen
04.03.2007 11:16:00
Gerold
ich habe eine Frage zu folgendem Problem.
Ich habe in Spalte A folgende Inhalte.(Und noch viele mehr)
hallo 975
975
test 976
976
hallo 977
977
test 978
978
Mein Ziel ist es eine Tabelle zu bekommen die folgendermaßen aussieht.
hallo 975
,,975
test 976
,,976
hallo 977
,,977
test 978
,,978
Ich habe dazu ein Makro gebastelt.
Das Ergebniss ist aber immer:
hallo ,,hallo 975
,,975
test ,,test 976
,,976
hallo ,,hallo 977
,,977
test ,,test 978
,,978
Mein Makro:
Sub zahlen()
Dim i As Integer
i = 1
For i = 1 To 1000
Range("A" & i).Select
Selection.Replace What:="97*", Replacement:=",," & Range("A" & i).Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next i
End Sub
Wie muß ich mein Makro abändern dass nur die Zeilen geändert werden die mit 97 beginnen?
Im voraus schon mal vielen Dank
Gruß
Gerold Dornbusch