Cijferreeksen van 20 en 30 cijfers en formules in Excel

[Prozac1970]

Lieve Mensen,

Ik kom er even niet uit.

MS Excel 2013 en formules met cijferreeksen van 20 of 30 cijfers lang.

Bijvoorbeeld: 19900000600000000000 (A1) in B1 de waarde 1.
In de kolom A dienen de waarden van A2 t/m A999 neergezet te worden waarbij iedere volgende cel verhoogd dient te worden met de waarde als vermeld in B1
Dus: de formule in A2 -> =SOM(A1;$B$1). In A3 -> =SOM(A2;$B$1)

Maar ik heb geen work around vwb die die magische grens van 15 cijfers... Bummer en om het nou handmatig in te gaan geven?

Iemand een idee?

TNX,

Marcel

 

[snb]

Ik denk dat je hem gewoon als tekstreeks moet behandelen.


bijv.

Sub M_snb()
  c00 = "199000000000000000000000"

  For j = 1 To 127
     MsgBox Left(c00, Len(c00) - 4) & Format(j + Right(c00, 4))
     Cells(j, 1) = Format(Left(c00, Len(c00) - 4) & Format(j + Right(c00, 4)), "'@")
  Next
End Sub

 

[Prozac1970]

Dank je SNB voor je antwoord.

Dacht het op te lossen met een formule en heb helemaal niet aan VBA gedacht. Dank!

Ben al wat aan het spelen met jouw code. Wat er nu gebeurt is dat de cijfersreeks van 20 lang bij een tiental erbij 21 lang wordt en bij een 100-tal erbij dus 22 lang. Wat ik probeer te bereiken is om in die reeks van 20 (of 30) cijfers de reeks iedere keer met 1 te verhogen zonder dat de tekenreeks zelf langer wordt. Dus altijd blijft bestaan uit maximaal 20 of 30 cijfers.

bijvoorbeeld:
19900000600000000000
+1 tot:
19900000600000000010
+1 tot:
19900000600000000100
+1 tot:
19900000600000001000
+1 tot:
19900000600000010000
etc...

Mijn kennis van VBA schiet in deze tekort, mag ik nog een keer een beroep op je doen?

TNX

 

[snb]

Dit was jou ook gelukt:

Sub M_snb()
  c00 = "199000000000000000000000"

  For j = 1 To 10^5
     MsgBox Left(c00, Len(c00) - len(format(j))) & Format(j)
  Next
End Sub

 

[Prozac1970]

TNX SNB!

Aangepast en het werkt. dank voor je hulp!