skrive tekster i userform alt efter hvilke ark er synlige

Model, der måske kan anvendes:

Sub testAktuelleArk()
Dim arknavn
    arknavn = ActiveSheet.Name
    If Worksheets(arknavn).Visible = True Then
        Me.Label1.Caption = findTekst(arknavn)
    Else
        Me.Label1.Caption = ""
    End If
End Sub
Private Function findTekst(arknavn)
    Select Case arknavn
        Case "test"
            findTekst = "Testkørsel"
        Case "kørsel"
            findTekst = "Kørselsregnskab"
        Case "afreg"
            findTekst = "Afregning"
        Case "godk"
            findTekst = "Godkendt"
        Case Else
            findTekst = ""
    End Select
End Function
Private Sub UserForm_Click()        'Anvendes til aktivering af Userform for test
    testAktuelleArk
End Sub

Det absolut på rette spor.

Som koden er nu viser den et af navnene i label1.

Den skal helst liste alle de ark op der er synlige.
Teksterne skal helst stå under hinanden.

F.eks.

Testkøresel
Afregning
Godkendt
osv.

Ok - stadig i Label1 - alternativt i en listboks.

Sub testAktuelleArk()
Dim arknavn
    arknavn = ActiveSheet.Name
    If Worksheets(arknavn).Visible = True Then
        Me.Label1.Caption = Me.Label1.Caption + findTekst(arknavn) + vbCr
    End If
End Sub
Private Function findTekst(arknavn)
    Select Case arknavn
        Case "test"
            findTekst = "Testkørsel"
        Case "kørsel"
            findTekst = "Kørselsregnskab"
        Case "afreg"
            findTekst = "Afregning"
        Case "godk"
            findTekst = "Godkendt"
        Case Else
            findTekst = ""
    End Select
End Function
Private Sub UserForm_Click()        'Anvendes til aktivering af Userform for test
    testAktuelleArk
End Sub

Der er da vist gået sommerferie i den for mig.
Glemte helt at godkende denne tråd.

Tak for hjælpen supertekst

Har du et svar

Selv tak - ja - her er det...