Hallo, bin schon wieder hier, mit einem weiteren Problem.
Ihr kennt alle dieses kleine Helferlein in Excel "Suchen nach / Ersetzen durch". Genau das möchte ich via Lotus an Excel weitergeben. Die exportierten Daten enthalten u.a. Spalte A, in der ich lediglich den Text "VB" durch "PS" suchen und ersetzen lassen möchte. Als Anfänger ist mir auch dies bisher nicht geglückt. Habe zwei Varianten probiert.
Variante1:
xlsheet.Columns("A:A").Select
With selection
.Replace What="VB", Replacement="PS", LookAt=xlPart, _
SearchOrder=xlByColumns, MatchCase=False, SearchFormat=False, _
ReplaceFormat=False
End With
Hier kommt die Fehlermeldung "Type mismatch".
-----------------------------------------------------------------------------------
Variante 2:
xlsheet.Columns("A:A").Select
xlApp.Selection.Replace What="VB", Replacement="PS", LookAt=xlPart, _
SearchOrder=xlByRows, MatchCase=False, SearchFormat=False, _
ReplaceFormat=False
Hier kommt die Fehlermeldung "OLE: Automation object error".
Vielleicht ist mein Ansatz auch ganz falsch ? Hat jemand die Lösung für mich ?
Gruß
Michael
Versuch doch mal:
xlsheet.Columns("A:A").Replace("VB", "PS", xlPart, xlByRows, False, False, False)
oder
xlsheet.Columns(1).Replace("VB", "PS", xlPart, xlByRows, False, False, False)