Userbuttons i Excel 2007

Til inspiration:

Private Sub OptionButton1_change()
    valgt 1
End Sub
Private Sub OptionButton2_change()
    valgt 2
End Sub
Private Sub OptionButton3_change()
    valgt 3
End Sub
Private Sub valgt(værdi)
    ActiveSheet.Cells(1, 1) = værdi
End Sub

Eller:

Private Sub OptionButton1_Click()
ActiveSheet.Cells(1, 1) = 1
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Cells(1, 1) = 2
End Sub
Private Sub OptionButton3_Click()
ActiveSheet.Cells(1, 1) = 3
End Sub
Private Sub OptionButton4_Click()
ActiveSheet.Cells(1, 1) = 4
End Sub
Private Sub OptionButton5_Click()
ActiveSheet.Cells(1, 1) = 5
End Sub
Private Sub OptionButton6_Click()
ActiveSheet.Cells(1, 1) = 6
End Sub

Eller:

Private Sub OptionButton1_Click()
ActiveSheet.Cells(1, 1) = "God"
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Cells(1, 1) = "Bedre"
End Sub
Private Sub OptionButton3_Click()
ActiveSheet.Cells(1, 1) = "Bedst"
End Sub

:-)

Hej store-morten
Tusind tak for din hjælp!
Jeg kan virkelig bruge det, men er ikke særlig erfaren med VBA.

Det virken men mit eneste problen lige nu er hvordan jeg får sendt  (værdi) til mit data ark- defineret som ws.
Jeg brugte før:

ws.Cells(iRow, 1).Value = Me.Button.Value

men hvis jeg putter ws.Cells(iRow, 1).Value ind i stedet for ActiveSheet.Cells(1, 1) - i din model:

Private Sub valgt(værdi)
    ActiveSheet.Cells(1, 1) = værdi
End Sub

Så får jeg fejl.
Kan du hjælpe mig med det også ?
På forhånd tak
Hilsen
Kasper

Private Sub OptionButton1_Click()
ActiveSheet..Cells(1, 1) = "God"
End Sub
Private Sub OptionButton2_Click()
ActiveSheet.Cells(1, 1) = "Bedre"
End Sub
Private Sub OptionButton3_Click()
ActiveSheet..Cells(1, 1) = "Bedst"
End Sub


Sender valgte om på Ark2 i A1. (fast pladsering)

Sender første valgte om på Ark2 i A1. (Hvis A1 er tom, ellers næste tomme celle i kolonne A)
Og næste valg om på Ark2 i næste tomme celle i kolonne A

Hej store-morten
Fantastisk - tak skal du have.
Roder videre med det når jeg er tilbage på arbejdet!
Hilsen fra
Kasper

Hej igen store-morten
Håber det er ok jeg spørger lidt videre!

Hvad nu hvis jeg gerne vil have det sådan at værdien for OptionButton's først bliver sendt til ark2 når man klikker på en registreringsknap?

Spøreskemaet har 10 spørgsmålet, med 6 optionbuttons til hver (1-6). Og jeg vil gerne have at man har mulighed for at ændre inden man registrerer endeligt.

Med tekstbokse har jeg brugt :

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Ark1")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value

-----
Tror du man kan det samme med 6 optionbuttons pr. spørgsmål?

Hilsen fra
Kasper

Prøv at sende Arket til mig, adresse under profil.

Hej Kasper, du får lige et 'Svar' så der kan lukkes :-)

Tak!!!
Det hele er løst.

Velbekomme
http://www.eksperten.dk/faq#faq-3-1
Hvordan accepterer eller afviser jeg et svar?
Når der er kommet et svar som du kan bruge, så klikker du ud for selve svaret i boksen "Acceptér dette svar". Derefter accepterer du svaret i den boks som dukker frem.