Wenn Dann Bedingung in Combobox

Hallo zusammen,
für ein Modul an der Uni muss ich gemeinsam mit einer Gruppe ein VBA Programm schreiben. Die Aufgabe besteht darin einen Spieler für das Brettspiel "Auf Achse" zu programmieren. Bei dem Spiel geht es darum, dass Transportaufträge bearbeitet werden müssen. Diese Aufträge wollen wir mittels eines Drop Down Menüs auswählen. Die entsprechende User Form mit Combobox habe ich dafür schon erstellt. Folgender Code ist demnach schon fertiggestellt:
'Auswahl der gezogenen Handuaftraege ueber ein Drop Down Menue. Sobald ein Auftrag ausgewaehlt wurde, soll dieser in der zweiten bzw. dritten Auswahl nicht mehr verfuegbar sein.


Private Sub UserForm_Initialize()
UserForm1_Handauftraege.Auftrag_1.RowSource = "Transportauftraege!A2:A55"
UserForm1_Handauftraege.Auftrag_2.RowSource = "Transportauftraege!A2:A55"
UserForm1_Handauftraege.Auftrag_3.RowSource = "Transportauftraege!A2:A55"
End Sub

'Uebertragung der Handauftraege in die vorgesehenen Zellen im Arbeitsblatt "Spielfeld" sowie Schliessen der UserForm beim Klicken des Buttons "Uebernehmen"


Private Sub CommandButton1_Click()
Worksheets("Spielfeld").Cells(18, 2).Value = UserForm1_Handauftraege.Auftrag_1.Value
Worksheets("Spielfeld").Cells(19, 2).Value = UserForm1_Handauftraege.Auftrag_2.Value
Worksheets("Spielfeld").Cells(20, 2).Value = UserForm1_Handauftraege.Auftrag_3.Value
Unload UserForm1_Handauftraege
End Sub

Die erforderlichen Informationen der Transportaufträge werden aus einem anderen Arbeitsblatt (Transportauftraege) gezogen. Da nacheinander drei Aufträge ausgewählt werden müssen, möchte ich gerne die Funktion einbauen, dass sobald ein erster Auftrag ausgewählt wurde, dieser im zweiten Drop Down bzw. Combobox nicht mehr auszuwählen ist. Geht das mit einer Wenn Dann Bedingung? Ich habe bisher leider keine Lösung gefunden und bin für jede Hilfe sehr dankbar!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Auftrag_1 .List = Sheets("Transportauftraege").Range("A2:A55").value for i = .ListCount - 1 to 0 step -1 if .List(i) = Auftrag_2.value or .list(i) = Auftrag_3.value then .RemoveItem i next End with

Private Sub CommandButton1_Click() Dim arListe(1 To 3) As Variant Dim iZaehler As Integer Dim i As Integer With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then iZaehler = iZaehler + 1 If iZaehler > 3 Then Exit For arListe(iZaehler) = .List(i) End If Next i End With If iZaehler 3 Then MsgBox "Es müssen 3 Einträge ausgewählt werden.", vbCritical Else Worksheets("Transportauftraege").Range("B18:B20") = Application.Transpose(arListe) Unload Me End If End Sub

Private Sub UserForm_Initialize() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If WorksheetFunction.CountIf(Worksheets("Transportauftraege").Range("B18:B20"), ListBox1.List(i)) Then _ ListBox1.Selected(i) = True Next i End Sub

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

126 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Dann Bedingung in Combobox

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

126 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread