Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Konfigurieren einer Form
 24.09.2021 12:21:13 Piecha
Solved
24.09.2021 12:31:41 Gast97987
Solved
24.09.2021 12:57:21 Piecha
Solved
24.09.2021 12:56:47 AlterDresdner
Solved
24.09.2021 12:58:44 Gast26150
Solved

Ansicht des Beitrags:
Von:
Piecha		 Datum:
24.09.2021 12:21:13		 Views:
382		 Rating:
     
Antwort:
 Nein
Thema:
Fehler beim Konfigurieren einer Form

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Konfigurieren einer Form
 24.09.2021 12:21:13 Piecha
Solved
24.09.2021 12:31:41 Gast97987
Solved
24.09.2021 12:57:21 Piecha
Solved
24.09.2021 12:56:47 AlterDresdner
Solved
24.09.2021 12:58:44 Gast26150
Solved