Combobox mit erweiterbarer Quelle
05.05.2021 01:34:52
Claude
Ich erstelle derzeit eine Eingabemaske mit Userform. Der "Auftraggeber"(Ist ein Schulprojekt) möchte ein später noch konfigurierbares Auswahlliste haben (habe ich als Combobox gelöst). Ich habe ein Datenblatt in Excel als Datenquelle (Das Formular ist für dieselbe Exceldatei). Meine Idee wäre gewesen, dass ich den RowSource bereich etwas grösser definiere als notwendig und so nachträglich zusätzliche Auswahlmöglichkeiten definiert werden können. Da ich jedoch zum Schreiben der Informationen vom Eingabeformular in das Datenblatt den exakten Text als Identifikation verwende, muss ich dort dieselbe Datenquelle verwenden.
Private Sub buttonSpeichern_Click()
last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle1.Cells(last, 1).Value = masterFormular.Status.Caption
'KSAktuell1
If masterFormular.ComboBoxKSAktuell1.Text = "KST 4300" Then
Tabelle1.Cells(last, 26).Value = masterFormular.TextBoxBetragAktuell1.Value
ElseIf masterFormular.ComboBoxKSAktuell1.Text = "KST 4301" Then
Tabelle1.Cells(last, 27).Value = masterFormular.TextBoxBetragAktuell1.Value
'Datenquelle
masterFormular.ComboBoxKSAktuell1.RowSource = "M11:M13" (die Werte in diesem Tabellenabschnitt sind KST 4300 und KST 4301 plus eine leere Zeile für die Erweiterung)
Wie kann ich den "Bereich" KST4300 gestalten, das er nicht an einen fixen Wert gebunden ist?
Besten Dank für eure Hilfe
Claude
Anzeige