Auswahl von Wert aus Combo Boxen
09.09.2005 19:06:23
Wert
ich habe eine User Form generiert, mit 16 Combo Boxen. Darin befinden sich eine Auswahl an Daten. Ich habe es hinbekommen, dass wenn ich auf eine bestimmten Zellbereich in Excel klicke die UserForm erscheint und ich nun theoretisch eine Auswahl vornehmen kann, welche dann in die angeklickte Zelle eingetragen wird. Leider kann ich nur für die erste Combo Box die Auswahl eintragen lassen (wird über OK Button/Command Button eingetragen). Ich möchte gern,dass man nur eins Auswählen kann aus (und nicht aus mehreren ComboBoxen die Auswahl in die Zelle geschreiben wird)den ComboBoxen. Ich habe leider wirklich nicht viel Ahnung von VBA und weiß nicht wie die Abfrage dort lauten soll. Hier ein Codeschnipsel, welches ich von einer bereits bestehenden UserForm mit nur einem Auswahlfeld übernommen habe. Was muss ich tun, damit ich auch aus den anderen Boxen die Werte auswählen kann und in die Zelle eintragen lassen kann (Mehrfachauswahl sollte ausgeschlossen sein)?
Option Explicit
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
With ActiveCell
.NumberFormat = "00"
.HorizontalAlignment = xlLeft
.Value = Format(ComboBox1.Value, "00")
End With
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Vielen Dank schon mal im Voraus.
Beste Grüße
Stefanie