Sub button()
Dim wkb As Workbook
Dim zeile, zeile2 As Long
Dim spalte, spalte2 As Long
fin = TextBox4.Value
Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\Desktop\Nwmgnt.xls")
wkb.Activate
Sheets("Neuwagen").Activate
If (fin <> "") Then
Set rangeobj = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rangeobj2 = Sheets("ersatz").Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If rangeobj Is Nothing And rangeobj2 Is Nothing Then
MsgBox "Die FIN " + fin + " wurde nicht gefunden!"
End
End If
If (CheckBox1.Value = True) Then
zeile2 = Sheets("ersatz").Cells(rangeobj2.Row, 1).Row
spalte2 = Sheets("ersatz").Cells(1, rangeobj2.Column).Column
Terminverwaltung.TextBox10.Value = Sheets("ersatz").Cells(zeile2, 20).Value
Terminverwaltung.TextBox8.Value = Sheets("ersatz").Cells(zeile2, 6).Value
Else:
zeile = Sheets("Neuwagen").Cells(rangeobj.Row, 1).Row
spalte = Sheets("Neuwagen").Cells(1, rangeobj.Column).Column
Terminverwaltung.TextBox10.Value = Sheets("Neuwagen").Cells(zeile, 18).Value
Terminverwaltung.TextBox8.Value = Sheets("Neuwagen").Cells(zeile, 8).Value
End If
End If
End Sub
lg Y