Daten von Textbox in Zelle schreiben
18.08.2006 10:15:26
Textbox
Ich möchte Daten aus einer Textbox in eine Zelle schreiben.
die angesprochene Zelle wäre im Arbeitsblatt "Rechenfaktor2" "C3"
Beginn der Zeilen ist Zeile 3
Private Sub CommandButton1_Click()
Dim R&
Dim wks As Worksheet
Set wks = Worksheets("Rechenfaktor2")
R = Cells(Rows.Count, 3).End(xlUp).Row + 1
wks.Cells(R, 3) = TextBox183.Text
End Sub
Leider funktioniert dies nicht. Wo habe ich hier bitte den Fehler?
Danke
Josef