Ich bin noch nicht solange am VBA programmieren und hätte eine Frage brzüglich des Ansprechens von Worksheets. Im Moment funktioniert die Scleife nur wenn ich mich in dem besagten Worksheet befinde (Comp1). Da ich aber mehrere Worksheets (Comp1, Comp2 , comp & m) ansprechen möchte habe ich folgende Funktion geschrieben:
Dim i As Integer
Dim m As Integer
m = 1
i = 1
For m = 1 To 2
For i = 1 To 20
Worksheets("Comp" & m).Cells.Find(What:=Worksheets("Sheet2").Range("a" & 4 + i), After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Replace What:=ActiveCell.Offset(1, 0), Replacement:=Worksheets("Sheet2").Range("B" & 4 + i), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Next i
Next m
End Sub
Wie bekomme ich es hin das ich von irgendeinem Worksheet aus die Funktion laufen lassen kann ohne eine Fehlermeldung zu bekommen?
Vielen Dank für eure Hilfe,
Karl