Hvordan får jeg vist min Userform?

Har du noget der ligner:

Load UserForm1
UserForm1.Show

Ja, og det er her den kommer med en fejl.
Run-time error 1004 og den fejler på linien med Load

må vi se load koden

Ja, det må I gerne.
Og hvis du ser efter kabbak så genkender du sikkert koden, den har jeg fundet i et andet spørgsmål  :o)

Public Sub FjernRøde()

'Fjerner de rækker hvor cellen er markeret med rødt
    Application.ScreenUpdating = False
    Range("A1").Select
    col = ActiveCell.Column
    Rowcount = Cells(65536, col).End(xlUp).Row
    Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
    For i = 1 To Rowcount
    If Cells(i, col).Interior.ColorIndex = 3 Then
    Cells(i, col).EntireRow.Delete Shift:=xlUp
    i = i - 1
    Rowcount = Rowcount - 1
    End If
    Next

    Range("C1").Select
    col = ActiveCell.Column
    Rowcount = Cells(65536, col).End(xlUp).Row
    Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
    For i = 1 To Rowcount
    If Cells(i, col).Interior.ColorIndex = 3 Then
    Cells(i, col).EntireRow.Delete Shift:=xlUp
    i = i - 1
    Rowcount = Rowcount - 1
    End If
    Next
    Range("A1").Select
    Sheets("Start").Select
    Range("C25").Select
    Application.ScreenUpdating = True
   
    Load Vis_liste
    Vis_liste.Show
   
End Sub

ingen fejl her

Din userform ligger vel også i samme Workbook som din kode ?

Kan det have noget at gøre med, at arket den skal vises i, er beskyttet med et password så det skal fjernes først, eller at koden til at fylde listboksen ligger i en Private Sub Userform_Initialize  ?

må vi også se koden i Userform_Initialize

Ja - here goes

Private Sub UserForm_Initialize()

'Fylder listboksen med data
    ListBox1.ColumnCount = 3
    ListBox1.List = Worksheets("Vis").Range("A2", Range("C2").End(xlDown)).Value

End Sub

Hvis jeg kører userformen fra vba-editoren, så kommer den frem som den skal og med de rigtige data fyldt i.

prøv denne

Private Sub UserForm_Initialize()
Dim Rng As Range
'Fylder listboksen med data
R = Worksheets("Vis").Range("C2").End(xlDown).Row
Set Rng = Worksheets("Vis").Range("A2:C" & R)
    ListBox1.ColumnCount = 3
    ListBox1.List = Rng.Value
End Sub

Det er simpelthen perfekt, det kører som i olie.
Smid lige et svar.

Lige for at lære noget, hvad er forskellen på de to måder at fylde data i listboksen?

Tak for hjælpen  :o)

det var din range der ikke fungerede ordentlig

Worksheets("Vis").Range("A2", Range("C2").End(xlDown)).Value

den melder ikke fejl på linien, men den forstår den ikke.

OK, tak for det.