For Next Select Case loopt niet?

[PJurriaans Sr]

Helpers ik doe weer een beroep op U,ik heb in Excel in colom A:A 500 rekening nummers

in colom B:B moet een code komen .De volgende procedure wil niet werken wat doe ik
niet goed??wie weet dat Mvg peter

Public Sub CodeRekening()
Dim Teller As Integer
For Teller = 1 To 33
With [B:B] '  hier komt de nieuwe waarden
 
Select Case [A:A].Value
                
Case ""
.Value = "1"
Case 6851279, 489381677
.Value = "2"
Case 5107439, 482233990
.Value = "3"
Case 301010455
.Value = "4"
Case 503, 869000
.Value = "5"
Case 129637
.Value = "6"
Case 300033710, 496556762, 511544669
.Value = "7"
Case 845745, 575478853
.Value = "8"
Case 2445588, 302568581, 315966645, 548099383
.Value = "9"
Case 196490
.Value = "10"
Case 328286400
.Value = "11"
Case Els
.Value = "12"
End Select

End With
Next Teller
End Sub

 

[snb]

Wat betekent [A:A].Value: wat is de waarde van een kolom ???
Wat is de combinatie van de lus en [B:B]: 33 keer dezelfde kolom ??

Vergeet die select case .
Maak 1 tekstreeks met alle tegenrekeningnummer, gescheiden door een pipeline.
Zet voor iedere tegenrekeningnummer de grootboekrekening met een #.
Bijv. zo:

c1="1#6851279|1#489381677|2#5107439|2#482233990"
dan kun je cel A1 t/m A33 aflopen

de grootboekrekening vind je met:
c2=right(left(c1,instr(c1,[A1])-2),1)

 

[PJurriaans Sr]

snb Bedankt voor de snelle reactie.Met A;A bedoel ik de colom A met met de For next lus
33 x moet het prog doorlopen worden.naar de rest van uw sugesties ga ik vermoedelijk don zitten kijken voor ik daar ook maar iets van begrijp,wat is in hemelsnaam een pipelin
op mijn toetsenbord zit hij zeker niet, ik denk als ik het geen U heeft geopperd begrijp
dat ik dan geen vragen meer hoef te stellen.Maar ik blijf proberen Mvg Peter