Optionbutton auswahl in Zelle schreiben
25.01.2012
08:45:11 Uhr536 Aufrufe
3 Antworten
08:45:11 Uhr
3 Antworten
Noch nicht bewertet
Hi
Moin,
ich habe eine Frage zu einem Problem was ich zur Zeit habe, das Problem ist, dass ich 3 Rahmen in einer Userform habe, im
1. Rahmen 2 Optionbuttons
2. Rahmen 4 Optionbuttons
3. Rahmen 2 Optionbuttons
Jeweils einer davon soll ausgewählt sein und per "start" button in die Spalte
O, P & Q geschrieben werden, allerdings habe ich keine Ahnung wie das funktioniert, ich habe in der Userform schon Textfelder, die sich bei der Betätigung des Button in die nächst freien Felder eintragen Spalte (A-E), mit Optionbuttons habe ich leider keine Ahnung.
ich habe eine Frage zu einem Problem was ich zur Zeit habe, das Problem ist, dass ich 3 Rahmen in einer Userform habe, im
1. Rahmen 2 Optionbuttons
2. Rahmen 4 Optionbuttons
3. Rahmen 2 Optionbuttons
Jeweils einer davon soll ausgewählt sein und per "start" button in die Spalte
O, P & Q geschrieben werden, allerdings habe ich keine Ahnung wie das funktioniert, ich habe in der Userform schon Textfelder, die sich bei der Betätigung des Button in die nächst freien Felder eintragen Spalte (A-E), mit Optionbuttons habe ich leider keine Ahnung.
Acrysis schreibt am 25.01.2012 um 09:12:27 Uhr
VBA unter Excel und Office 2010 ;)
Mein Zurzeitiger Code für den Button ist dieser
Private Sub Startbutton_Click()
Dim sp As Integer
Dim z As Long
z = Range("A65536").End(xlUp).Row + 1
For sp = 1 To 5
Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
MsgBox "Eingabe erfolgt"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
UserForm1.Hide
TextBox1.Text = Date
End Sub
Mein Zurzeitiger Code für den Button ist dieser
Private Sub Startbutton_Click()
Dim sp As Integer
Dim z As Long
z = Range("A65536").End(xlUp).Row + 1
For sp = 1 To 5
Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
MsgBox "Eingabe erfolgt"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
UserForm1.Hide
TextBox1.Text = Date
End Sub
