...
Set wkb = Workbooks.Open("...")
wkb.Activate
Sheets("nw").Activate
If (fin <> "") Then
Set rangeobj = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If rangeobj Is Nothing Then
MsgBox "Die FIN " + fin + " wurde nicht gefunden!"
Else
zeile = rangeobj.Row
spalte = rangeobj.Column
TextBox10.Value = Cells(zeile, 18).Value
TextBox8.Value = Cells(zeile, 8).Value
If (CheckBox1.Value = True) Then
Sheets("ersatz").Activate
TextBox10.Value = Cells(zeile, 20).Value
TextBox8.Value = Cells(zeile, 6).Value
End If
End If
End If