Thema: Auf Tabellenblätter verteilen

Home

Abbildung - Auf Tabellenblätter verteilen

Prozedur: cmdWks1_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auf Tabellenblätter verteilen
Ablaufbeschreibung:
- Text von TextBox1 ind Tabelle1, Zelle A1 eintragen
- Text von TextBox2 ind Tabelle1, Zelle A2 eintragen

Code:


Private Sub cmdWks1_Click()
   Worksheets("Tabelle1").Cells(1, 1).Value = TextBox1.Text
   Worksheets("Tabelle1").Cells(2, 1).Value = TextBox2.Text
End Sub

Prozedur: cmdWks2_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auf Tabellenblätter verteilen
Ablaufbeschreibung:
- Text von TextBox3 ind Tabelle2, Zelle A1 eintragen
- Text von TextBox4 ind Tabelle2, Zelle A2 eintragen

Code:


Private Sub cmdWks1_Click()
   Worksheets("Tabelle2").Cells(1, 1).Value = TextBox3.Text
   Worksheets("Tabelle2").Cells(2, 1).Value = TextBox4.Text
End Sub

Prozedur: cmdWks3_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auf Tabellenblätter verteilen
Ablaufbeschreibung:
- Text von TextBox5 ind Tabelle3, Zelle A1 eintragen
- Text von TextBox6 ind Tabelle3, Zelle A2 eintragen

Code:


Private Sub cmdWks1_Click()
   Worksheets("Tabelle3").Cells(1, 1).Value = TextBox5.Text
   Worksheets("Tabelle3").Cells(2, 1).Value = TextBox6.Text
End Sub