Private
Sub
CommandButton1_Click()
Dim
loLetzte
As
Long
If
Me
.ComboBox1.ListIndex > -1
Then
With
Worksheets(
"Tabelle"
&
CStr
(
Me
.ComboBox1.ListIndex + 1))
loLetzte = .Cells(.Rows.Count,
"A"
).
End
(xlUp).Offset(1).Row
.Cells(loLetzte,
"A"
) =
Me
.TextBox1
.Cells(loLetzte,
"B"
) =
Me
.TextBox2
.Cells(loLetzte,
"C"
) =
Me
.TextBox2
End
With
Else
MsgBox
"Fehler: Es ist keine Frage ausgewählt."
End
If
End
Sub
Private
Sub
UserForm_Initialize()
With
Me
.ComboBox1
.AddItem
"Wie geht es dir?"
.AddItem
"Hast du gut geschlafen?"
.AddItem
"Hast du schon gefrühstückt?"
.AddItem
"Willst du einen Kaffee?"
.AddItem
"Oder lieber eine Schokomilch?"
End
With
End
Sub