Werte aus UserForm-Fenster einem Blatt ausgeben
18.05.2006 16:22:55
Sophie
Ich hatte schon einmal diese Frage gestellt.
Ich würde gerne per Knopf eine UserForm aufrufen lassen, in der man Paar Zahlen eingeben muss. Diese Zahlen sollen in ein Blatt in bestimmte Zelle übernommen werden.
Dazu gibt es folgendes Code. Nur leider bringt VBA folgende Fehlermeldung: "Feleher beim Kompilieren. Projekt oder Bibliothek nicht gefunden" und das Wort "Format" wird in dem Code markeirt.
Was mache ich falsch?
Was muss man schreiben, damit Code funktioniert?
Zudem sollte es eine Meldung (MsgBox) erscheinen, falls nicht die Zahlen eingegeben werden.
Vielen Dank!!!
Liebe Grüße
Sophie
Option Explicit
Private Sub CommandButton10_Click()
Dim WkSh As Worksheet
Dim Wert As Double
Set WkSh = Worksheets("Hilfsblatt")
If Me.TextBox1.Value <> "" And IsNumeric(Me.TextBox1.Value) Then
Wert = Format(CDbl(Me.TextBox1.Value), "0.000")
WkSh.Range("C9").Value = Wert
End If
If Me.TextBox2.Value <> "" And IsNumeric(Me.TextBox2.Value) Then
WkSh.Range("D9").Value = Wert
End If
If Me.TextBox3.Value <> "" And IsNumeric(Me.TextBox3.Value) Then
Wert = Format(CDbl(Me.TextBox3.Value), "0.000")
WkSh.Range("E9").Value = Wert
End If
If Me.TextBox4.Value <> "" And IsNumeric(Me.TextBox4.Value) Then
Wert = Format(CDbl(Me.TextBox4.Value), "0.000")
WkSh.Range("C10").Value = Wert
End If
If Me.TextBox5.Value <> "" And IsNumeric(Me.TextBox5.Value) Then
Wert = Format(CDbl(Me.TextBox5.Value), "0.000")
WkSh.Range("D10").Value = Wert
End If
If Me.TextBox6.Value <> "" And IsNumeric(Me.TextBox6.Value) Then
Wert = Format(CDbl(Me.TextBox6.Value), "0.000")
WkSh.Range("E10").Value = Wert
End If
If Me.TextBox7.Value <> "" And IsNumeric(Me.TextBox7.Value) Then
Wert = Format(CDbl(Me.TextBox7.Value), "0.000")
WkSh.Range("C11").Value = Wert
End If
If Me.TextBox8.Value <> "" And IsNumeric(Me.TextBox8.Value) Then
Wert = Format(CDbl(Me.TextBox8.Value), "0.000")
WkSh.Range("D11").Value = Wert
End If
If Me.TextBox9.Value <> "" And IsNumeric(Me.TextBox9.Value) Then
Wert = Format(CDbl(Me.TextBox9.Value), "0.000")
WkSh.Range("E11").Value = Wert
End If
Unload UserForm1
End Sub