Textfeld (in UserForm) in Zelle übertragen

01/09/2009 - 14:56 von Martin | Report spam
Hallo zusammen,

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
 

Lesen sie die antworten

#1 Maninweb.de
01/09/2009 - 18:18 | Warnen spam
Hi Martin...

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ß

Hallo zusammen,

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

Ähnliche fragen