Bei Auswahl in ComboBox Daten in Zellen eintragen.
10.11.2006 12:01:51
Josef
mit folgendem Makro werden Daten in eine UserForm ComboBox eingelesen:
.............
If UserForm1.Caption = "Heilbehelfe und Hilfsmittel" Then
Dim My_Array As Variant '9
My_Array = Workbooks("Geldleistungsformeln.xls").Worksheets("Daten").Range("$A$2:$A$19")
ComboBox1.List = My_Array
....................
Mit folgendem Makro wird in die active Zelle der Wert eingetragen:
Private Sub ComboBox1_Change()
ActiveCell = ComboBox1.Value
Unload UserForm1
End Sub
Nun möchte ich aber in die Zelle rechts der aktiven zelle einen anderen Wert eintragen lassen.
Z.B.: Aktive Zelle (F2) = Heilbehelfe und Hilfsmittel
dann G2 Eintrag ist "Bauchmieder"
H2 ist "Stückanzahl z.B. 1)
I2 ist = Betrag usw.
Wie müßte ich bitte den code in ComboBox1_Chance ändern, damit das funktioniert?
Danke
Josef
Anzeige