Excel 2013 - hjælp med isNumeric i kode

Text = range ("A" &I)

Hej Kabbak - jeg kan se, at jeg mangler en linje i min kode i forhold til min oprindelige kode: col = "E": Det er ikke her, at problemet ligger.

Sub FlytTilFejllliste(ark, Num_of_Rows)

Dim i As Integer
Dim col As String
Dim text As integer

Sheets(ark).Activate
col = "E"
    For i = Num_of_Rows To 2 Step -1
         
        text = Range(col & i)
            If Not IsNumeric(text) Then
                Sheets(ark).Range("A" & i & " : H" & i).Copy
                Worksheets("Fejlliste").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
                Sheets(ark).Range("A" & i & " : H" & i).Delete
            End If
    Next

End Sub

Hvad går galt, bliver linien i koden hul, eller hvad sker der.

hul = gul

I Excel 2010 afvikles koden uden problemer, kun linjer med tekst flyttes til arket fejllisten. I Excel 2013, så kan jeg godt afvikle koden. Resultatet er bare, at der også flyttes nogle af de linjer, der indeholder tal i col E.

Sub FlytTilFejllliste(ark, Num_of_Rows)

Dim i As Integer
Dim col As String

Sheets(ark).Activate
col = "E"
    For i = Num_of_Rows To 2 Step -1
         
            If Not IsNumeric(Range(col & i)) And Range(col & i) <> "" Then
                Sheets(ark).Range("A" & i & " : H" & i).Copy
                Worksheets("Fejlliste").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
                Sheets(ark).Range("A" & i & " : H" & i).Delete
            End If
    Next

End Sub

Sub FlytTilFejllliste(ark, Num_of_Rows)

Dim i As Integer
Dim col As String

Sheets("ark").Activate
col = "E"
Application.ScreenUpdating = False
    For i = Num_of_Rows To 2 Step -1
         
        text = Range(col & i)
            If Not IsNumeric(text) Then
                Sheets("ark").Range("A" & i & " : H" & i).Copy
                Worksheets("Fejlliste").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
                Sheets("ark").Range("A" & i & " : H" & i).Delete
            End If
    Next
Application.ScreenUpdating = True
End Sub

Kabbak: resultatet er nu, at der er en del linjer, hvor der er tekst i Col E, som ikke bliver flyttet.

Store-Morten:  samme resultat som i Kabbaks kode.

har det nogen betydning at indholdet i Col E er resultatet af en Vlookup?

Hej hubertus.

Hvis "har det nogen betydning at indholdet i Col E er resultatet af en Vlookup?" er problemet, så prøv at tjekke dette, ved at kopiere cellerne til sig selv, som værdier.

selvfølgelig - og ja, jeg har tjekket det, med samme resultat, så det har ingen betydning.

Det først problem blev løst med følgende kode:

Public Sub Flyt_linjer(ark)
    Dim RåData As Variant, UdData2 As Variant, UdData3 As Variant, UdData4 As Variant
    Dim UD2 As Long, UD3 As Long, UD4 As Long
    Dim I As Integer, J As Long, X As Integer, Col As Integer, Rk As Long, Y As Integer
   
    UD2 = 2
    UD3 = 2
     
  Application.Sheets(ark).Activate
   
    RåData = Sheets(ark).Range("A1").CurrentRegion
    Rk = UBound(RåData, 1)
    Col = UBound(RåData, 2)

    ReDim UdData2(Rk, Col)
    ReDim UdData3(Rk, Col)
    ReDim UdData4(Rk, Col)

    For I = 1 To UBound(RåData, 2)
        UdData2(1, I) = RåData(1, I)
        UdData3(1, I) = RåData(1, I)
    Next 
     
    For J = 2 To Rk
   
        If IsNumeric(RåData(J, 5)) = True Then
                    For X = 1 To Col
                UdData2(UD2, X) = RåData(J, X)
            Next
            UD2 = UD2 + 1
       
        Else
            For X = 1 To Col
                UdData3(UD3, X) = RåData(J, X)
            Next
            UD3 = UD3 + 1     
     
        End If
      Next   
 
  Sheets("TestData").Range("A1").Resize(Rk, Col) = UdData2
  Sheets("fejl").Range("A1").Resize(Rk, Col) = UdData3

End Sub

Det er en tilrettet kode fra Kabbak, som jeg har fundet på nettet.

jeg har et lille problem tilbage.  De data som koden skal bruges på er en udlæsning fra en database. I en af kolonnerne er indeholdet et 16 cifret tal - men formatet tekst. Når jeg kører koden, så konverteres celleindholdet til tal
Hvordan får jeg bibeholdt tallet så det ikke ændres fra 9208606203199067
til 9.20861E+15