Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Nummering met overslaan

282 views
Skip to first unread message

Rinus

unread,
Mar 23, 2010, 5:02:03 AM3/23/10
to
Beste Excellers,

Ik wil in kolom A een nummering aanbrengen waarbij er soms 2-3 rijen wordt
overgeslagen waarin geen nummering komt. Dus bijv:
in A2 staat 1
in A3 staat 2
in A5 wil ik dan 3 hebben
in A6 wil ik dan 4 hebben
in A7 wil ik dan 5 hebben
in bijv. A10 wil ik dan 6 hebben
etc. etc.

Het aantal getallen dat onder elkaar staat, kan variëren. Dus soms staan er
maar 2 getallen onder elkaar en soms 6. Daarnaast kunnen er rijen bijkomen of
'afvallen'. Dus als er een rij bijkomt, moet de nummering automatisch
doorlopen en als er een rij wordt verwijderd moet de nummering ook nog
kloppen. Ik hoop dat ik zo duidelijk genoeg ben. Iemand een idee?

Groeten,

Rinus

ph

unread,
Mar 23, 2010, 6:41:03 AM3/23/10
to
Plak dit in je code.
Deze procedure kijkt of er in kolom B iets ingevuld is om dan kolom A te
nummeren
In dit voorbeeld wordt B1 to B100 gecontroleerd


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim teller
teller = 1
For rwindex = 1 To 100
For colindex = 2 To 2
With Worksheets("Sheet1").Cells(rwindex, colindex)
If Not (.Value) = "" Then
Worksheets("Sheet1").Cells(rwindex, colindex - 1).Value = teller
teller = teller + 1
End If
End With
Next colindex
Next rwindex

End Sub

Kweenie

unread,
Mar 23, 2010, 7:18:10 AM3/23/10
to

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim teller
teller = 1

For Row = 1 To 100
Column = 2
With Sheets(1).Cells(Row, Column)


If Not (.Value) = "" Then

Sheets(1).Cells(Row, Column - 1).Value = teller


teller = teller + 1

ElseIf (.Value) = "" Then
Sheets(1).Cells(Row, Column - 1).ClearContents
End If
End With
Next Row
End Sub

Nu wordt ook het getal 1 verwijderd als in kolom B iets verwijderd
wordt.

Mvg

Piet

Rinus

unread,
Mar 23, 2010, 7:20:03 AM3/23/10
to
Beste ph,

Dit werkt prima. Dank je wel voor je snelle reactie!

Groeten,


Rinus

jan

unread,
Mar 23, 2010, 7:37:23 AM3/23/10
to
Rinus,

Met VBA lukt dit uiteraard (overigens zou ik niet Worksheet_SelectionChange
gebruiken maar Worksheet_Change en testen of Target in kolom 2 staat), maar
ook zonder kan het prima.
Een mogelijkheid:

Zet onderstaande formule in A1 en trek deze door naar beneden zover als
nodig is.

=ALS(LENGTE(B1)>0;AANTALARG($B$1:B1);"")

Jan


Kweenie

unread,
Mar 23, 2010, 7:45:31 AM3/23/10
to


En nog korter
=ALS(B1<>"";AANTALARG($B$1:B1);"")

Mvg

Piet

Rinus

unread,
Mar 23, 2010, 10:21:01 AM3/23/10
to
Beste Jan en Kweenie,

Bij de VBA was het inderdaad zo dat het getal niet verdween als je iets in
kolom B verwijderde.

De oplossing van Jan bevalt mij nog het best. Dat werkt prima zo. Als ik die
andere oplossing gebruik in kolom A, worden A1 en A2 samengevoegd (vreemd
genoeg).

Bedankt voor het meedenken en oplossen. Ik ben er blij mee!

Groeten,

Rinus

"Kweenie" wrote:

> .
>

0 new messages