Dim wkb As Workbook
Dim zeile As Long
Dim spalte As Long
Dim ersatz As Boolean
fin = TextBox4.Value
ersatz = CheckBox1.Value
Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\Desktop\Nwmgnt.xls")
wkb.Activate
Sheets("Neuwagen").Activate
If (fin <> "") Then
CheckBox1.Value = False
Set rangeobj = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rangeobj2 = 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
zeile2 = Sheets("ersatz").Cells(rangeobj2.Row, 1).Row
spalte2 = Sheets("ersatz").Cells(1, rangeobj2.Column).Column
zeile = Sheets("Neuwagen").Cells(rangeobj.Row, 1).Row
spalte = Sheets("Neuwagen").Cells(1, rangeobj.Column).Column
If (CheckBox1.Value = True) Then
Terminverwaltung.TextBox10.Value = Sheets("ersatz").Cells(zeile2, 20).Value
Terminverwaltung.TextBox8.Value = Sheets("ersatz").Cells(zeile2, 6).Value
Else:
Terminverwaltung.TextBox10.Value = Sheets("Neuwagen").Cells(zeile, 18).Value
Terminverwaltung.TextBox8.Value = Sheets("Neuwagen").Cells(zeile, 8).Value
End If
End If
End Sub ()