habe eine kleine Frage. Komme zwar ohne Unterstützung ans Ziel aber nicht sehr elegant. Ich muss ständig bei der Methode "find" die Worksheets aktivieren. so zum Beispiel
Sub finden1()
Dim a, c, firstaddress, b, d
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle1").Range(Cells(1, 1), Cells(Range("a65536").End(xlUp).Row, 1))
a = Right(Worksheets("Tabelle3").Range("a3").Value, Len(Worksheets("Tabelle3").Range("a3").Value) - 6)
Set c = .Find(a, LookIn:=xlValues)
If c Is Nothing Then
Else: firstaddress = Right(c.Address, Len(c.Address) - 3)
b = Cells(firstaddress, 2).Value
End If
End With
Worksheets("Tabelle2").Activate
With Worksheets("Tabelle2").Range(Cells(1, 2), Cells(Range("b65536").End(xlUp).Row, 2))
Set c = .Find(b, LookIn:=xlValues)
If c Is Nothing Then
Else: firstaddress = Right(c.Address, Len(c.Address) - 3)
d = Cells(firstaddress, 1).Value
End If
End With
End Sub
Kann ich das umgehen dass ich die Worksheets vor dem suchen aktiviere? Wenn ich das nicht tue bekomme ich einen Laufzeitfehler 1004. Was bedeuted der eigentlich "uebersetzt"?
Vielen Dank fuer Eure Hilfe
Andy