VBA
09.12.2014 21:25:04
Mario
ich bin dabei, mir einen Urlaubsplan zu bauen.
Nun möchte ich über meine Listbox (sie enthält die Werte UP,U,SU und JAZ) durch klick die Werte in die aktive Zelle ausgeben und die nächste Zelle soll aktiviert werden, so dass man durch mehrmaliges klicken auf z.B. U mehrere Zellen befüllen kann . Der erlaubte Bereich soll sein: Arbeitsblatt 2015( J1:NK200).
mit einer zweiten Listbox genannt löschen sollen die Werte aus der aktiven Zelle wieder gelöscht werden können
So sieht es bisher aus;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
With ListBox1
if .Selected(.ListIndex) = True Then ActiveCell.Value = .List(.ListIndex)
End With
Application.SendKeys "{TAB}", True
ActiveCell.Select
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Vielen Dank
Anzeige