Office: Fehlermeldung "Laufzeitfehler '424'

Manuel1985 · 17. Oktober 2007

Ich habe folgenden Code:

Code:

Private Sub cmbGeschäftart_Change()
Select Case cmbGeschäftsart.Value
Case "(2A) Import_Cash"
cmbVersandart.Value = "Versand"
Case Else
cmbVersandart.Value = ""
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sobald ich in cmbGeschäftsart allerdings einen Wert auswähle kommt der im Titel beschriebene Fehlercode.
Wo liegt der Fehler?

MfG Manuel

:)

IngGi · 19. Oktober 2007

Hallo Manuel,

du musst auf jeden Fall die Events abschalten, sonst ruft sich das Makro immer wieder selbst auf. Ob das den konkreten Fehler auslöst, weiß ich allerdings nicht.

Code:

Private Sub cmbGeschäftart_Change()

Application.EnableEvents = False
On Error GoTo ErrHdl

Select Case cmbGeschäftsart.Value
Case "(2A) Import_Cash"
cmbVersandart.Value = "Versand"
Case Else
cmbVersandart.Value = ""
End Select

ErrHdl:
Application.EnableEvents = True

End Sub

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sebastian Schulz · 19. Oktober 2007

Hallo Ingolf,

ich bin doch so ein Schussel. *entsetzt Jetzt hatte ich bemerkt, dass du 990 Beiträge hattest und habe gesagt, dass ich drauf achte, wenn du 1000 hast. Aber wie es doch so ist habe ich den Zeitpunkt verpasst. (Muss aber zu meiner Verteidigung sagen. Auf die 1000 ging es dann aber rasent schnell) Jetzt trotzdem noch Glückwunsch zum 1000 Beitrag. Mach weiter so.*10points *hands

Manuel1985 · 19. Oktober 2007

Danke, das hatte die Fehhlermeldung behoben, allerdings hat es noch nicht funktioniert.
Habe aber festgestellt, dass ich bei Select Case Geschäftsart statt Geschäftart stehen hatte. Jetzt funktioniert es!

Danke für deine Hilfe!

MfG Manuel

Locke_1992 · 2. August 2012

Hallo ihr *Smilie

Ich bin leider ein ziemlicher Anfänger, was VBA angeht, darum ist der nachfolgende Code sehr umständlich. Stört euch bitte nciht daran, der umständliche Teil funktioniert nämlich.

Die Fehlermeldung "Objekt erforderlich" erscheint recht weit unten, ich hab euch die Stelle durch ein Kommentar markiert.

Danke schonmal!

Code:

Dim Leistung_Spalte, Drehzahl_Zeile As Long
Dim Datei_HXR As Variant
Dim Datei_AMI As Variant
Dim Motor_AMI As String
Dim Motor_HXR As String

Sub Form1_L()
Leistung = InputBox("Bitte gewünschte Leistung eingeben!")
Drehzahl = InputBox("Bitte gewünschte Drehzahl eingeben!")

Workbooks.Open ("C:\Documents and Settings\DEU213530\Desktop\Excel-Tabelle HXR 690 V.xls")
Workbooks.Open ("C:\Documents and Settings\DEU213530\Desktop\Excel-Tabelle AMI 690 V.xls")

If Leistung = 700 Then
Leistung_Spalte = 2
End If
If Leistung = 750 Then
Leistung_Spalte = 6
End If
If Leistung = 800 Then
Leistung_Spalte = 10
End If
If Drehzahl = 1000 Then
Drehzahl_Zeile = 10
End If
If Drehzahl = 1100 Then
Drehzahl_Zeile = 11
End If
If Drehzahl = 1200 Then
Drehzahl_Zeile = 12
End If

Datei_HXR = ("Excel-Tabelle HXR 690 V.xls")
Datei_AMI = ("Excel-Tabelle AMI 690 V.xls")

'ab hier taucht Fehler auf
Motor_HXR = Datei_HXR.Cells(Leistung_Spalte, Drehzahl_Zeile).Value
Motor_AMI = Datei_AMI.Cells(Leistung_Spalte, Drehzahl_Zeile).Value

MsgBox ("Die passenden Motoren für " & Leistung & " kW und " & Drehzahl & " rpm sind HXR" & Motor_HXR & " und AMI " & Motor_AMI)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Fehlermeldung "Laufzeitfehler '424'

Fehlermeldung "Laufzeitfehler '424'

Fehlermeldung "Laufzeitfehler '424'

Fehlermeldung "Laufzeitfehler '424'

Fehlermeldung "Laufzeitfehler '424' - Similar Threads - Fehlermeldung Laufzeitfehler '424'

Bedingte Formatierung funktioniert nicht

Outlook Fehlermeldung 0x800CCC78, Nachricht kann nicht gesendet werden ...

Fehlermeldung XML Erweiterungspacket

Fehlermeldung "Laufzeitfehler 1004!" Methode "Range" fehlgeschlagen

Fehlermeldung Laufzeitfehler '13' Typen unverträglich

Access Fehlermeldung: Laufzeitfehler 2455

Makro Fehlermeldung "Laufzeitfehler 429"