Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBox-Einträge auf Tabellenblätter verteilen

Gruppe

TextBox

Problem

UserForm-TextBox-Einträge sollen auf Tabellenblätter verteilt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

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