Office: String suchen & Ersetzen

sinn.sucher · 4. Februar 2009

Hallo Zusammen:-)

Ich habe hier folgenden Code der einen bestimmten String sucht und diesen durch 2 weitere Zeichen ergänzt:

Code:

Sub ES()

Cells.Replace What:="ES0021000002505493PP", Replacement:= _
"ES0021000002505493PPL1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="ES0021000002533893RA", Replacement:= _
"ES0021000002533893RA0F", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="ES0021000003725165EJ", Replacement:= _
"ES0021000003725165EJ0F", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="ES0021000003750305BZ", Replacement:= _
"ES0021000003750305BZ0F", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich muss jedoch noch ca. 50 weitere dieser Strings suchen und ergänzen.
(zu 90% mit 0F)

Kann man das Makro entsprechend kleiner gestalten, oder muss ich es unnötig "aufblähen"*tongue.gif*

Danke und Viele Grüsse, Britta

:)

Flämmchen · 6. Februar 2009

Hallo Britta,

also, du wirst nicht drum rumkommen, deine Such und Ersetzparameter anzugeben. Du könntest dir den Code aber ein wenig kürzen:
Code:

Dim Suche(1, 50) As String 'Die 50 gibt die Maximalen suchen an. Die 1 nicht verändern!^^
Suche(0, 1) = "Suchstring 1"
Suche(1, 1) = "Ersetzte SuchString 1 durch das!"

Suche(0, 2) = "Suchstring 2"
Suche(1, 2) = "Ersetzte SuchString 2 durch das!"

Suche(0, 3) = "Suchstring 3"
Suche(1, 3) = "Ersetzte SuchString 3 durch das!"

'usw.
'Einfach immer Suche (0, x) für den Suchstring und Suche(1,x) für das zu ersetzende^^

For i = LBound(Suche, 2) To UBound(Suche, 2)

Cells.Replace What:=Suche(0, i), Replacement:= _
Suche(1, i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So müsstest du zumindest nicht immer den Replaceblock schreiben :P - Ich sagja, "kleine" ersparnis^^

MFG Flämmchen

sinn.sucher · 6. Februar 2009

Hallo Flämmche^^

Danke für Deine schnelle Antwort...ich kann leider derzeit nur meine Ideen umsetzen, in dem ich die Makros aufzeichne um es so zu lernern...

Euer Handwerkzeug fehlt mir da natürlich..ich werde Deinen Vorschlag so umsetzen!

Vielen Dank & Grüsse

Britta

ebs17 · 6. Februar 2009

In Ergänzung zum Vorschlag von Flämmchen:
Wenn man die Wertpaare für Suchen und Ersetzen in einer separaten Tabelle ablegt (so würde man es in Access tun) und diese innerhalb der Schleife ausliest und verwendet, gewinnt man zusätzliche Flexibilität:
Ein Anwender könnte diese Wertetabelle pflegen (Kürzen, Korrigieren, Anfügen), ohne mit dem Code selbst in Berührung kommen zu müssen.

sinn.sucher · 6. Februar 2009

hihi das wäre es sicherlich, aber daran will ich mich ohne fertige Schleife nicht 'ran trauen:-)

vielleicht erschliesst sich mir das auch eines Tages:-)

Danke für Eure Hilfe

ebs17 · 6. Februar 2009

Anmerkung: Ich mache das hier mir zur Übung. Verbesserungen sind also nicht ausgeschlossen.

Mit folgendem Beispiel wird mittels einer zusätzlichen Excel-Instanz auf eine (geschlossene) externe Excelmappe zugegriffen, die die Wertepaare für Suchen und Ersetzen enthält:

Code:

Sub ES_2()

Dim objExcel As New Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim i As Long

Set objExcel = New Excel.Application
Set objBook = objExcel.Workbooks.Open("E:\Muster.XLS")
Set objSheet = objBook.Worksheets("Wertepaare")

With objSheet
For i = 1 To .Cells(Cells.Rows.Count, 1).End(xlUp).Row
Cells.Replace What:=.Cells(i, 1), Replacement:=.Cells(i, 2), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next
End With

objBook.Close
Set objSheet = Nothing
Set objBook = Nothing
Set objExcel = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: String suchen & Ersetzen

String suchen & Ersetzen

String suchen & Ersetzen

String suchen & Ersetzen

String suchen & Ersetzen - Similar Threads - String Ersetzen

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit String aus Formular Übereinstimmung in Abfrage prüfen

Leerzeichen abschließend im String

If-Then-Else...Verständnisfrage zu Kriterium String > Zahl

Erlaubte Zeichen an bestimmten Stellen von Strings

Mitarbeiterauslastung: Suchen nach String und addieren aller zugehörigen Zahlenwerte