Re: Textfeld soll Zelle auslesen
02.11.2002 18:08:31
Markus
Hallo ich nochmalWenn ich den Code meiner Userform aufrufe so mit rechter Maustaste und so steht folgendes darin
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Columns(3).ClearContents
End Sub
Private Sub Label4_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
Sheets("Tabelle1").Cells(2, 3).Value = UserForm1.TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Sheets("Tabelle1").Cells(3, 3).Value = UserForm1.TextBox2.Value
End Sub
Private Sub TextBox3_Change()
Sheets("Tabelle1").Cells(4, 3).Value = UserForm1.TextBox3.Value
End Sub
Private Sub TextBox4_Change()
Sheets("Tabelle1").Cells(5, 3).Value = UserForm1.TextBox4.Value
End Sub
Private Sub TextBox5_Change()
Sheets("Tabelle1").Cells(8, 3).Value = UserForm1.TextBox5.Value
End Sub
Private Sub TextBox6_Change()
Sheets("Tabelle1").Cells(6, 3).Value = UserForm1.TextBox6.Value
End Sub
Private Sub TextBox7_Change()
Sheets("Tabelle1").Cells(7, 3).Value = UserForm1.TextBox7.Value
End Sub
Private Sub TextBox8_Change()
End Sub
und im Modul
Private Sub UserForm1_Initialize()
TextBox8.Value = Tabelle(1).Range("A1")
End Sub
????????????????
Gruß Markus