Problem: Textboxen von Comboboxen abhängig
23.10.2007 12:51:53
Comboboxen
Ich melde mich erneut mit einem Problem.
Ich habe eine Userform angelegt. Auf dieser befinden sich eine Vielzahl von ComboBoxen und Textfeldern. Die alle von einander abhängig sind.
Mein eigentliches Problem ist nun folgendes:
In einer dieser Comboboxen habe ich einen Bereich (AD2:AD11) auf dem Tabellenblatt "Bauteile_Her" hinterlegt, der bei Wahl der Combobox erscheinen soll.
If Com_Typs.Value = "VDW 180/4" Or Com_Typs.Value = "VDW 180/2" Or Com_Typs.Value = "VDRW 180/2 A" Or Com_Typs.Value = "VDRW 180/2 C" Then
Zub_1.RowSource = "Bauteile_Her!ad2:as11"
End if
Zu dieser ComboBox gehört ein Textfeld in welches der dazugehörige Wert der Combobox erscheinen soll. Dieser befindet sich in der Spalte AF.
Dies habe ich wie folgt realisiert:
Private Sub UserForm_Initialize()
aRow = IIf(IsEmpty(ThisWorkbook.Sheets("Bauteile_Her").Range("V65536")), ThisWorkbook.Sheets(" _
Bauteile_Her").Range("V65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
col.Add ThisWorkbook.Sheets("Bauteile_Her").Cells(iRow, 22), ThisWorkbook.Sheets(" _
Bauteile_Her").Cells(iRow, 22)
Next iRow
On Error GoTo 0
End Sub
Private Sub ComboBox1_Change()
On Error Resume Next
For iRow = 2 To aRow
' Anzeige des Inhaltes
If Err = 0 And ThisWorkbook.Sheets("Bauteile_Her").Cells(iRow, 30) = Zub_1.Value Then
Zub_P1 = ThisWorkbook.Sheets("Bauteile_Her").Cells(iRow, 32)
Zub_M1 = ThisWorkbook.Sheets("Bauteile_Her").Cells(iRow, 31)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
For x = col.Count To 1 Step -1
col.Remove (x)
Next x
End Sub
Wenn ich nun einen Wert aus der Combobox auswähle erscheint auch der dazugehörige Wert im Textfeld. Dies funktioniert jedoch nur bei den ersten 6 Elementen der Comboxbox. Bei der Auswahl eines anderen Wertes unterhalb des 6. bleibt das Textfeld leer.
Wieso ist das so, und wie kann ich den Fehler beheben.
Zur Veranschaulichung habe ich die Datei angefügt.
https://www.herber.de/bbs/user/47012.xls
Zur Datei: Die Userform öffnet sich nach Auswahl von "Radial-Dachvent. RGA" in der Zelle E11 des Arbeitsblattes Kalkulation_x. Danach muss auf der Userform (links) "Baureihe wählen" ein beliebiger Wert gewählt werden und ebenso bei "Typ speziell wählen". Erst danach öffnet sich auf der rechten Seite die ComboBox.
Vielen Dank
Gruß Mandy
Anzeige