Schaltflächen auf einem UserForm

Forumthread: Schaltflächen auf einem UserForm
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schaltflächen auf einem UserForm

08.08.2005 13:59:55

Stefan

Meine Fragen wäre folgende:
Ich möchte gerne mit Excel eine Maske erstellen auf welcher bestimmte Ergebnisse aus berechnungen sowie Produktnamen etc. eingegeben werden können, um diese per OK click in ein Formular zu übertragen! Optimal wäre es natürlich wenn man diese Funktion unendlich fortführen könnten (Archivierung von Werten)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schaltflächen auf einem UserForm

08.08.2005 14:31:38

Erich

AW: Schaltflächen auf einem UserForm

08.08.2005 14:31:38

Erich

evtl hilft dir das weiter


Private Sub CommandButton1_Click()
Dim i As Long
i = 1
While ActiveSheet.Cells(i, 1) <> ""
i = i + 1
Wend
ActiveSheet.Cells(i, 1) = UserForm1.TextBox1.Text
ActiveSheet.Cells(i, 2) = UserForm1.TextBox2.Text
ActiveSheet.Cells(i, 3) = UserForm1.TextBox3.Text
ActiveSheet.Cells(i, 4) = UserForm1.TextBox4.Text
ActiveSheet.Cells(i, 5) = UserForm1.TextBox5.Text
ActiveSheet.Cells(i, 6) = UserForm1.TextBox6.Text
ActiveSheet.Cells(i, 7) = UserForm1.TextBox7.Text
End Sub

gruß
erich