IF-Funktion und With-Anweisung in Initialize-Sub

Hallo und guten Abend.

Ich möchte über eine Zelle auf einem Datenblatt gesteuert die Dropdownliste auf einer UserForm befüllen lassen. Es soll, wenn die Zelle einen bestimmten Wert hat die Dropdownliste mit einer Liste gefüllt werden, und wenn die Zelle einen anderen Wert hat, dann soll ein anderer Listeninhalt zur Verfügung stehen.

Bisher sieht das bei mir so aus:
Private Sub UserForm_Initialize()
'
' Befüllt die DropdownBoxen für die Vereine und die Sportkennzahlen
'
If Worksheet("Teilnehmerliste").Range("F1").Value = Halle Then
With Teilnehmerliste.DropdownSpoKennz
.AddItem "Klasse 10"
.AddItem "Klasse 11"
.AddItem "Klasse 12"
.AddItem "Klasse 13"
.AddItem "Klasse 14"
.AddItem "Klasse 15"
End With
'
Else: Worksheet("Teilnehmerliste").Range("F1").Value = Draussen
With Teilnehmerliste.DropdownSpoKennz
.AddItem "Klasse 20"
.AddItem "Klasse 21"
.AddItem "Klasse 22"
.AddItem "Klasse 23"
.AddItem "Klasse 24"
.AddItem "Klasse 25"
End With
End If
.
.
.
End Sub

Das ist nur der betroffene Auszug. Ich habe die ganze Datei aus hochgeladen. Darin ist aber noch einiges zu tun. Bisher steht erst Mal nur das Layout. Einige Makros fehlen da noch. Hoffe, es hilft trotzdem mein Problem zu erkennen.

Besten Dank schon Mal vorab und einen schönen Abend noch.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das solltest du nicht so programmieren, sondern über eine weitere Tabelle regeln.
erstelle auf einem weiteren Tabellenblatt (bspw "Stammdaten") eine Tabelle.
in der Überschriftenzeile schreibst du die möglichen Inhalte für die Zelle F1 auf dem Blatt "Teilnehmerliste"
also in A1: "Halle", in B1 "Draussen" usw
und schreibe in die Zellen darunter die jeweiligen Klassen.

weise jetzt der Zelle F1 über die Datenüberprüfung-Liste diese diese Zellen als Quelle zu, also Quelle =Stammdaten!A1:B1
damit ist sichergestellt, dass der Anwender hier keinen Unsinn eingibt.

programmiere dann die Befüllung der Combobox so:

dim Zelle as Range

set Zelle = sheets("Stammdaten").Rows(1).Find(what:=Sheets("Teilnehmerliste").Range("F1").Value, lookat:=xlwhole, lookin:=xlvalues

if Not Zelle is Nothing then

     Teilnehmerliste.DropdownSpoKennz.List = Range(Zelle.Offset(1, 0), Zelle.End(xldown)).value

else

    Msgbox "ungültige Eingabe in Teilnehmerliste Zelle F1

end if

welche Auswahlmöglichkeiten es für F1 gibt und welche Klassen dann dahinter stehen, regelst du über die Tabelle Stammdaten, ohne dass an der Programmierung was geändert werden muss.

Gruß Daniel

With Teilnehmerliste.DropdownSpoKennz Select Case Worksheet("Teilnehmerliste").Range("F1").Value Case "Halle" .AddItem "Klasse 10" .AddItem "Klasse 11" .AddItem "Klasse 12" .AddItem "Klasse 13" .AddItem "Klasse 14" .AddItem "Klasse 15" Case "Draussen" .AddItem "Klasse 20" .AddItem "Klasse 21" .AddItem "Klasse 22" .AddItem "Klasse 23" .AddItem "Klasse 24" .AddItem "Klasse 25" Case Else End select end With

dim x dim i as long x = Application.Match(Worksheet("Teilnehmerliste").Range("F1").Value, Array("Halle", "Draussen"), 0) for i = 1 to 5 Teilnehmerliste.DropdownSpoKennz.AddItem "Klasse " & x & i Next

Beliebteste Forumthreads (12 Monate)

IF-Funktion und With-Anweisung in Initialize-Sub

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread