replace
Thomas
könnt Ihr mir bitte auf die Sprünge helfen.
In der Spalte AI habe ich ca 12000 Zeilen mit BildUrls - z.B. 123540.jpg - 1203546.jpg
unter anderem auch Zeilen mit der Ziffer 0 heißt hier ist kein Bild vorhanden.
Diese 0 möchte ich ersetzen durch nopict.jpg.
Mit replace habe ich es fast hinbekommen - es werden halt aber auch die 0 in den anderen Zeilen ersetzt.
---------------
Sub bild_nopict()
Columns("AI:AI").Select
Selection.Replace what:="0", replacement:="nopict.jpg", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
---------------
Merci schon mal
Gruß
Thomas
Anzeige