PopUp vindue med CheckBox lavet via Makro

Må popup-vinduet være en Userform?
De relevante celler - er det i kolonne/række A2 - indtil "sidste navn"?

Ja, det må det gerne - bare den kan kaldes ved at klikke på en knap... Og ja navnene er altid fra A2 og ned efter indtil første tomme celle... fx. A2 til A8.

Ok - vender tilbage i morgen..

Super - tusind tak

Sådan ser koden ud i Userform - hele filen kan fremsendes, hvis du senderen mail - @-adr. under profil.
Hvilken version af Excel?

Private Sub CommandButton1_Click()                  'OK
Dim f As Long
    For f = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(f) = True Then
            ActiveSheet.Cells(f + 2, 2) = ActiveSheet.Cells(f + 2, 2) + 1
        End If
    Next f
   
    Unload UserForm1
End Sub
Private Sub CommandButton2_Click()                  'Fortryd
    Unload UserForm1
End Sub
Private Sub UserForm_activate()
    hentNavne
End Sub
Private Sub hentNavne()
Dim ræk As Long, navn As String

    For ræk = 2 To 65000
        navn = Cells(ræk, 1)
        If navn <> "" Then
            Me.ListBox1.AddItem navn
        Else
            Exit Sub
        End If
    Next ræk
End Sub

Hej Supertekst - jeg har send mail til dig...

Forresten - jeg bruger Excel 2007...

ok - sender Excel-filen nu....

Tak for filen :) - nu har jeg faaet UserFormen over i mit ark - hvordan "starter" jeg den fra en knap, ligesom den knap du har?

Jeg har denne knap i min kode (kopi af en anden knap):

    ActiveSheet.Buttons.Add(20, 250, 130, 26).Select
    Selection.OnAction = "GrafResource"
    Selection.Characters.Text = "Create resource chart"
    With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "GrafResource"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With

Denne eksekverer macro "GrafResource" - men jeg vil gerne have den til at koere UserFormen...?

Jeg klarede den - nu koerer den, saa skal jeg bare have den tilpasset... siger til naar det er OK eller hvis jeg sidder fast... du skal selvfoelgelig have dine point, saa send et svar ;)

Jeg har oprettet en active-x komponent- således:

Udvikler / indsæt / Active-X object / Knap /
indsæt knappen / Højreklik / Vis programkode

indsæt nedenstående:

Private Sub CommandButton1_Click()
    Load UserForm1
    UserForm1.Show
End Sub

det var så gjort.... - ja du giver blot signal - god fornøjelse med "projektet"

Hvordan faar jeg navnet ud af den valgte listbox - lige nu laver den en "simpel" plus naar en listbox er valgt - men jeg skal bruge navnet... Hvis jeg skriver foelgende i CommandButton1_Click():

Dim navn As String
navn = ListBox1.Name
ActiveSheet.Cells(f + 217, 5) = navn

saa skriver den "ListBox1" ud - men jeg skal bruge navnet

Alternativt proevede jeg ved load a listboxene at skrive:

ListBox1.Name = navn

men det kunne den heller ikke lide?

Prøv:
activesheet.cells(f+217,5) = me.ListBox1

Hej igen - det er helt OK, har fundet en løsning, nu fungerer det helt perfekt - tusind tak for hjælpen.

fint & selv tak..