Laufzeitfehler: Combo- und TextBoxen
02.12.2015 20:33:13
Markus
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