ich habe mir die Funktion Suchen und Ersetzen mit Makro-Recorder aufgenommen und versuchte erhaltenen Code:
Sub ersetzen()
Cells.Replace What:="09.08", Replacement:="10.08", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
An VBS anzupassen.
Code:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\test.xls")
objExcel.visible = False
ObjExcel.DisplayAlerts = False
With objExcel
.WorkSheets("Tabelle1").Cells.Replace
.What="09.08"
.Replacement="10.08"
.LookAt=xlPart
.SearchOrder=xlByRows
.MatchCase=False
.SearchFormat=False
.ReplaceFormat=False
End With
objWorkbook.Save
objWorkbook.Quit
Set objExcel = Nothing
Aber wenn dieser Code als .vbs gespeichert wird, kommt folgende Fehlermeldung:
Zeile: 8 Zeichen: 1
Fehler: falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung: 'Worksheets(
).Cells.Replace'
Code: 800A01C2
Was mache ich falsch?
Danke im Voraus
Freundliche Grüße
Wladimir