VBA Laufzeitfehler '91': Objektvariable oder W...
04.09.2018 21:06:28
Mat
Ich habe ein Formular angelegt, um neue Datensätze anzulegen. Darin habe ich einige Kombifelder und Textfelder.
Meine Idee ist es, dass ich in einem Kombifeld aus den vorhandenen Datensätzen, einen auswähle und die restlichen Felder auf Basis des gewählten Datensatzes automatisch gefüllt werden. Leider bekomme ich immer folgenden Fehler
Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt
und weiß überhaupt nicht, woher er kommt. Ich hatte den Fehler vorher schonmal, habe anschließend den Code geändert und er war weg. Nun habe ich das Formular an einem anderen Rechner gestartet und der Fehler war wieder da.
Folgend der Code der betreffenden Private Sub.
Wenn der Fehler erscheint, ist die Zeile
ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
gelb hinterlegt.
Private Sub cmb_Tests_Change()
'Bildschirmaktualisierung aus
Application.ScreenUpdating = False
Call Name_Ws
slctTest = cmb_Tests.Value
wsData.Activate
'Finden des Eintrags aus dem Kombifeld im Blatt Rohdaten /
'Schreiben der Zeilennummer in Variable
ActiveSheet.Range("E3:E1000").Find(What:=slctTest).Select
Zeile = ActiveCell.Row()
'Formularfelder füllen
cmb_Prio.Value = Cells(Zeile, 6).Value
txt_Testzeit.Value = Cells(Zeile, 10).Value
txt_Beschreibung1.Value = Cells(Zeile, 38).Value
txt_Beschreibung2.Value = Cells(Zeile, 39).Value
Range("A1").Select
wsCp.Activate
'Bildschirmaktualisierung an
Application.ScreenUpdating = True
End Sub
Gruß
Mat