UserForm1

 

Private Sub CommandButton1_Click()

 

Worksheets("Tabelle1").Activate

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row + 1

ActiveSheet.Cells(last,1).Value = UserForm1.TextBox1.Value

ActiveSheet.Cells(last,2).Value = UserForm1.TextBox2.Value

 

Dim i As Integer

With UserForm1.ListBox1

 

For i = 0 To .ListCount - 1

If .Selected(i) Then

MsgBox .List(i)

If Cells(last,3).Value = "" Then

ActiveSheet.Cells(last,3).Value = .List(i)

Else

ActiveSheet.Cells(last,3).Value = ActiveSheet.Cells(last,3).Value & " / " & .List(i)

End If

Else

'nichts passiert

End if

Next i

 

End With

 

End Sub

 

____________________________

Private Sub UserForm_Initialize()

 

'1. Möglichkeit die ListBox zu füllen

With UserForm1.ListBox1

.AddItem "Komödie"

.AddItem "Fantasy"

.AddItem "Drama"

.AddItem "weiteres Genre..."

End With

 

'2. Möglichkeit die ListBox zu füllen

Worksheets("Genres").Activate

UserForm1.ListBox1.RowSource = "A2:A7"

 

'Style ändern

ListBox1.ListStyle = fmListStylePlain

ListBox1.ListStyle = fmListStyleOption

 

'Mehrere Elemente auswählen

ListBox1.MultiSelect = fmMultiSelectSingle

ListBox1.MultiSelect = fmMultiSelectMulti

 

End Sub




Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)