Gruppe
Dialog
Problem
UserForm-TextBox-Einträge sollen auf Tabellenblätter verteilt werden.
ClassModule: frmVerteilen
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdWks1_Click()
Worksheets("Tabelle1").Cells(1, 1).Value = TextBox1.Text
Worksheets("Tabelle1").Cells(2, 1).Value = TextBox2.Text
End Sub
Private Sub cmdWks2_Click()
Worksheets("Tabelle2").Cells(1, 1).Value = TextBox3.Text
Worksheets("Tabelle2").Cells(2, 1).Value = TextBox4.Text
End Sub
Private Sub cmdWks3_Click()
Worksheets("Tabelle3").Cells(1, 1).Value = TextBox5.Text
Worksheets("Tabelle3").Cells(2, 1).Value = TextBox6.Text
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 6
Controls("TextBox" & iCounter).Text = "TextBox" & iCounter
Next iCounter
End Sub
StandardModule: Modul1
Sub CallDialog()
frmVerteilen.Show
End Sub