Thema Datum  Von Nutzer Rating
Antwort
05.12.2020 11:31:08 Karl
Solved
05.12.2020 11:44:05 Gast47848
NotSolved
05.12.2020 11:46:35 Karl
NotSolved
05.12.2020 11:50:31 Gast80555
NotSolved
05.12.2020 12:00:23 Karl
NotSolved
05.12.2020 14:56:26 Gast51298
NotSolved
05.12.2020 15:43:04 Karl
NotSolved
05.12.2020 15:53:39 Karl
NotSolved
Rot Laufzeitfehler '-2147417848(80010108)'
 05.12.2020 18:03:14 Karl
NotSolved
05.12.2020 18:32:59 Mase
NotSolved
05.12.2020 19:15:53 Gast51298
NotSolved
05.12.2020 19:23:43 Gast51298
NotSolved
05.12.2020 22:34:43 Karl
NotSolved
05.12.2020 22:35:41 Karl
NotSolved
05.12.2020 22:36:45 Karl
NotSolved
05.12.2020 22:38:02 Karl
NotSolved
05.12.2020 22:38:58 Karl
NotSolved
05.12.2020 12:31:17 Karl
NotSolved
06.12.2020 20:24:07 Gast89629
NotSolved
07.12.2020 15:37:25 Mase
NotSolved

Ansicht des Beitrags:
Von:
Karl		 Datum:
05.12.2020 18:03:14		 Views:
759		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler '-2147417848(80010108)'

Die Änderungen wurden durchgeführt.

Leider besteht das gleiche Problem weiterhin, immer zur selben Zeit nach 7min10sek.

Seit der Änderung bleibt er jetzt immer hier stehen:

?
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
Sub Prüfung_1()
 
With Worksheets("Sheet1")
 
If .Range("BPK2").Value = "x" _
Then
Call Prüfung_1
ElseIf .Range("BPK3").Value = "x" _
Then
Call Prüfung_2
ElseIf .Range("BPK4").Value = "x" _
Then
Call Prüfung_3
ElseIf .Range("BPK5").Value = "x" _
Then
Call Prüfung_4
ElseIf .Range("BPK6").Value = "x" _
Then
Call Prüfung_5
ElseIf .Range("BPK7").Value = "x" _
Then
Call Prüfung_6
ElseIf .Range("BPK8").Value = "x" _
Then
Call Prüfung_7
ElseIf .Range("BPK9").Value = "x" _
Then
Call Prüfung_8
ElseIf .Range("BPK10").Value = "x" _
Then
Call Prüfung_9
ElseIf .Range("BPK11").Value = "x" _
Then
Call Prüfung_10
ElseIf .Range("BPK12").Value = "x" _
Then
Call Prüfung_11
ElseIf .Range("BPK13").Value = "x" _
Then
Call Prüfung_12
ElseIf .Range("BPK14").Value = "x" _
Then
Call Prüfung_13
ElseIf .Range("BPK15").Value = "x" _
Then
Call Prüfung_14
ElseIf .Range("BPK16").Value = "x" _
Then
Call Prüfung_15
ElseIf .Range("BPK17").Value = "x" _
Then
Call Prüfung_16
ElseIf .Range("BPK18").Value = "x" _
Then
Call Prüfung_17
ElseIf .Range("BPK19").Value = "x" _
Then
Call Prüfung_18
ElseIf .Range("BPK20").Value = "x" _
Then
Call Prüfung_19
ElseIf .Range("BPK21").Value = "x" _
Then
Call Prüfung_20
ElseIf .Range("BPK22").Value = "x" _
Then
Call Prüfung_21
ElseIf .Range("BPK23").Value = "x" _
Then
Call Prüfung_22
ElseIf .Range("BPK24").Value = "x" _
Then
Call Prüfung_23
ElseIf .Range("BPK25").Value = "x" _
Then
Call Prüfung_24
ElseIf .Range("BPK26").Value = "x" _
Then
Call Prüfung_25
ElseIf .Range("BPK27").Value = "x" _
Then
Call Prüfung_26
ElseIf .Range("BPK28").Value = "x" _
Then
Call Prüfung_27
ElseIf .Range("BPK29").Value = "x" _
Then
Call Prüfung_28
ElseIf .Range("BPK30").Value = "x" _
Then
Call Prüfung_29
ElseIf .Range("BPK31").Value = "x" _
Then
Call Prüfung_30
ElseIf .Range("BPK32").Value = "x" _
Then
Call Prüfung_31
ElseIf .Range("BPK33").Value = "x" _
Then
Call Prüfung_32
ElseIf .Range("BPK34").Value = "x" _
Then
Call Prüfung_33
ElseIf .Range("BPK35").Value = "x" _
Then
Call Prüfung_34
ElseIf .Range("BPK36").Value = "x" _
Then
Call Prüfung_35
ElseIf .Range("BPK37").Value = "x" _
Then
Call Prüfung_36
ElseIf .Range("BPK38").Value = "x" _
Then
Call Prüfung_37
ElseIf .Range("BPK39").Value = "x" _
Then
Call Prüfung_38
ElseIf .Range("BPK40").Value = "x" _
Then
Call Prüfung_39
ElseIf .Range("BPK41").Value = "x" _
Then
Call Prüfung_40
ElseIf .Range("BPK42").Value = "x" _
Then
Call Prüfung_41
ElseIf .Range("BPK43").Value = "x" _
Then
Call Prüfung_42
ElseIf .Range("BPK44").Value = "x" _
Then
Call Prüfung_43
ElseIf .Range("BPK45").Value = "x" _
Then
Call Prüfung_44
ElseIf .Range("BPK46").Value = "x" _
Then
Call Prüfung_45
ElseIf .Range("BPK47").Value = "x" _
Then
Call Prüfung_46
ElseIf .Range("BPK48").Value = "x" _
Then
Call Prüfung_47
ElseIf .Range("BPK49").Value = "x" _
Then
Call Prüfung_48
ElseIf .Range("BPK50").Value = "x" _
Then
Call Prüfung_49
ElseIf .Range("BPK51").Value = "x" _
Then
Call Prüfung_50
Else:
Call Prüfung_2
End If
 
End With
 
End Sub

Hat jemand eine Idee, was hier zum Abbruch führen könnte?

Liegt vielleicht ein anderes Problem vor, weil er ja immer zur selben Zeit stehen bleibt?

 

 

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
05.12.2020 11:31:08 Karl
Solved
05.12.2020 11:44:05 Gast47848
NotSolved
05.12.2020 11:46:35 Karl
NotSolved
05.12.2020 11:50:31 Gast80555
NotSolved
05.12.2020 12:00:23 Karl
NotSolved
05.12.2020 14:56:26 Gast51298
NotSolved
05.12.2020 15:43:04 Karl
NotSolved
05.12.2020 15:53:39 Karl
NotSolved
Rot Laufzeitfehler '-2147417848(80010108)'
 05.12.2020 18:03:14 Karl
NotSolved
05.12.2020 18:32:59 Mase
NotSolved
05.12.2020 19:15:53 Gast51298
NotSolved
05.12.2020 19:23:43 Gast51298
NotSolved
05.12.2020 22:34:43 Karl
NotSolved
05.12.2020 22:35:41 Karl
NotSolved
05.12.2020 22:36:45 Karl
NotSolved
05.12.2020 22:38:02 Karl
NotSolved
05.12.2020 22:38:58 Karl
NotSolved
05.12.2020 12:31:17 Karl
NotSolved
06.12.2020 20:24:07 Gast89629
NotSolved
07.12.2020 15:37:25 Mase
NotSolved