Laufzeitfehler: Combo- und TextBoxen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Laufzeitfehler: Combo- und TextBoxen
von: Markus
Geschrieben am: 02.12.2015 20:33:13

Liebes Forum,
Leider erscheint bei meinem VBA-Code bei der TextBox9 immer der Fehler: "Laufzeitfehler - Eigenschaft Value konnte nicht geladen werden" und die TextBoxen werden folglich nicht mit Werten gefüllt. Die Daten hat ungefähr 3000 Zeilen.
Ich habe zwei abhängige ComboBoxen und anhand der Auswahl der ComboBoxen sollen sich die Textboxen (ca. 20) automatisch mit den dazugehörigen Werten füllen.
Der Code ist aus diversen Foren (z.B. j-hennekes) zusammengebastelt:
Option Explicit
Const C_mstrDatenblatt As String = "Tabelle1"
Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long

Private Sub ComboBox1_Enter()
Set mobjDic = CreateObject("Scripting.Dictionary")
For mlngZ = 2 To mlngLast
mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ,1).Value) = 0
Next
Me.ComboBox1.List = mobjDic.keys
Set mobjDic = Nothing
End Sub

Private Sub ComboBox2_Enter()
Set mobjDic =CreateObject("Scripting.Dictionary")
With Worksheets (C_mstrDatenblatt)
For mlngZ = 2 To mlngLast
If.Cells(mlngZ, 1).Value = Me.ComboBox1.Value Then mobjDic(.Cells(mlngZ, 3).Value) = 0
End If
Next
End With
Me.ComboBox2.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Private Sub ComboBox2_Change()
Dim mlngZ As Variant
Set mlngZ = Sheets("Tabelle1").Range("C2: C3000").Find(ComboBox2)
If Nothing Is Nothing Then
TextBox1 = Sheets("Tabelle1").Range("J" & mlngZ.Row)
TextBox2 = Sheets("Tabelle1").Range("N" & mlngZ.Row)
....
TextBox9 = Sheets("Tabelle1").Range("R" & mlngZ.Row)  'hier erscheint der Fehler
...
End If
End Sub
Private Sub UserForm_Initialize()
mlngLast = Worksheets(C_mstrDatenblatt).Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Vielen Dank euch

Bild

Betrifft: AW: Laufzeitfehler: Combo- und TextBoxen
von: Peter Feustel
Geschrieben am: 02.12.2015 21:11:13
Hallo Markus,
aus deinem Code wird das nur schwer zu analysieren sein, insbesondere, weil man weder testen noch die Variablen zu dem Zeitpunkt des Fehlers ansehen kann.
Es fehlt deine Mappe, nur mit der wird das "Problem" zu lösen sein.
Gruß Peter

Bild

Betrifft: AW: Laufzeitfehler: Combo- und TextBoxen
von: Markus
Geschrieben am: 02.12.2015 23:30:39
Hallo Peter,
anbei meine Beispiel-Datei.
https://www.herber.de/bbs/user/101978.xlsm
Irgendwie scheint noch mehr an "meinem" VBA-Code falsch zu sein.
Nochmal kurz mein Anliegen:
Ich wähle ein Land (ComboBox1) aus, davon abhängig das Produkt (ComboBox2) und die ganzen TextBoxen füllen sich dann mit dem restlichen Zeileninhalt (die gleiche Zeile wie Land und Produkt)
Dankeschön

Bild

Betrifft: AW: Laufzeitfehler: Combo- und TextBoxen
von: Luschi
Geschrieben am: 03.12.2015 06:23:25
Hallo Markus,
hier mal mein Versuch: https://www.herber.de/bbs/user/101980.xlsm
Hinweise dazu siehe Vba-Kommentare.
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: Laufzeitfehler: Combo- und TextBoxen
von: Markus
Geschrieben am: 05.12.2015 19:41:00
Hallo Luschi,
vielen Dank - so sollte es funktionieren!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datumsfehler bei Passwortabfrage"