Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

replace

replace
Thomas
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: replace
08.07.2010 06:55:19
Hajo_Zi
Hallo Thomas,
mache es ohne VBA.
Spalte markieren, Regiuster Start, Befehlsgruppe Bearbeiten, Schalter Suchen und Auswähllen, Gehe zu, Inhalte, Leerzellen, Bearbeitungsleiste nopict.jpg eingeben und strg+Enter.
Das kannst Du auch mit dem Makrorecorder aufzeichnen.

hier eine vba-Variante mit For Each()
08.07.2010 07:12:38
Matthias
Hallo
eine andere Variante
dauert zwar ein bisschen länger, funzt aber
Dim rng
Application.ScreenUpdating = False
For Each rng In Range("A:A")'Bereich bitte anpassen
If rng = "0" Then rng.Replace What:="0", Replacement:="NoPict", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next
Application.ScreenUpdating = True
Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige