question

KarelVanHoeckeVanHoeckeCS-7208 avatar image
0 Votes"
KarelVanHoeckeVanHoeckeCS-7208 asked

What must be the syntax of TEXT(Inleespointer... in the example below? Now it gives a error = 13

Dim Rij_nr As Integer
Dim Kolom_nr As Integer
Dim Waarde_ordernr_2 As Integer
Dim Volgend_order As Integer
Dim Inleespointer As Integer
Dim Positie_tabel As Integer

 Sheets("List_orders_per_email").Select
 Range("Ordernr_2").Select
 Kolom_nr = 1
 Rij_nr = 1
 Inleespointer = 1055
 Positie_tabel = 1
    
 For Inleespointer = 1055 To 1070
     Debug.Print Inleespointer
     Waarde_ordernr_2 = Application.Evaluate("SMALL(IF(A:A=CONCAT(""#"",TEXT(Inleespointer,""000#"")),Row(A:A)),1)")
     Range("Ordernr_2").Cells(Range(Positie_tabel).Value, 1).Value = Waarde_ordernr_2
     Positie_tabel = Positie_tabel + 1
     Debug.Print Positie_tabel
 Next Inleespointer
office-vba-dev
5 |1600 characters needed characters left characters exceeded

Up to 10 attachments (including images) can be used with a maximum of 3.0 MiB each and 30.0 MiB total.

0 Answers