Avatar billede s_h_m Nybegynder
13. februar 2004 - 22:57 Der er 13 kommentarer og
1 løsning

Hvordan får jeg vist min Userform?

Jeg har en makro der ud fra et brugervalg sorterer og fjerner uønskede data fra en liste. Hensigten er at de resterende data skal vises i en listboks.

Men når jeg loader Userformen fejler makroen.
Hvordan får jeg den til at vise Userformen?
Avatar billede Slettet bruger
13. februar 2004 - 23:00 #1
Har du noget der ligner:

Load UserForm1
UserForm1.Show
Avatar billede s_h_m Nybegynder
13. februar 2004 - 23:12 #2
Ja, og det er her den kommer med en fejl.
Run-time error 1004 og den fejler på linien med Load
Avatar billede kabbak Professor
13. februar 2004 - 23:16 #3
må vi se load koden
Avatar billede s_h_m Nybegynder
13. februar 2004 - 23:20 #4
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
Avatar billede kabbak Professor
13. februar 2004 - 23:27 #5
ingen fejl her
Avatar billede Slettet bruger
13. februar 2004 - 23:29 #6
Din userform ligger vel også i samme Workbook som din kode ?
Avatar billede s_h_m Nybegynder
13. februar 2004 - 23:30 #7
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  ?
Avatar billede kabbak Professor
13. februar 2004 - 23:38 #8
må vi også se koden i Userform_Initialize
Avatar billede s_h_m Nybegynder
13. februar 2004 - 23:39 #9
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
Avatar billede s_h_m Nybegynder
13. februar 2004 - 23:41 #10
Hvis jeg kører userformen fra vba-editoren, så kommer den frem som den skal og med de rigtige data fyldt i.
Avatar billede kabbak Professor
13. februar 2004 - 23:57 #11
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
Avatar billede s_h_m Nybegynder
14. februar 2004 - 00:05 #12
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)
Avatar billede kabbak Professor
14. februar 2004 - 00:07 #13
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.
Avatar billede s_h_m Nybegynder
14. februar 2004 - 00:10 #14
OK, tak for det.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester