13. november 2012 - 17:44Der 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?
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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
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.