Hallo kann mir jemand erklären, warum ich dauernd die Fehlermeldung bekomme "Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt!"?
Public Function Aktiv(erg As String)
Dim tRow, tColumn, fRow, myCount As Integer
Dim tName As String
Dim toFind As Range
tRow = ActiveCell.Row
tColumn = ActiveCell.Column
tName = Worksheets(1).Cells(tRow, 2)
With Worksheets(2).Range("b1:b500")
Set toFind = .Find(tName)
End With
fRow = toFind.Row
erg = Worksheets(2).Range(fRow, tColumn + 1) |