Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige