Mehrere Dropdownfelder

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Josef,
aus dieser Formel entsteht der Verweis auf den einzulesenden Bereich = Spalte, die zum Namen gehört. Der ListIndex gibt den Index des ausgewählten Inhaltes der Combobox aus. Erste Zeile = 0; zweite Zeile = 1 usw. Der Befehl Chr() wandelt eine Zahl in einen Buchstaben. Nun muß also aus der Ziffer des ListIndex der richtige Code für die gesuchte Spalte errechnet werden.
Wenn du beispielsweise den ersten Namen gewählt hast, befinden sich die zugehörigen Inhalte in Spalte B.
Der ListIndex des ersten Namens ist 0. 0+66 = 66. 66 ist der Code für den Buchstaben B. &1 schreibt hinter den Buchstaben B eine 1, Damit haben wir den Teilstring B1.
Insgesamt ergibt sich unter diesen Prämissen der String rg = "Tabelle2!B1:B10" dieser "bedient" die Anweisung ListFillRange.
Daraus folgt, es geht auch noch kürzer:
Private Sub ComboBox1_Change() ComboBox2.ListFillRange = "Tabelle2!" & Chr(Me.ComboBox1.ListIndex + 66) & "1:" & Chr(Me.ComboBox1.ListIndex + 66) & "10" End Sub
Der Umweg über die Variable rg ist entbehrlich.
Gruß Klaus-Dieter

Kode aus Buchstabe

Buchstabe aus Kode

Private Sub ComboBox1_Change() ComboBox2.ListFillRange = "ABSCHNITTE!" & Chr(Me.ComboBox1.ListIndex + 68) & "1:" & Chr(Me.ComboBox1.ListIndex + 68) & "1" End Sub Wenn ich jetzt in der Combobox1 1 aktiviere, dann erhalte ich den Wert von B1. Alles Ok Wenn ich jetzt jedoch in der ComboBox1 2 aktiviere, dann wird nicht der Wert von B2 in der ComboBox2 eingelesen, sondern lt. den Eigenschaften unter ListFillRange der Wert von E1.Irgendwas muß ich hier falsch machen. 2. Wenn ich z.B. 2 aktiviere, so bleibt vorerst in der ComboBox2 der Wert von 1 stehen, bis ich den richtigen Wert reinhole.Gibt es hier bitte eine Möglichkeit, das beim Einlesen der Daten in die Box die sichtbare Zelle gelöscht wird? Danke Josef

Hallo Josef,
aus meiner Sicht ist die ComboBox1 entbehrlich. Hier mal mein Vorschlag für den Quelltext:
Option Explicit


Private Sub ComboBox2_Change()
ComboBox3.ListFillRange = "Kapitel!" & Chr(Me.ComboBox2.ListIndex + 67) _
& "1:" & Chr(Me.ComboBox2.ListIndex + 67) & Worksheets("Kapitel"). _
Range(Chr(Me.ComboBox2.ListIndex + 67) & 65536).End(xlUp).Row
End Sub


Private Sub Worksheet_Activate()
' beim Öffnen des Tabellenblattes Combobox2 füllen
ComboBox2.ListFillRange = "Abschnitte!" & Chr(Me.ComboBox1.ListIndex + 68) & "1:" & Chr(Me.ComboBox1.ListIndex + 68) & "11"
End Sub

Das Tabellenblatt Kapitel müßte etwa so aufgebaut werden:

Tabelle1

	C	D	E
1	Ordinationen	Röntgenbehandlung	Anstaltspflege stationär
2	Visiten	Röntgentherapie	Anstaltspflege Operationen
3	Injektionen	Röntgenbestrahlung	Anstaltspflege Nebenkosten

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Gruß Klaus-Dieter

Private Sub ComboBox2_Change() Me.ComboBox3.Clear Dim s As Integer For s = 1 To Worksheets("Kapitel").Range("C65536").End(xlUp).Row If Worksheets("Kapitel").Cells(s, 2) = Me.ComboBox2.ListIndex + 1 Then With ComboBox3 .AddItem Worksheets("Kapitel").Cells(s, 3) End With End If Next s End Sub

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Dropdownfelder

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread