Hi Y,

die TextBoxen sind auf einer UserForm (Name: Terminverwaltung hinterlegt). Dort ist auch die Checkbox verfügbar. Die Checkbox solll lediglich dazu dienen welches Sheet (entweder "nw" oder "ersatz") angesprochen werden soll. Hab das mal ganze mal alles genauer referenziert, aber trotzdem bekomm ich immer ein Fehler. Hier mal das vollständige Makro:

  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
'   Textboxes löschen
    TextBox10.Value = ""
    TextBox8.Value = ""
    TextBox7.Value = ""
    TextBox6.Value = ""
    TextBox9.Value = ""
    TextBox5.Value = ""
    CheckBox1.Value = False    'ersatz

    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