Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem: Textboxen von Comboboxen abhängig

Problem: Textboxen von Comboboxen abhängig
23.10.2007 12:51:53
Comboboxen
Hallo!
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem: Textboxen von Comboboxen abhängig
23.10.2007 16:36:00
Comboboxen
Hallo Mandy,
Schuld daran ist folgende Befehlszeile beim Initialisieren des Formulars:
aRow = IIf(IsEmpty(ThisWorkbook.Sheets("Bauteile_Her").Range("V65536")), ThisWorkbook.Sheets("Bauteile_Her").Range("V65536").End(xlUp).Row, 65536)
In der Spalte 'V' der Tabelle 'Bauteile_Her' stehen nun mal nur 6 Werte!
Zudem ist die For-Schleife bei wenigen Suchwerten noch sinnvoll, aber sollten es mehrere Dutzend oder mehr werden, dann ist der hierfür der Find-Befehl geeigneter; da wesentlich schneller.
Gruß von Luschi
aus klein-Paris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige