nach Excel exportierte Daten suchen und ersetzen

[Micha8]

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:

Code

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:

Code

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

[Axel]

Hast du in der Variante 1 die Konstanten xlPart und xlByColumns in deinem Code definiert?

Const xlPart = 2
Const xlByColumns = 2


Axel

[Micha8]

Hallo Axel,
komme erst heute dazu, dies Problem wieder in Angriff zu nehmen. Nein, die Konstanten hatte ich bisher nicht definiert. Habe das nun nachgeholt, doch der Ablauf steigt dann bei dem Code des Suchen/Ersetzens (meine Variante1) aus, mit der Notes Fehlermeldung "Type mismatch".
Was nun ? Was ist falsch ?

[ata]

... bei Type mismatch verwendest du falsche Datentypen. Über den debugger kannst du feststellen, wo das passiert...

Toni

[Micha8]

Hallo,
wie von Axel vorgeschlagen habe ich nun die Constanten definiert. Aber egal ob mit diesen oder auch ohne. Ich weiß nicht warum - habe an meinem Code eigentlich außer den Constanten nichts geändert, und egal ob ich meine o.g. Variante 1 oder 2 teste, bei beiden bekomme ich auf einmal IMMER die Fehlermeldung "OLE: Automation object error".
Mit dem Debugger komm ich nicht klar. Der Code stoppt mit der genannten Fehlermeldung an der Stelle des Codes "Suchen / ersetzen" (wie in meinem Eröffungspost oben beschrieben.)

Ich werde noch verrückt. Wo liegt das Problem ??
Weiß jemand Rat ?

[ata]

... wie ich das sehe verwendest du den Code so, wie du ihn aus dem EXCEL-Makro kopiert hast. Es kann sein, daß sich LS an der Schreibweise stört:

App.Selection.Replace What="VB", Replacement="PS", ...

Versuche herauszufinden, wie die LS-Schreibweise aussieht..

=> App.Selection.replace( Arg1 , Arg2 , ... )

In welcher Reihenfolge die Parameter dann übergeben werden müssen...

Toni

[atbits]

Versuch doch mal:

Code

xlsheet.Columns("A:A").Replace("VB", "PS", xlPart, xlByRows, False, False, False)

oder

Code

xlsheet.Columns(1).Replace("VB", "PS", xlPart, xlByRows, False, False, False)

[Micha8]

Hallo zusammen,

komme leider erst heute dazu dieses Thema wieder aufzugreifen, da es jetzt wieder aktuell wird. Habe die bisherigen Lösungsansätze versucht und genau getestet, doch leider war keine funktionierende Idee dabei. Hat jemand einen anderen Vorschlag (mittlerweile herausbekommen) ?

@atbits
Dein Code hat leider gar nicht funktioniert, er bleibt in meinem Designer rot und so läßt sich der Code gar nicht erst abspeichern.