Hej jag använder mig av ett VBA för att söka ut vissa delar av ord eller siffror ur ett ark.

Nu är detta ark ganska långt ca: 200 rader, och det tar sin lilla tid att gå igenom detta varje gång jag söker.

Jag behöver inte söka igenom hela arker 2000 rader varje gång, utan jag vet ibland att jag bara behöver söka mellan rad 1-150, eller mellan rad 350-500 Kan man med nedanstående VBA lägga detta i koden, eller finns det något annat sätt att få snabbare träffar.

Jag har exempelvis enkolumn med postnummer, och vill söka alla träffar med 16 i postnummer, men jag vet att dessa förekommer endast

i rad 1-150.

I nedanstående exempel, så söker jag endast i kolumn E, men kan man även begränsa denna sökning i detta VBA till att bara söka i kolumn E1-E150? och hur skriver jag det.

Sub FiltreraRadervst()
    Dim Rad As Long
    Dim Rader As Long
    Dim NamnStr As String
    Dim c As Range
    Dim ws As Worksheet
    Dim VisaRad As Boolean
   
    NamnStr = InputBox("Visa rader innehållandes", "Filtrera")
    ActiveSheet.Rows.Hidden = False
    Set ws = ActiveSheet
    Rader = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For Rad = 10 To Rader
        VisaRad = False
        For Each c In ws.Range("e" & Rad & ":e" & Rad)
            If InStr(1, LCase(c.Value), LCase(NamnStr)) <> 0 Then
                VisaRad = True
                Exit For
            End If
        Next c
        ws.Rows(Rad).Hidden = Not VisaRad
        Application.StatusBar = Rad
    Next Rad
    Application.StatusBar = False
End Sub