Avatar billede zamorano Nybegynder
29. august 2007 - 11:40 Der er 2 kommentarer og
1 løsning

Fejl i makro

Jeg har lavet en makro, som i sig selv fungerer fint, men når jeg sætter den ind i en knap, oprettet som kontrolelement, stopper makroen.

her er makroen
Private Sub Ruder2knap_Click()
'
' Ruder2 Makro
' Makro indspillet 29-08-2007 af Zamorano
'

'
    Sheets("kortvalg").Select
    Range("B10:P13").Select
    Range("B13").Activate
    Selection.Cut
    Range("A10").Select
    ActiveSheet.Paste
    Range("I11").Select
    ActiveCell.FormulaR1C1 = "Ruder 2"
    Range("I12").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("I13").Select
    ActiveCell.FormulaR1C1 = "r"
    Range("I14").Select
    Sheets("Forside").Select
End Sub

jeg har kopieret makroen fra denne makro, som fungerer fint.

Sub Ruder2()
'
' Ruder2 Makro
' Makro indspillet 29-08-2007 af zamorano
'

'
    Sheets("kortvalg").Select
    Range("B10:P13").Select
    Range("B13").Activate
    Selection.Cut
    Range("A10").Select
    ActiveSheet.Paste
    Range("I11").Select
    ActiveCell.FormulaR1C1 = "Ruder 2"
    Range("I12").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("I13").Select
    ActiveCell.FormulaR1C1 = "r"
    Range("I14").Select
    Sheets("Forside").Select
End Sub

Jeg får fejlen:

run-time error '1004'
metoden Select for klassen Range mislykkeds.

Hvad skal jeg gøre?

mvh Lars
Avatar billede kabbak Professor
29. august 2007 - 16:54 #1
det er fordi at koden for knappen ligger i det arkmodul, som knappen er på, en kode i et arkmodul, kan ikke aktivere andre ark, du må lade selve koden blive i et almindeligt modul, og så kalde koden fra arket.

I ark modulet:

Private Sub Ruder2knap_Click()
call ruder2
End Sub


I et almindelig modul:

Sub Ruder2()
'
' Ruder2 Makro
' Makro indspillet 29-08-2007 af zamorano
'

'
    Sheets("kortvalg").Select
    Range("B10:P13").Select
    Range("B13").Activate
    Selection.Cut
    Range("A10").Select
    ActiveSheet.Paste
    Range("I11").Select
    ActiveCell.FormulaR1C1 = "Ruder 2"
    Range("I12").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("I13").Select
    ActiveCell.FormulaR1C1 = "r"
    Range("I14").Select
    Sheets("Forside").Select
End Sub
Avatar billede zamorano Nybegynder
30. august 2007 - 08:26 #2
Lige hvad jeg havde brug for, takker...

Husk at give et svar, så du kan få point...

Lars
Avatar billede kabbak Professor
30. august 2007 - 09:01 #3
et svar ;-))
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
Kurser inden for grundlæggende programmering

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