Lauzeitfehler 424
10.04.2019 20:52:04
Malle
ich bin immernoch Anfänger, was VBA angeht, versuche aber immer wieder aus bestehenden Subs neue Abzuleiten.
Heute habe ich folgendes erstellt, leider taucht beim Ausführen immer der Fehler 424 auf. Habt ihr eine Idee, woran es liegen könnte?
Vielen Dank für die Hilfe im Voraus.
Hier das Sub:
Sub PruefungLSHKZ()
' Prüfung ob LS zu HKZ passt
For j = 1 To 50000
tmp = False
While tmp = False
Handling = Trim(Cells(j, 8).Value)
Lagerstaffel = Trim(Cells(j, 9).Value)
HinweisLSHKZ = Trim(Cells(j, 12).Value)
'Prüfung LS Lutterberg
If Handling = "Handling1" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "Handling2" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "Handling4" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingS" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingP" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingX" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingE" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "Lutterberg" Then
HinweisLSHKZ.Value = "PRÜFEN"
'Prüfung LS Lutterberg Akku
ElseIf Handling = "Handling1" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling2" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling4" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingS" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingP" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingX" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingE" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "Lutterberg_Akku_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
'Prüfung LS Standard_CZ
ElseIf Handling = "Handling1" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling2" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling4" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingS" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingP" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingX" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingE" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "Standard_CZ" Then
HinweisLSHKZ.Value = "PRÜFEN"
'Prüfung LS VaF_DE
ElseIf Handling = "Handling1" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling2" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling4" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingS" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingP" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "OK"
ElseIf Handling = "HandlingX" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingE" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "VaF_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
'Prüfung LS Online_DE
ElseIf Handling = "Handling1" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling2" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling4" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingS" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingP" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingX" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingE" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "Online_DE" Then
HinweisLSHKZ.Value = "PRÜFEN"
'Prüfung LS Online_DE(B)
ElseIf Handling = "Handling1" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling2" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "Handling4" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingS" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingP" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingX" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingE" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
ElseIf Handling = "HandlingD" And Lagerstaffel = "Online_DE(B)" Then
HinweisLSHKZ.Value = "PRÜFEN"
Else
tmp = True
End If
Wend
Next j
MsgBox "Prüfung HKZ-LS erfolgreich"
End Sub