Hallo zusammen,

ich verzweifele gerade.

Ich habe mit eine Form „ZeitenVergleichen“ gebaut, und bekomme beim Beschreiben der einzelnen Element den Fehler:

<Objektvariable oder With-Blockvariable nicht festgelegt>

Das Ganze hat schon einmal funktioniert. Warum es jetzt streikt, ist mir unerklärlich.

Der Fehler tritt bereits in der  Zeile "ZeitenVergleich.D1.Caption" auf.

Hat jemend von euch eine Idee?

Danke

Piecha

Option Explicit

Sub FormZeitVergleichLaden(BaugruppenMC As String)
    'Dim BaugruppenMC As String
    Dim SuchbereichZelle As Range
    BaugruppenMC = "UNI-3800-2L2WACDB-GVI-02"

    If MsgBox("Daten in Baugruppenliste übertragen?", vbYesNo, "Zeiten Kalkulieren") Then
    Set SuchbereichZelle = Sheets("MC<->Kd.").Range("A:A").Find(BaugruppenMC, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
        
        ZeitenVergleich.D1.Caption = Format(Sheets("MC<->Kd.").Range("D" & SuchbereichZelle.Row), "hh:mm:ss") ' abas Zeit
        ZeitenVergleich.E1.Caption = Format(Sheets("MC<->Kd.").Range("E" & SuchbereichZelle.Row), "hh:mm:ss") ' Prüffeld Istzeit
        ZeitenVergleich.G1.Caption = Format(Sheets("MC<->Kd.").Range("G" & SuchbereichZelle.Row), "hh:mm:ss") ' Zeitabweichung
        ZeitenVergleich.I1.Caption = Format(Sheets("MC<->Kd.").Range("I" & SuchbereichZelle.Row), "hh:mm:ss") ' Rüsten, Verwalten
        ZeitenVergleich.J1.Caption = Format(Sheets("MC<->Kd.").Range("J" & SuchbereichZelle.Row), "hh:mm:ss") ' Bscan
        ZeitenVergleich.K1.Caption = Format(Sheets("MC<->Kd.").Range("K" & SuchbereichZelle.Row), "hh:mm:ss") ' 1. Test
        ZeitenVergleich.L1.Caption = Format(Sheets("MC<->Kd.").Range("L" & SuchbereichZelle.Row), "hh:mm:ss") ' Montage
        ZeitenVergleich.M1.Caption = Format(Sheets("MC<->Kd.").Range("M" & SuchbereichZelle.Row), "hh:mm:ss") ' 2. Test
        ZeitenVergleich.N1.Caption = Format(Sheets("MC<->Kd.").Range("N" & SuchbereichZelle.Row), "hh:mm:ss") ' ICT
        ZeitenVergleich.O1.Caption = Format(Sheets("MC<->Kd.").Range("O" & SuchbereichZelle.Row), "hh:mm:ss") ' Res. 1
        ZeitenVergleich.P1.Caption = Format(Sheets("MC<->Kd.").Range("P" & SuchbereichZelle.Row), "hh:mm:ss") ' Res. 2
        ZeitenVergleich.Q1.Caption = Format(Sheets("MC<->Kd.").Range("Q" & SuchbereichZelle.Row), "hh:mm:ss") ' Programm erstellen
        ZeitenVergleich.R1.Caption = Format(Sheets("MC<->Kd.").Range("R" & SuchbereichZelle.Row), "hh:mm:ss") ' Reparatur
        ZeitenVergleich.U1.Caption = Format(Sheets("MC<->Kd.").Range("U" & SuchbereichZelle.Row), "0.00") ' abas Zeit pro los
        ZeitenVergleich.V1.Caption = Format(Sheets("MC<->Kd.").Range("V" & SuchbereichZelle.Row), "0") ' Standardlosgröße
        
        ZeitenVergleich.U2.Text = Format(Sheets("MC<->Kd.").Range("U" & SuchbereichZelle.Row), "0.00") ' abas Zeit pro los
        ZeitenVergleich.V2.Text = Format(Sheets("MC<->Kd.").Range("V" & SuchbereichZelle.Row), "0") ' Standardlosgröße
         
        If CStr(Sheets("Zeit-Kalkulation").Range("D62")) = "Fehler 2007" Then
        Else
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.I2.Text = Format(0, "hh:mm:ss") ' Rüsten, Verwalten
            Else
                ZeitenVergleich.I2.Text = Format(Sheets("Zeit-Kalkulation").Range("D62"), "hh:mm:ss") ' Rüsten, Verwalten
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.J2.Text = Format(0, "hh:mm:ss") ' Bscan
            Else
                ZeitenVergleich.J2.Text = Format(Sheets("Zeit-Kalkulation").Range("E62"), "hh:mm:ss") ' Bscan
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.K2.Text = Format(0, "hh:mm:ss") ' 1. Test
            Else
                ZeitenVergleich.K2.Text = Format(Sheets("Zeit-Kalkulation").Range("F62"), "hh:mm:ss") ' 1. Test
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.L2.Text = Format(0, "hh:mm:ss") ' Montage
            Else
                ZeitenVergleich.L2.Text = Format(Sheets("Zeit-Kalkulation").Range("G62"), "hh:mm:ss") ' Montage
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.M2.Text = Format(0, "hh:mm:ss") ' 2. Test
            Else
                ZeitenVergleich.M2.Text = Format(Sheets("Zeit-Kalkulation").Range("H62"), "hh:mm:ss") ' 2. Test
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.N2.Text = Format(0, "hh:mm:ss") ' ICT
            Else
                ZeitenVergleich.N2.Text = Format(Sheets("Zeit-Kalkulation").Range("I62"), "hh:mm:ss") ' ICT
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.O2.Text = Format(0, "hh:mm:ss") ' Res. 1
            Else
                ZeitenVergleich.O2.Text = Format(Sheets("Zeit-Kalkulation").Range("J62"), "hh:mm:ss") ' Res. 1
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.P2.Text = Format(0, "hh:mm:ss") ' Res. 2
            Else
                ZeitenVergleich.P2.Text = Format(Sheets("Zeit-Kalkulation").Range("K62"), "hh:mm:ss") ' Res. 2
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.Q2.Text = Format(Sheets("Zeit-Kalkulation").Range("L62"), "hh:mm:ss") ' Programm erstellen
            Else
                ZeitenVergleich.Q2.Text = Format(Sheets("Zeit-Kalkulation").Range("L62"), "hh:mm:ss") ' Programm erstellen
            End If
            
            If Sheets("Zeit-Kalkulation").Range("D62") = "" Then
                ZeitenVergleich.R2.Text = Format(Sheets("Zeit-Kalkulation").Range("M62"), "hh:mm:ss") ' Reparatur
            Else
                ZeitenVergleich.R2.Text = Format(Sheets("Zeit-Kalkulation").Range("M62"), "hh:mm:ss") ' Reparatur
            End If
        End If
        ZeitenVergleich.ZellenAktualiseren
        ZeitenVergleich.Show
    End If

End Sub