|
Geschätzte VBA-Community
Für meinen Betrieb habe ich einen Fragebogen mittels ActiveX-Steuerelementen entwickeln.
Der Ablauf schaut wie folgt aus:
1. Fragebogen Ausfüllen (hauptsächlich Drop-Down Menüs / ComboBoxen)
2. Speichern --> Die ausgefüllten Werte werden in ein neues Tabellenblatt übertragen
3. Anhand der übertragenen Daten wird ein Netzdiagramm erstellt
Jetzt stehe ich vor folgender Herausforderung:
In den Drop-Down Menüs stehen jeweils 4 Möglichkeiten zur Auswahl (z.B. hoch, eher hoch, eher klein, klein)
Der gewählte Wert wird dann beim Speichern 1 zu eins in das Data-Sheet übernommen.
Ich möchte nun aber, dass anstelle dem effektiven Wert, eine Zahl in das Data-Sheet übertragen wird.
hoch = 4
eher hoch = 3
eher klein = 2
klein = 1
Aktuell sieht der Code so aus:
.Range("V" & iRow).Value = ComboBox19.Value
Ich habe diverse Sache ausprobiert, komme aber nicht weiter. Daher bedanke ich mich schon mal für eure geschätzte Hilfe.
Liebe Grüsse
|