Textfeld (in UserForm) in Zelle übertragen
Martin
ich habe folgendes Problem:
Bei meiner Exceltabelle geht automatisch beim Start ein UserForm auf in
welchem insgesamt 7 Textfelder enthalten sind. Diese sollen alle ausgefüllt
werden und dann in eine Zeile in der Tabelle 1 abgelegt werden. Beim nächsten
Öffnen der Tabelle soll die „Eingabemaske“ wieder leer seina. Ich habe bis
jetzt nur VBA Codes gefunden welche mit der Eingabetaste die Daten
übertragen, mir wäre es aber lieber wenn dies mit einem CommandButton
funktionieren würde.
Grüße
maba
Maninweb.de
bin mir nicht sicher, ob Du sowas meinst...
Private Sub CommandButton1_Click()
With ThisWorkbook.Worksheets("Tabellenname")
' Hier Zeile 1
.Cells(1, 1).Value = TextBox1.Text
.Cells(1, 2).Value = TextBox2.Text
' usw...
End With
' Ggf. Felder wieder leeren...
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Button überträgt die Werte und leert im Anschluß die Felder.
Gruß