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
|