Re: Tabellenblattwert auslesen
25.05.2003 23:27:14
walter
Hallo Knut,
habe folgendes eingesetzt:Private Sub TextBox3_Change()
If IsNumeric(TextBox3) = False And TextBox3 <> "" Then
MsgBox "Es sind nur nummerische Werte erlaubt."
TextBox3 = "0.000,00"
End If
Worksheets("Datenbank").Range("A12") = CDbl(TextBox3)
'so schreibt Richtig in Tabelle
With Worksheets("Datenbank")
TextBox3 = .[a12].Value
TextBox3 = Format(.[a12], .[a12].NumberFormat)
End With
End Sub
Private Sub UserForm_Initialize()
'With UserForm - Name
'Wh Me
'.Height = Application.Height
'.Width = Application.Width
'End With
With Worksheets("Datenbank")
TextBox3 = .[a12].Value
TextBox3 = Format(.[a12], .[a12].NumberFormat)
End With
'Damit erhält die Textbox das gleiche Format wie die Zelle a12
'Knut
TextBox3 = Worksheets("Datenbank").Range("A12").Value
'so holt die zahl vom blatt rein
End Sub
Das Format ist da, aber ich kann keine Zahlen eingeben.
Vielleicht kannst Du mir einen Tip geben!
Danke bis dahin
Gruss Walter