Makro soll alle Blätter durchlaufen..

Question

Hallo an alle!

ich bitte euch um eine Hilfe bei folgendem Problem.

Das Makro suchen und ersetzen sollte aus dem erstem Blatt den Wert in Zelle G1
mit dem Wert in der zelle G2 in den erwähnten Bereichen Range ersetzen.

Im aktuellem Blatt funktioniert es ohne Probleme.
Das Problem besteht darin dass im erstem Blatt sind die Werte, welche in allen
Blättern ersetzt werden sollen (G1 und G2) und diese Werte sollen immer im
gleichem bereich in allen anderen Blättern auch ersetzt werden.

Würde mich über eine Hilfe freuen.

Danke
Marek

I

Sub Import_IST_Werte()
'
' Import Makro
'
' Tastenkombination: Strg+i
'
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Activate

Range("G1:G134,I30:I134,L30:L134,O30:O134,R30:R134,U30:U134,X30:X134").Se
lect
Selection.Replace What:=[G2], Replacement:=[G1], LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Next
End Sub

Answer 1

Hallo Marek,

probier es mal so:

Sub Import_IST_Werte()
'
' Import Makro
'
' Tastenkombination: Strg+i
'
Dim sh As Worksheet
Dim rngSuche As Range
Dim strSuchen As String
Dim strErsetzen As String

strSuchen = ActiveWorkbook.Worksheets(1).Range("G1").Value
strErsetzen = ActiveWorkbook.Worksheets(1).Range("G2").Value

For Each sh In Worksheets
Set rngSuche = sh.Range("G1:G134,I30:I134,L30:L134,O30:O134,R30:R134,U30:U134,X30:X134")

rngSuche.Replace What:=strSuchen, Replacement:=strErsetzen, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next

End Sub

Gruß

M.O.