Suchen und ersetzen mit Makro

Computer: Software & Programmierung Visual Basic
#1

Hallo Zusammen
Ich habe ein Makro, dass eine bestimmte Spalte absuchen soll und dort gewissen Wörter durch andere ersetzen soll.
(Es muss der ganze Inhalt der Zelle ersetzt werden, somit fällt die „Replace-Funktion“ von Excel leider aus)

Ich habe nun mal folgendes Programmiert:

_Do While b

Nun habe ich folgendes Problem:
Sobald in dem gewählten Bereich nichts zu finden ist. Wirft er eine Errormeldung. Ich möchte diese aber auffangen, weil ich danach gleich ein anderes Wort suchen möchte.
Ich weiss, dass es bie Java die Möglichkeit gibt, Exceptions zu „catchen“. Geht das irgendwie auch mit VBA?

Danke für die Hilfe

Jochen11_

#2

Ich habe ein Makro, dass eine bestimmte Spalte absuchen soll
und dort gewissen Wörter durch andere ersetzen soll.
(Es muss der ganze Inhalt der Zelle ersetzt werden, somit
fällt die „Replace-Funktion“ von Excel leider aus)

Sobald in dem gewählten Bereich nichts zu finden ist. Wirft er
eine Errormeldung. Ich möchte diese aber auffangen, weil ich
danach gleich ein anderes Wort suchen möchte.

Hallo Jochen,

(in der Hilfe zu „Find“ steht ein Beispiel, ich habe es nur abgewandelt):

Sub nn()
Dim rngSuch As Range, strAdresse As String
With Worksheets(1).Range("E5:E517")
 Set rngSuch = .Find(What:="tray", LookIn:=xlFormulas, LookAt:=xlPart)
 If Not rngSuch Is Nothing Then
 strAdresse = rngSuch.Address
 Do
 rngSuch.Value = "Tray with"
 Set rngSuch = .FindNext(rngSuch)
 Loop While Not rngSuch Is Nothing And rngSuch.Address strAdresse
 End If
End With
End Sub

Gruß
Reinhard

#3

versuche es mal mit Try- Catch

#4

Hallo Reinhard
DAnke für den tollen Tipp. Das ist echt eine elegante Lösung.
Doch leider funktioniert es nicht in allen Fällen. :-S

Hier das Beispiel:

a = 1
Do
Select Case a

Case 1

With Range(„E5:E517“)
Set rangeSuche = .Find(What:=„solia“, LookIn:=xlFormulas, LookAt:=xlPart)
If Not rangeSuche Is Nothing Then

strAdresse = rangeSuche.Address
Do

rangeSuche.Value = „Tray with“
Set rangeSuche = .FindNext(rangeSuche)

Loop While Not rangeSuche Is Nothing And rangeSuche.Address strAdresse

End If
End With

Case 2

With Range(„E5:E517“)
Set rangeSuche = .Find(What:=„foil“, LookIn:=xlFormulas, LookAt:=xlPart)
If Not rangeSuche Is Nothing Then

strAdresse = rangeSuche.Address
Do

rangeSuche.Value = „Foil with“
Set rangeSuche = .FindNext(rangeSuche)

Loop While Not rangeSuche Is Nothing And rangeSuche.Address strAdresse

End If
End With
End Select
a = a + 1
Loop Until a > 2

Jetzt gibt er mir beim Case 1 immer eine Error-Meldung (Run-time error ‚91‘:
Object variable or With block variable not set) aus.

An was liegt das, bzw. wie kann ich das umgehen?

Danke für die Hilfe

#5

Doch leider funktioniert es nicht in allen Fällen. :-S
Jetzt gibt er mir beim Case 1 immer eine Error-Meldung
(Run-time error ‚91‘:
Object variable or With block variable not set) aus.

An was liegt das, bzw. wie kann ich das umgehen?

Hallo Jochen,

kann ich nicht nachvollziehen, bei mir kommt kein Fehler.
Unabhängig davon Code mal umgebaut.

Sub tt()
Dim a As Byte, rangeSuche As Range, strAdresse As String
For a = 1 To 2
 With Range("E5:E517")
 Set rangeSuche = .Find(What:=IIf(a = 1, "solia", "foil"), LookIn:=xlFormulas, LookAt:=xlPart)
 If Not rangeSuche Is Nothing Then
 strAdresse = rangeSuche.Address
 Do
 rangeSuche.Value = IIf(a = 1, "Tray with", "Foil with")
 Set rangeSuche = .FindNext(rangeSuche)
 Loop While Not rangeSuche Is Nothing And rangeSuche.Address strAdresse
 End If
 End With
Next a
End Sub

Gruß
Reinhard

#6

Datei hochladen bei w-w-w
Hallo Jochen,

solange noch keiner auf deinen anderen Beitrag geantwortet hat, kannst du ihn selbst löschen, mach das lieber. Ist besser weil da deine Emailadresse steht.

Lade die Mappe hoch mit file-upload o.ä., s. FAQ:2606

Gruß
Reinhard

#7

Hey Reinhard
Danke für den Tipp.

Hier den Link:
http://www.file-upload.net/download-3532785/Test.xls…

Danke

#8

http://www.file-upload.net/download-3532785/Test.xls…

hallo Jochen,

Problematik ist an sich gelöst.
Ich muß das nur noch umsetzen was ich erfahren habe auf Nachfrage woanders.
Aber das war eben erst und jetzt bin ich dann doch zu müd das jetzt zu tun.

Und der Grund warum ich bei Besseren nachgefragt habe ist folgender.
Ich habe deinen und meinen Code getestet an Beispieldaten in E wo mal die Suchwörter drin staneden oder auch nicht.
Quasi nie eine Fehlermeldung.

Bei deiner Mappe schon. Nach dem Öffnen und Codedurchlauf kommt die Fehlermeldung. Beim zweiten Aufruf des Codes aber nicht. Sowas irritiert mich natürlich.

Egal, mir wurde gesagt wodran das liegt und ich setz das am WE um.

Gruß
Reinhard

#9

http://www.file-upload.net/download-3532785/Test.xls…

Hallo Jochen,

Sub test2()
Dim a As Byte, rngSuche As Range, strAdresse As String, rngBereich As Range
With Range("E17:E517")
 For a = 1 To 2
 Set rngBereich = Nothing
 Set rngSuche = .Find(What:=IIf(a = 1, "solia", "foil"), LookIn:=xlFormulas, LookAt:=xlPart)
 If Not rngSuche Is Nothing Then
 strAdresse = rngSuche.Address
 Do
 If Not rngBereich Is Nothing Then
 Set rngBereich = Union(rngBereich, rngSuche)
 Else
 Set rngBereich = rngSuche
 End If
 Set rngSuche = .FindNext(rngSuche)
 Loop While Not rngSuche Is Nothing And rngSuche.Address strAdresse
 End If
 rngBereich.Value = IIf(a = 1, "Tray with", "Foil with")
 Next a
End With
End Sub

Gruß
Reinhard