Kombinationsfeld

Forumthread: Kombinationsfeld

Kombinationsfeld

09.12.2004 15:10:15

Werner

Hallo VBA Profis, wie kann ich ein Kombinationsfeld einsetzen.
Ich habe cirka 50 Tabellenblätter, wobei jedes Blatt für einen Verein ist, jedes dieser Blätter hat ca. 20 bis 50 Spieler (also Spieler Namen). Ich möchte wenn bei Tabelle 1 die zbs den Namen Köln hat und 20 Spieler Namen hat, das diese wenn im Kombinationsfeld Köln steht, in einem anderen Kombinationsfeld die dazugehörigen Namen des Verein aus Köln stehen, wenn Osnabrück steht, dann die Spielernamen von Osnabrück usw. Kann mir da einer helfen ?
Gruß Werner

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kombinationsfeld

UweD
AW: Kombinationsfeld

09.12.2004 18:12:33

Werner
AW: Kombinationsfeld

09.12.2004 19:29:02

Werner
AW: Kombinationsfeld

UweD
AW: Danke Uwe, Klappt Super!!!

Werner

AW: Kombinationsfeld

UweD

Hallo
Beim ancllicken von CB1 werden alle Blattnamen von Blatt2 bis x eingelesen
beim Verlassen werden die Spieler von Verein aus CB1 einglesen


Private Sub ComboBox1_GotFocus()
Dim cb1 As Object
Set cb1 = ComboBox1
cb1.Clear 'Löschen
For i = 2 To Sheets.Count
cb1.AddItem Sheets(i).Name
Next
cb1.ListIndex = 0 'Eintrag 1 aktiv
End Sub


Private Sub ComboBox1_LostFocus()
Dim cb2 As Object, sh
Set sh = Sheets(ComboBox1.Value)
Set cb2 = ComboBox2
cb2.Clear 'Löschen
For i = 1 To sh.Cells(Rows.Count, 1).End(xlUp).Row     'letzte Zeile der Spalte
cb2.AddItem Sheets(ComboBox1.Value).Cells(i, 1).Value
Next
cb2.ListIndex = 0 'Eintrag 1 aktiv
End Sub

hier eine Mustermappe:
https://www.herber.de/bbs/user/14579.xls
Gruß aus Siegen

AW: Kombinationsfeld

09.12.2004 18:12:33

Werner

Hallo, das ging ja schnell, besten dank damit komme ich zurecht.
Gruss Werner

AW: Kombinationsfeld

09.12.2004 19:29:02

Werner

Hallo, klappt an sich ganz gut, aber da ich circa 120 Tabellenblätter habe, die nicht alle aufgeführt werden sollen,sondern erst ab Tabelle 20 für den Verein und für die Namen ab Spalte D12. Kannst Du mir da noch weiter helfen.
Gruss Werner

AW: Kombinationsfeld

UweD

Hallo
hab ich abgeändert und besser kommentiert.

Private Sub ComboBox1_GotFocus()
    Dim cb1 As Object, I%
    On Error Resume Next
    Set cb1 = ComboBox1
    cb1.Clear 'Löschen
    For I = 20 To Sheets.Count '!!!!!ab Blatt 20 !!!!!!!
        cb1.AddItem Sheets(I).Name
    Next
    cb1.ListIndex = 0 'Eintrag 1 aktiv
End Sub
Private Sub ComboBox1_LostFocus()
    Dim cb2 As Object, SH, EZ%, SP%, I%
    On Error Resume Next
    Set SH = Sheets(ComboBox1.Value)
    Set cb2 = ComboBox2
    SP = 4 ' Listspalte= D!!!!!!!!!!!
    EZ = 12 ' Listbereichab Zeile12!!!!!!!
    cb2.Clear 'Löschen
    For I = EZ To SH.Cells(Rows.Count, SP).End(xlUp).Row     'letzte Zeile der Spalte
        cb2.AddItem Sheets(ComboBox1.Value).Cells(I, SP).Value
    Next
    cb2.ListIndex = 0 'Eintrag 1 aktiv
End Sub

Gruß UweD

AW: Danke Uwe, Klappt Super!!!

Werner

Hallo Uwe, danke für deine Arbeit, jetzt klappt es so wie ich mir das Vorgestellt habe.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Kombinationsfeld

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread