Skal lave en liste med VBA, der minder om en kalender funktion

En mulighed kunne være en Userform med en form for Liste, indeholdende de 60 tekster.

Hvor kommer teksterne fra?

Må man spørge hvad det skal anvendes til?

Jeg tænkte også på en userform, men vidste ikke rigtigt hvordan jeg skulle gribe det an. Teksterne er noget jeg selv skriver. 

Det skal bruges til en skabelon, hvor der er muligheder for at vælge hvilket stadie man er på. Alt efter hvad man vælger, får man en tekst frem, hvor der står hvad man mangler og skal udarbejde.

ok - men teksterne skal jo lagres et eller andet sted: i Excel eller i en tekstfil -eller??

Er der andre,der skal anvende dette?

Jeg ville bare lagre dem i en excel.

Ja det er meningen at andre skal bruge skabelonen...

Du skriver, at ved at dobbeltklikke på en bestemt celle.....
...efter valg - få det til at stå i cellen

Er det kun een celle, der anvendes til dobbeltklik og indsættelse af tekst?

Hej supertekst,

Jo det er en enkel celle

Kode til det aktuelle ark(højreklik / Vis programkode)

Const xcelle = "$B$2"                              'celle-adressen, hvori der dobbeltklikkes - KAN TILPASSES
Const xTekster = "F1:F12"                          'område,hvor trekster lagres - KAN TILPASSES
Private Sub hentTekster()
    With UserForm1.ListBox1
        .Clear
        For Each cc In Range(xTekster).Cells
            .AddItem cc.Text
        Next
    End With
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = xcelle Then
        hentTekster
       
        Load UserForm1
        UserForm1.Show 0
        Cancel = True
    End If
End Sub

rem Kode i Userform (Listbox1& CommandButton1)

Private Sub CommandButton1_Click()
    If Me.ListBox1.ListIndex <> -1 Then
        ActiveCell.Value = Me.ListBox1
    End If
End Sub


rem Filen kan blive tilsendt- hvis du sender en mail til:

pb (a) supertekst-it . dk