Private Sub UserForm_Initialize()
For i = 1 To Worksheets.Count
Me.ComboBox1.AddItem Worksheets(i).Name
Next
End Sub
Private Sub CommandButton1_Click()
Sheets(Me.ComboBox1.Text).Range("A1") = Me.TextBox1
Sheets(Me.ComboBox1.Text).Range("A2") = Me.TextBox2
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Den Code insbesondere der Prozedur 'Private Sub CommandButton1_Click()' muss man natürlich auf die gewünschten Bedürfnisse hin optimieren. Da ist jetzt nur ein statischer Beispielcode drin.
Private Sub cbo1_Change()
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
cbo1.Text = ""
End Sub
Private Sub CommandButton3_Click()
Set Frm = UserForm1
Sheets("Spieler").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Offset(0, 1).Value = .TextBox1.Text
ActiveCell.Offset(0, 2).Value = .TextBox2.Text
ActiveCell.Offset(0, 3).Value = .TextBox3.Text
ActiveCell.Value = .cbo1.Value
Sheets(Me.ComboBox1.Text).Range("A1") = Me.TextBox1
Sheets(Me.ComboBox1.Text).Range("A2") = Me.TextBox2
End With
End Sub
Private Sub UserForm1_Initialize()
For i = 1 To Worksheets.Count
Me.ComboBox1.AddItem Worksheets(i).Name
Next
End Sub