folg. Makro habe ich zum Teil mit dem Rekorder aufgenommen und zum Teil stammt es aus dem Archiv:
Sub Ersetzen()
Dim x As Long
Dim a As Long
Application.ScreenUpdating = False
x = Sheets("Zugangszellen").Cells(65536, 3).End(xlUp).Row
For a = 6 To x
With Sheets("Zugangszellen").Range("U6:U" & a)
Selection.Replace What:="*:\A-West", Replacement:=Sheets("Eingaben").Range("A31"), LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next
Application.ScreenUpdating = True
End Sub
Es soll in der besagten Tabelle in der Spalte U nach einem Pfad gesucht werden. Die Laufwerkbuchstabe ist nicht bekannt aber egal was da steht, soll es durch das was in Zelle "A31" ersetzt werden. Aber irgendwie passiert nichts. Sieht jemand einen Fehler?
Gruß
Martin