Dialogbox
12.10.2007 15:39:17
Heino
zur Zeit befasse ich mich damit, meine VBA Kenntnisse, die nur gering sind, zu vertiefen. Ich versuche mich an einer Grundübung und bleibe natürlich prompt hängen. Vielleicht kann mir jemand auf die Sprünge helfen.
Habe eine ganz einfache Userform mit einem Textfeld und einer Schaltfläche angelegt. Der Code, mit dem ich den erfassten Text in die tabelle 1, Zelle A1 schreiben möchte, gelingt mir aber nicht. Soweit bin ich gekommen:
Private Sub CommandButton1_Click()
Dim intpos As Integer
Set Frm = UserForm1
Sheets("Tabelle1").Activate
intpos = Range(A1)
With Frm
Cells(intpos. 1).Value=.TextBox1.Value
End With
End Sub
Ich habe mich an einem Buch orientiert und versucht, den Code auf meine Belange abzuändern. Funktioniert aber nicht. Ich bitte um Eure Hilfe!
Danke vorab und herzlicher Gruss
Heino