Archiv
effeff schrieb am 22.July.2009, 10:37:47 in der Kategorie pc.coding
Option Explicit
Sub Deklarierungsuebung()
Dim Wb As Workbook
Dim Sh As Worksheet
Dim Rg As Range
Set Wb = ThisWorkbook
Set Sh = Wb.Sheets(\"Tabelle1\")
Set Rg = Sh.Range(\"A:A\")
Rg.Replace What:=\"a\", Replacement:=\"b\", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Set Rg = Nothing
Set Sh = Nothing
Set Wb = Nothing
End Sub
Die einzige Möglichkeit, die ich sehe, um das zu umgehen, wäre vielleicht der Zugriff auf das Worksheet mittels Datenbanktreiber und dem Absetzen eines Update-Statements.
Archiv