Slette række med bogstaver i 1'ste eller 3'de karakter

Prøv at undersøge et tegn ad gangen

For i = 1 To Len(range("A238").Value)
    a = Mid(c.Value, i, 1)
    If IsNumeric(a) And (i = 1 Or i = 3) Then
        -- DIN KODE HER --
    End If
Next i

Hvis den skal være mere generel så

For Each c In Range("A1:A1000").Cells
    For i = 1 To Len(c.Value)
        a = Mid(c.Value, i, 1)
            If IsNumeric(a) And (i = 1 Or i = 3) Then
            - - Din kodeher --
            End If
    Next i
Next c

Ret selv området i den sidste så det passer.

Den første kode er forkert. Her er den rigtige:

For i = 1 To Len(range("A238").Value)
    a = Mid(range("A238").Value, i, 1)
    If IsNumeric(a) And (i = 1 Or i = 3) Then
        -- DIN KODE HER --
    End If
Next i

Hej Jkrons

Problemet er lidt jeg gerne vil have den strikket ind sammen med en masse andre betingelser
Jeg har denne snas code som løser alt på nær det du har lavet oven for, kan de tpå en smart måde strtikkes ind her, så jeg undgår at løbe de titsundvis af rækker igennem flere gange?

With Range("Ark1!A2:J" & Lastrow)
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        VareNr = .Cells(r, 1)
        If Mid(VareNr, 3, 1) = "0" Or Mid(VareNr, 1, 2) = "7-" Or Mid(VareNr, 1, 2) = "8-" _
                    Or Mid(VareNr, 1, 4) = "8938" Or Mid(VareNr, 1, 4) = "8939" Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
End With

Mvh Carsten

Har løst det, smid et svar så er der point!

Et svar :-)