Textbox Werte in Zellen schreiben
13.11.2008 12:59:19
pritt
Dim FirmenName As String
Dim FirmenID As Long
Dim Nick As String
Dim Pass As String
Private Sub frmDaten_Load()
End Sub
Private Sub txtFirma_LostFocus()
FirmenName = txtFirma.Text
End Sub
Private Sub txtFirmenID_LostFocus()
FirmenID = txtFirmenId.Text
End Sub
Private Sub txtNick_LostFocus()
Nick = txtNick.Text
End Sub
Private Sub txtPass_LostFocus()
Pass = txtPass.Text
End Sub
Private Sub cmdDaten_Click()
Sheets("Daten").Select
Range("C3").Select
ActiveCell.Select
ActiveCell.Value = FirmenName.Value
Range("C4").Select
ActiveCell.Select
ActiveCell.Value = FirmenID.Value
Range("G3").Select
ActiveCell.Select
ActiveCell.Value = Nick.Value
Range("G4").Select
ActiveCell.Select
ActiveCell.Value = Pass.Value
End Sub
Anzeige