Sub command_button ()
Dim wkb As Workbook
Dim fin As String
Dim zeile As Long
Dim spalte As Long
Dim zeile2 As Long
Dim spalte2 As Long
fin = TextBox4.Value
Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\NwEw.xls")
wkb.Activate
Sheets("Neuwagen").Activate
If (fin <> "") Then
TextBox10.Value = ""
TextBox8.Value = ""
TextBox7.Value = ""
TextBox6.Value = ""
TextBox9.Value = ""
TextBox5.Value = ""
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
zeile = Sheets("Neuwagen").rangeobj.Row
spalte = Sheets("Neuwagen").rangeobj.Column
zeile2 = Sheets("ersatz").rangeobj2.Row
spalte2 = Sheets("ersatz").rangeobj2.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("nw").Cells(zeile, 18).Value
Terminverwaltung.TextBox8.Value = Sheets("nw").Cells(zeile, 8).Value
End If
End If
End Sub