Hopelijk kan iemand mij hiermee helpen.
Kolom A = Datum: van
Kolom B = Datum: tot
Kolom C = aantal toe te voegen rijen in kolom A
Voorbeeld:
Kolom A = Datum: 01-11-2021
Kolom B = Datum: 05-11-2021
Kolom C = 4
4 lege rijen toevoegen onder 01-11-2021
Resultaat in kolom A
01-11-2021
02-11-2021
03-11-2021
04-11-2021
05-11-2021
Zie bijlage.
Tabs Source en resultaten.
Op Internet gezocht, maar helaas niets kunnen vinden dat hierop lijkt.
Hartelijk dank bij voorbaat!
-
LATER
====
Probleem opgelost. Weliswaar niet echt netjes, maar okay.
Ik heb toch nog een macro gevonden - geeft weliswaar een foutmelding maar doet het wel. Wat de foutmelding inhoudt, geen idee. Screenupdating(??)
Macro
Lege rijen worden toegevoegd
Dan onder de eerste lege cel staan, =a3+1, CTRL-C
Dan lege cellen in die kolom selecteren
Daarna CTRL-V
Zoals gezegd, het is allemaal niet zo fraai, maar gelukkig wel opgelost.
Ik post dit omdat anderen het misschien kunnen gebruiken in de toekomst.
De macro gaat uit dat de waarden in kolom C staan, staan die elders dan moet de macro aangepast worden.
Kolom A = Datum: van
Kolom B = Datum: tot
Kolom C = aantal toe te voegen rijen in kolom A
Voorbeeld:
Kolom A = Datum: 01-11-2021
Kolom B = Datum: 05-11-2021
Kolom C = 4
4 lege rijen toevoegen onder 01-11-2021
Resultaat in kolom A
01-11-2021
02-11-2021
03-11-2021
04-11-2021
05-11-2021
Zie bijlage.
Tabs Source en resultaten.
Op Internet gezocht, maar helaas niets kunnen vinden dat hierop lijkt.
Hartelijk dank bij voorbaat!
-
LATER
====
Probleem opgelost. Weliswaar niet echt netjes, maar okay.
Ik heb toch nog een macro gevonden - geeft weliswaar een foutmelding maar doet het wel. Wat de foutmelding inhoudt, geen idee. Screenupdating(??)
Macro
Code:
Sub InsertRows()
Dim End_Row As Long, n As Long, Ins As Long
End_Row = Range("C" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For n = End_Row To 1 Step -1
Ins = Cells(n, "C").Value
If Ins > 0 Then Range("C" & n + 1 & ":C" & n + Ins).EntireRow.Insert
Next n
Application.ScreenUpdating = True
End Sub
Lege rijen worden toegevoegd
Dan onder de eerste lege cel staan, =a3+1, CTRL-C
Dan lege cellen in die kolom selecteren
Daarna CTRL-V
Zoals gezegd, het is allemaal niet zo fraai, maar gelukkig wel opgelost.
Ik post dit omdat anderen het misschien kunnen gebruiken in de toekomst.
De macro gaat uit dat de waarden in kolom C staan, staan die elders dan moet de macro aangepast worden.
Bijlagen
Laatst bewerkt: