Textfeldeintrag in Zelle
17.10.2004 07:46:55
Sebastian
ich habe eine UserForm erstellt und möchte nun die Einträge in die entsprechenden Zellen auf meinen Arbeitsblatt eintragen.
Folgende Code habe ich verwendet:
Sub OK
Sheets("Vorlage").Copy After:=Sheets(2)
Sheets("Vorlage (2)").Select
Range("B1") = txtNachname
Range("F1") = txtVorname
Range("F4") = txtStatus
Range("B9") = txtDienstgrad
Range("F9") = txtDienststelle
Range("B10") = txtOrt
Range("F10") = txtStraße
Range("B11") = txtTelefon
Range("B22") = txtBank
Range("B23") = txtBLZ
Range("B24") = txtKNR
Sheets("Vorlage (2)").Name = Range("B1") & ", " & Range("F1")
End Sub
Doch leider funktioniert das nicht, er überträgt die Einträge nicht.
Wo liegt der Fehler?
Danke für eure Hilfe.
MfG
Sebastian