Indsætte data i første ledige celle efter kol. L med betingelse i kol. B

Har du tænkt på anvemdelse af en Userform m/en liste over navne i stedet for en knap pr. navn?

(Nu ved jeg jo ikke hvor mange der er tale om)

Jo, det har jeg. Der er tale om 8 navne - 9 med den, som skal tilføje data ved alle.

Dim række, Kolonne
Dim antalRækker, dl1Værdi, førsteKolonne
Private Sub CommandButton1_Click()                  'INDSÆT
    If Me.ListBox1.ListIndex > -1 Then
        bværdi = LCase(Me.ListBox1)
        Traverser bværdi, True
    End If
End Sub
Private Sub CommandButton2_Click()                  'FORTRYD
    If Me.ListBox1.ListIndex > -1 Then
        bværdi = LCase(Me.ListBox1)
        Traverser bværdi, False
    End If
End Sub
Private Sub Traverser(bværdi, aktion)
Dim celleB
    For række = 1 To antalRækker
        celleB = LCase(Cells(række, 2))
       
Rem Findes den valgte værdi i kolonne B
        If (bværdi = "alle" And celleB <> "") Or celleB = bværdi Then
            førsteKolonne = findFørsteKolonne
           
Rem indsættelse eller fortryd
            If aktion = True Then
Rem - INDSÆT
                Cells(række, førsteKolonne) = dl1Værdi
            Else
                If Cells(række, førsteKolonne - 1) = dl1Værdi Then
Rem - FORTRYD
                    Cells(række, førsteKolonne - 1) = ""
                End If
            End If
        End If
    Next række
End Sub
Private Sub ListBox1_Click()                        'bVærdi er valgt
    sætKnapVærdi True
End Sub
Private Sub UserForm_activate()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    dl1Værdi = activesheet.Range("DL1")
   
Rem Indsæt tekster
    With UserForm1.ListBox1
        .AddItem "Alle"
        .AddItem "Aaaa"
        .AddItem "Bbbb"
        .AddItem "Cccc"
        .AddItem "Dddd"
        .AddItem "Eeee"
        .AddItem "Ffff"
        .AddItem "Gggg"
    End With
   
    sætKnapVærdi False
End Sub
Private Sub sætKnapVærdi(knapværdi)
    Me.CommandButton1.Enabled = knapværdi
    Me.CommandButton2.Enabled = knapværdi
End Sub
Private Function findFørsteKolonne()                'efter L (=M)
    For Kolonne = 13 To 240
        If Cells(række, Kolonne) = "" Then
            findFørsteKolonne = Kolonne
            Exit Function
        End If
    Next Kolonne
End Function

Eller send en mail - så returnere jeg filen inkl. Userform

Hmmm - hvordan gør jeg, er ikke så dreven.

Min mail-adresse findes under min profil...

ok - kom lidt for sent ud af røret i forhold til dit forrige indlæg. Jeg havde ikke set, du tilbød, at jeg kunne sende den - det er gjort.

Har endelig haft tid - det virker perfekt. Ligger du et svar.

Fint - jeg lægger et svar...