Hallo,

ich habe ein UserForm erstellt indem verschiedene Werte innerhalb der definierten Labels angezeigt werden sollen. Wenn ich den folgenden Code ausführe wird aber gar nichts übernommen, obwohl Daten vorhanden sind:

Sub klick()

    Dim wkb As Workbook
    Dim kennzeichen As String
    Dim fin As String
    Dim zeile As Long
    Dim spalte As Long
    Dim datum As Date
    Dim textboxDat As Date
    Dim name As String
    Dim auslieferungsDat As String
    Dim uhrzeitAuslieferung As Variant
   
    Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\P325130\Desktop\kopie Neuwagen\Neuwagenmanagement.xls")
    wkb.Activate
    Sheets("Neuwagen").Activate

    zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    zeile = zeile + 1
   
    'kennzeichen = TextBox13.Value
    textboxDat = TextBox3.Value
    datum = Cells(zeile, 13)
   
    If (textboxDat = datum) Then

    Set rangeobj = Cells.Find(What:=textboxDat, After:=ActiveCell, LookIn:=xlValues, LookAt _
                            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                            False, SearchFormat:=False)
                            If rangeobj Is Nothing Then
                               MsgBox "Das Datum " + datum + " wurde nicht gefunden!"
                            Else
                            zeile = rangeobj.Row
                            spalte = rangeobj.Column
                               
                             If (Cells(zeile, 14).Value = "9:00") Then
                             Label120.Caption = Cells(zeile, 5).Value
                                   
                             End If
                             End If
                             End If
End Sub

Erklärung: Benutzer gibt ein Datum in eine Textbox ein. Dieses wird in der Datei Neuwagenmanagement.xls im Sheet "Neuwagen" verglichen mit den Datümern (Zeile, 13). Also wenn textboxDat = Datum (in sheet Neuwagen) dann wenn in Cells(zeile, 14) = "9:00" dann soll der wert von Cells(zeile, 5) in das Label übergeben werden. Aber irgendwie geschieht nichts.

Wo kann hier der Fehler liegen? Über Ünterstützung würde ich mich sehr freuen ;)

Grüße