waarde opvolgend

[Imod]

Hallo allemaal

Ik heb een vraagje - misschien heel eenvoudig maar ik kan er niet zogauw opkomen.
In cellen onder elkaar heb ik de cijfers 1, 2, 3, 4, 5, enz. staan.
Cel A1 staat 1
Cel A2 = A1 +1
Cel A3 = A2 +1 zo krijg ik een opvolgend reeks.

Als ik Rij 2 er uit haal (knop Rijen verwijderen)
dan gaat alles na cel A1 1 rij omhoog
dan staat er in rij 2 =#VERW!+1
Hoe kan ik het zo maken dat de rij opvolgend blijft??

mvg

 

[testje]

Als je de rijen niet wilt zien kun je ze verbergen.

 

[VTeun]

Hoi,

Het is me niet helemaal duidelijk wat je wilt.
Als je rij twee verwijderd, zou je in principe moeten krijgen:
1
3
4
5
6
etc.

Is dat je bedoeling?

Teun

 

[evhaarst]

Nee Teun, Imod bedoelde dat niet, want het probleem ontstaat door de verwijzingen die onderbroken worden. Ik heb een oplossing voor imod, hoewel ik het gevoel heb dat het simpeler kan met formules, maar dit gaat dmv een macro goed en snel...

Ga naar Visual basic onder het menu extra/macro's... Maak een nieuwe module aan en zet de volgende macro erin:
Sub Reeks()
Application.ScreenUpdating = False
startcel = ActiveCell.Address 'deze cel onthouden om naar terug te keren
If Cells(1, 4) <> "" And Cells(2, 4) = "" Then
Exit Sub 'macro beeindigen als 2e cel leeg is, dan valt er geen reeks te maken
End If
Range(Cells(1, 4), Cells(1, 4).End(xlDown)).Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False 'vult reeks in omlaag
Range(startcel).Select 'terug naar de cel die actief was toen de macro startte
Application.ScreenUpdating = True
End Sub

en in het betreffende blad waar je reeks in staat moet je ook een korte macro hebben (in VB bij de excel-objecten het blad aanklikken, in mijn geval "Blad1"; daar zet je het neer. Dit heeft al gevolg dat bij elke verandering in het blad de macro Reeks wordt gestart):

Private Sub Worksheet_Change(ByVal Target As Range)
Reeks
End Sub

Succes ermee.

 

[evhaarst]

nog een toevoeging: Cells(1,4) = D1. Je moet die verwijzingen denk ik nog aanpassen afhankelijk van waar jouw reeks begint. Als het A1 is wordt dat (1,1).

 

[jzeedijk]

Hoi Imod,

Heel ingewikkeld met VBA lijkt mij voor een simpele vraag.

Er zijn een paar mogelijkheden in Excel:
=INDEX(A:A;RIJ()-1)+1
=INDIRECT(ADRES(RIJ()-1;KOLOM()))+1

Twee verschillende mogelijkheden met hetzelfde resultaat.

Jeroen

 

[Imod]

geholpen

Hallo Jeroen,

Ik ben geholpen, de formule =INDEX(A:A;RIJ()-1)+1
pas mij goed en is makkelijk.
Bedankt hiervoor
mvg