Hallo, 

habe eine UserForm mit mehreren Textboxen und Labels. Der Benutzer kann über dieses UF Daten eingeben und in eine Excel-Liste übertragen. 

Problem: Das Makro soll aber vorher überprüfen ob der Datensatz (bzw. ein Wert) in der Liste in Spalte 1 schon vorhanden ist. Ich probiere es die ganze Zeit mit der For-Schleife aber nach dem Ausführen des Makros springt der Debugger immer auf den IF-Block. 

Hier das Makro: 

Dim wkb As Workbook 
Dim zeile, zeile2, y As Long 
Dim fin As String 

fin = TextBox50.Value 
name = TextBox51.Value 


Set wkb = Workbooks.Open("C:\Users\Desktop\....xls") 
wkb.Activate 
Sheets("Neuwagen").Activate 

zeile2 = Sheets("Neuwagen").Cells(Rows.Count, 1).End(xlUp).Row 

For y = 2 To zeile2 
    
If (fin <> Sheets("Neuwagen").Cells(y, 1).Value) Then 


zeile = Sheets("Neuwagen").Cells(Rows.Count, 1).End(xlUp).Row + 1 
        
        
         Sheets("Neuwagen").Cells(zeile, 1).Value = Terminverwaltung.TextBox50.Value 
         Sheets("Neuwagen").Cells(zeile, 3).Value = Terminverwaltung.Label519.Caption 
         Sheets("Neuwagen").Cells(zeile, 4).Value = Terminverwaltung.Label521.Caption 
         Sheets("Neuwagen").Cells(zeile, 10).Value = Terminverwaltung.Label539.Caption 
         Sheets("Neuwagen").Cells(zeile, 5).Value = Terminverwaltung.TextBox51.Value 
         Sheets("Neuwagen").Cells(zeile, 27).Value = Terminverwaltung.TextBox52.Value 
         Sheets("Neuwagen").Cells(zeile, 7).Value = Terminverwaltung.TextBox53.Value 
         Sheets("Neuwagen").Cells(zeile, 9).Value = Terminverwaltung.TextBox54.Value 
         Sheets("Neuwagen").Cells(zeile, 8).Value = Terminverwaltung.TextBox55.Value 
  
wkb.Close savechanges:=True 


MsgBox " Neuwagen für Herr/Frau " + name + " wurde angelegt!" 

Else 

MsgBox "Fin" + fin + "ist bereits angelegt!" 


End If 

 Next y 

End Sub



Gruß und Danke 
Sino