Avatar billede kim1a Ekspert
13. november 2012 - 17:44 Der er 2 kommentarer og
1 løsning

Lille nemt VBA fejl spørgsmål (Match findes ikke)

Jeg har denne lille makro:

Sub Øvrige()
'
' Øvrige Makro
'
Dim Øvrige As String
Dim ws As Integer
'
For ws = 1 To ThisWorkbook.Sheets.Count
Sheets(ws).Select
    Øvrige = (Application.WorksheetFunction.Match("Øvrige", Range("A1:A267"), 0))
    If Øvrige = vbError Then GoTo Næste
    Rows(Øvrige).Delete
Næste: Next ws
End Sub

Men hvis Øvrige ikke eksisterer i et ark (i A kolonnen) så melder den fejl, fremfor at gå videre til næste ark. Jeg troede vbError var min løsning, men måske der skal noget andet til?
Avatar billede tbak Nybegynder
13. november 2012 - 18:08 #1
Hej Kim1a
Prøv med
Sub Øvrige()
'
' Øvrige Makro
'
Dim Øvrige As String
Dim ws As Integer
'
For ws = 1 To ThisWorkbook.Sheets.Count
Sheets(ws).Select
    On Error Resume Next
    Øvrige = (Application.WorksheetFunction.Match("Øvrige", Range("A1:A267"), 0))
    Rows(Øvrige).Delete
Next ws
End Sub
Avatar billede kim1a Ekspert
14. november 2012 - 09:30 #2
Super - tak. Smid et svar :-)
Avatar billede tbak Nybegynder
14. november 2012 - 17:06 #3
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
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