ComboBox i Userform

Her er koden til det første spørgsmål:

Private Sub UserForm_Activate()

ComboBox1.AddItem Date
ComboBox1.AddItem Date - 1
ComboBox1.AddItem Date - 2


End Sub

Svar på spørgsmål 2

Sub cmdOK_Click()

Range("A1") = ComboBox1

End Sub

OK; hvis hele min makro til userformen ser ud som nedenunder, hvor skal jeg så sætte de tre linier ?
Private Sub CommandButton1_Click()
    Dim wksData As Worksheet
    Dim ctl As Control
    Dim lRow As Long
   
    Set wksData = Worksheets("Data")
    ' Finder næste ledige række i Data-arket.
    lRow = wksData.Range("A65536").End(xlUp).Row + 1
 
    ' Tilføjer teksten i tekstboxen til næste række ledige celler.
    With wksData
        .Cells(lRow, 1) = Me.TextBox1.Value
        .Cells(lRow, 2) = Me.TextBox2.Value
        .Cells(lRow, 3) = Me.TextBox3.Value
        .Cells(lRow, 19) = Me.ComboBox1.Value
       
    'Lægger tid ind i den valgte kategorikolonne.
   
        For Each ctl In Me.Frame1.Controls
            If TypeName(ctl) = "OptionButton" Then
                If ctl.Value Then
                    .Cells(lRow, Val(ctl.Tag)).Value = Me.TextBox3.Value
                End If
            End If
        Next ctl
    End With
       
   
    Unload Me
    UserForm1.Show
   
    Set wksData = Nothing
End Sub

De 3 linier skal stå for sig selv (f.eks. lige under ovenstående) i en makro for sig selv, der SKAL hedde

Sub UserForm_Activate()

End sub

Jeg har lavet sub en, men når makroen kommer til
ComboBox1.AddItem Date
vises der en kørselsfejl: Adgang blev nægtet...
Jeg er 100% sikker på, at den hedder combobox 1

Jeg har lige testet det hos mig og der virker det - hmmm

Prøv at sende filen til mig, så kan jeg lige kikke på den inden jeg går i seng *S* rvejemad@sca.csc.com

OK - jeg skal lige tænde for en anden PC med netforbindelse...

Hej Søren

Tak for din fil *S*

Sjovt du har været på mit kursus *S* Verden er lille :-)

Fejlen er forøvrigt fundet. Din userform hedder userform1 - derfor skal makronavnet være: Sub UserForm1_Activate()

Hilsen

Richardt

Jeg prøver lige. Tror du i øvrigt at jeg kan slippe afsted med:Cells(lRow, 19) = Me.ComboBox1.Value
-eller skal jeg nøjes med at skrive combobox1 efter lighedstegnet ? Meningen er jo, at datoen skal lægges i kolonne 19 i den "næste ledige række"...?

Det tror jeg du slipper afsted med *S*

Hmmm...lige på falderebet: der fremkommer ingen valgmuligheder i boxen. Er der en egenskab der skal defineres ?

Nej - det driller også mig nu *S* men løsningen er at omdøbe makroen fra

UserForm1_Activate()

til

Sub UserForm_Initialize()
    ComboBox1.Clear
    ComboBox1.AddItem Date
    ComboBox1.AddItem Date - 1
    ComboBox1.AddItem Date - 2
End Sub

Læg forøvrigt mærke til at jeg clearer comboboksen hver gang den aktiveres i dette eksempel - det kan nogen gange gøre en forskel også...

P.s.
Jeg opdagede lige at du har arbejdet med lister som inddata til compboksen i det tilsendte regneark - det virker ikke, da en dato i celle ikke er en dato, men et løbenummer. Hvis du bare ville have tal eller tekst i comboboksen var det ellers en god løsning.

Ja, man må jo prøve sig frem *G*, ellers kommer man ingen vegne. Du skal i hvert fald have tak for hjælpen, nu kan jeg kaste mig over loops der finder bestemte datoer, bestemte linier... Håber bare på at chefen værdsætter det, når vi engang skal tale om personalegoder *GGG*.

Hov...fik du ikke dine point ?

Ja - det det bliver jo spændende *SSS*

Tak for points og held og lykke med det hele... - nu vil jeg gå i seng, så jeg være bare nogenlunde frisk til morgendagens udfordringer *G*