der Eintrag in einem textfeld einer UserForm, soll in eine Zelle der Tabelle übernommen werden, was muss ich machen, um dies hinzubekommen?
Für Anworten wäre ich dankbar
gruss
ralf
Private Sub CommandButton1_Click()
'Daten in Tabelle Schreiben
If Me.TextBox1 = "" Then
Worksheets("Tabelle1").Range("E4").ClearContents
Else
'bei text
Worksheets("Tabelle1").Range("E4").Value = Me.TextBox1.Value
'bei Zahlenwerten:
Worksheets("Tabelle1").Range("E4").Value = CDbl(Me.TextBox1.Value)
'bei Datum:
Worksheets("Tabelle1").Range("E4").Value = CDate(Me.TextBox1.Value)
End If
Unload Me 'Formular schließen und aus dem Speicher entfernen
End Sub
Die Umwandlung bei Zahlenwerten sollte man machen, da bestimmte Rechenoperationen sonst nicht mehr korrekt funktionieren.
Gruß
Franz