Combobox

Forumthread: Combobox

Combobox

01.11.2017 10:26:40

WalterK

Schönen Feiertag,
bei dem folgenden Anliegen komme ich einfach nicht zurecht. Auch das Recherchieren habe ich jetzt aufgegeben.
Es geht um eine UserForm mit Comboboxen.
Zum besseren Verständnis habe ich alles im Excel-File erklärt.
https://www.herber.de/bbs/user/117342.xlsm
Vielleicht kann mir ja jemand behilflich sein.
Danke und Servus, Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox

01.11.2017 11:10:48

Matthias

Hallo
Bin noch nicht fertig, aber mal als ersten Ansatz:

Option Explicit
Private Sub ComboBox1_Change()
Dim i&
If ComboBox1.ListIndex > -1 Then
ComboBox2.List = ComboBox1.List
ComboBox3.List = ComboBox1.List
ComboBox4.List = ComboBox1.List
i = ComboBox1.ListIndex
ComboBox2.RemoveItem (i)
ComboBox3.RemoveItem (i)
ComboBox4.RemoveItem (i)
ComboBox2.Enabled = True
Else
ComboBox2.ListIndex = -1
ComboBox3.ListIndex = -1
ComboBox4.ListIndex = -1
End If
End Sub
Private Sub ComboBox2_Change()
Dim i&
If ComboBox2.ListIndex > -1 Then
ComboBox3.List = ComboBox2.List
ComboBox4.List = ComboBox2.List
i = ComboBox2.ListIndex
ComboBox3.RemoveItem (i)
ComboBox4.RemoveItem (i)
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = True
End If
End Sub
Private Sub ComboBox3_Change()
Dim i&
If ComboBox3.ListIndex > -1 Then
ComboBox4.List = ComboBox3.List
i = ComboBox3.ListIndex
ComboBox4.RemoveItem (i)
ComboBox3.Enabled = False
ComboBox4.Enabled = True
End If
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then
MsgBox "Speichern ohne einen Leiter nicht möglich", vbCritical
Exit Sub
Else
MsgBox "hier speichern, statt der Box", vbInformation
End If
End Sub
Private Sub CommandButton2_Click()
ComboBox1.ListIndex = -1
ComboBox1.Enabled = True
ComboBox2.ListIndex = -1
ComboBox2.Enabled = False
ComboBox3.ListIndex = -1
ComboBox3.Enabled = False
ComboBox4.ListIndex = -1
ComboBox4.Enabled = False
End Sub

https://www.herber.de/bbs/user/117345.xlsm
Hab jetzt wenig Zeit da weiterzubasteln. Aber evtl. hifts als Einstieg
Ich schaue heute abend wieder rein.
Gruß Matthias

AW: Combobox

01.11.2017 12:25:31

WalterK

Hallo Matthias,
wow, das sieht ja schon sehr gut aus. TipTop!
Ich bin schon gespannt auf das Endergebnis.
Dafür warte ich gerne und es eilt auch nicht.
Besten Dank und Servus, Walter

Fortsetzung ... in (H:K) eintragen

02.11.2017 09:32:29

Matthias

Hallo
Hier werden jetzt die Namen in (H:K) eingetragen.
https://www.herber.de/bbs/user/117372.xlsm
Das Löschen aus Spalte(C) kommt später.
Muss gleich weg.
Gruß Matthias

AW: Fortsetzung ... in (H:K) eintragen

03.11.2017 08:13:32

WalterK

Hallo Matthias,
funktioniert bisher genau so aus wie ich es mir vorgestellt habe.
Vorerst Danke und bis später, Servus Walter

AW: Fortsetzung ... löschen in Spalte(C)

03.11.2017 11:53:59

Matthias

Hallo
Wenn was nicht klappt, einfach nachfragen.
Ich schaue aber erst heute abend wieder rein.
https://www.herber.de/bbs/user/117415.xlsm
Gruß Matthias

Matthias, ich bin ...

03.11.2017 17:57:26

WalterK

Hallo Matthias,
... begeistert. Einfach toll.
Etwas ist mir noch auf- bzw eingefallen.
Wie kann man die Namen in C:C aktuell halten.
Soll heißen: ausgehend von A:A (diese Liste wird laufend ergänzt) sollten in C:C alle Namen sein, die nicht bereits in der TEAM-Aufstellung ausgesucht wurden. Das heißt aber auch, wenn in der TEAM-Aufstellung Namen oder ganze Teams gelöscht werden sollten die Namen wieder in C:C zur Verfügung stehen.
Vielleicht gibt es dazu auch eine ideale Lösung.
Danke und Servus, Walter

Hier (m)eine Idee mit (m)einer Lösung ;-)

04.11.2017 17:28:01

Matthias

Hallo
Etwas umstrukturiert...
https://www.herber.de/bbs/user/117428.xlsm
Viel Erfolg ...
Gruß Matthias

AW: Hier (m)eine Idee mit (m)einer Lösung ;-)

04.11.2017 17:39:48

WalterK

Hallo Matthias,
besten Dank für Deine Bemühungen.
So gefällt es mir, da hattest Du eine sehr gute Idee.
Schönen Abend noch, Servus, Walter

Beliebteste Forumthreads (12 Monate)

Forumthread: Combobox

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread