ListBox Eintrag in Aktuelle Ziele speichern
22.03.2016 12:47:03
Bekks
hier meine nächste Frage (werdet mich wohl noch ein paar weitere Fragen am Hut haben). Durch das Internet bin ich leider nicht schlau geworden, ihr wisst aber wahrscheinlich sofort was zu tun ist :D
Unter
Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "Irrelevant"
.AddItem "1 Woche"
.AddItem "2 Woche"
.AddItem "1+2 Woche"
.Value = "Klären"
End With
habe ich wie dargestellt, Werte für meine ListBox1 auf der UserForm erstellt.
Der ListBox1 habe ich folgenden Code hinterlegt. Ich denke dieser ist Fehlerhaft.
Private Sub ListBox1_Click()
Auswahl = ListBox1.List(ListBox1.ListIndex)
End Sub
und dem CommandButton der den ausgewählten Wert in die Zelle speichern soll habe ich folgenden Code gegeben.
Private Sub CommandButton1_Click()
ActiveSheet.Cells(AAAZ, AAAC + 11).Value = ListBox1.Value
Könnt ihr mir verraten wie ich diese Verknüpfung hinbekomme?
Zusammengefasst Ich möchte in meiner UserForm eine ListBox haben bei der verschiedene Werte drin stehen und ich einen auswählen kann. Des weiteren gibt es Textfelder wo ich etwas reinschreibe (diese Funktionieren). Der Ausgewählte Wert in der ListBox soll wie die anderen Texte auch, durch drücken des CommanButton in der aktiven Tabelle gespeichert werden. Dies soll in der 11 Spalte geschehen. Die Zeile ist durch eine andere Auswahl vorgegeben.
Danke Euch!
Grüße Bekks