Userform meine erste
10.08.2020 13:15:15
Tim
durch Internet usw. mache ich gerade meine erste Userform:
Wie bekomme ich den OptionButton hin, dass wenn er markiert wird in Exel dann ein Ja kommt. Es ist nur ein Button.
Und meine zweite Frtage ist:
in meiner Listbox Maßnamen, möchte ich, das mehrere ausgewählt werden dürfen und die müssten dann alle in der Spalte F eingetragen werden.
Würde mir jemand dabei helfen
Private Sub CommandButton1_Click()
Worksheets("Schaden").Activate
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.Hdt.Value
ActiveSheet.Cells(last, 2).Value = UserForm1.Seriennummer.Value
ActiveSheet.Cells(last, 3).Value = UserForm1.Perso.Value
ActiveSheet.Cells(last, 4).Value = UserForm1.Datum.Value
ActiveSheet.Cells(last, 5).Value = UserForm1.Schaden.Value
ActiveSheet.Cells(last, 6).Value = UserForm1.Maßnahmen.Value
End Sub
Private Sub UserForm_Initialize()
Worksheets("Auswahl").Activate
UserForm1.Schaden.RowSource = "D2:D7"
'Style der auswahl
Schaden.ListStyle = fmListStyleOption
UserForm1.Hdt.RowSource = "A2:A3"
UserForm1.Seriennummer.RowSource = "B2:B99999"
UserForm1.Perso.RowSource = "C2:C99999"
UserForm1.Maßnahmen.RowSource = "E2:E6"
UserForm1.user.Value = Application.UserName
UserForm1.Datum.Value = Date
End Sub