Suchen und ersetzen in einem nicht aktiven Blatt!!! VBA

05/10/2007 - 08:07 von Reiner | Report spam
Hallo zusammen,
ich habe ein Problem mit folgenden Makro
Auszug:

Set Quelle = Worksheets("Tab")
Ende = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
Quelle.Range("D2:AH" & Ende).Select
Selection.Replace What:="u", Replacement:="Url", LookAt:=xlWhole

usw.
solange das Blatt aktiv ist kein Problem, was muß ich àndern das auch
ersetzt wird, bei nicht aktiven Blatt?

Gruß
Reiner
Excel 2003
 

Lesen sie die antworten

#1 Thomas Ramel
05/10/2007 - 08:22 | Warnen spam
Grüezi Reiner

"Reiner" schrieb:

Hallo zusammen,
ich habe ein Problem mit folgenden Makro
Auszug:

Set Quelle = Worksheets("Tab")
Ende = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
Quelle.Range("D2:AH" & Ende).Select
Selection.Replace What:="u", Replacement:="Url", LookAt:=xlWhole

usw.
solange das Blatt aktiv ist kein Problem, was muß ich àndern das auch
ersetzt wird, bei nicht aktiven Blatt?



.Select ist ein einem nicht aktiven Blatt nocht möglich, lass das daher weg
(es ist ohnehinin >99% aller Fàlle nicht notwendig).

Ich könnte mir den Code wie folgt vorstellen:

Set Quelle = Worksheets("Tab")
Ende = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
Quelle.Range("D2:AH" & Ende).Replace What:="u", Replacement:="Url",
LookAt:=xlWhole

Mit freundlichen Grüssen

Thomas Ramel (@Web-Interface)
- MVP für Microsoft-Excel -

[Win XP Pro SP-2 / xl2003]

Ähnliche fragen