rij tussenvoegen dmv macro

[bornholm]

Hallo,
Ik heb 1 kolom (A) waar op diverse plaatsen (rijen) het cijfer 1 staat.
Deze kolom A wil ik automatisch naar het cijfer 1 laten zoeken en als hij deze waarde tegenkomt, moet hij een rij tussenvoegen. Vervolgens moet hij in de kolom verder gaan met het zoeken naar de volgende 1 om daar weer een rij tussen te voegen. Totdat alle waarden 1 in de kolom zijn gevonden.

Is dit in een macro te gieten?
Ik heb een voorbeeldbestandje bijgevoegd.

Alvast bedankt voor de moeite.

Bornholm

 

[Wigi]

Bijvoorbeeld:

Sub ff()
    Columns(1).SpecialCells(2, 1).Insert
End Sub

 

[bornholm]

Hoi Wigi,
Bedankt voor je reactie. Ik kon door omstandigheden helaas niet eerder reageren. :-(

Maar je oplossing werkt niet helemaal.
Jij voegt een lege cel tussen, maar het is de bedoeling dat er een hele lege rij tussengevoegd wordt. Naast deze ene kolom staan nl. nog meer kolommen die ik in het voorbeeld niet had neergezet. Maar die moeten ook opschuiven naar beneden.
Is daar ook een oplossing voor?

Bedankt alvast.

B.

ps. Ik heb een nieuw voorbeeld bijgevoegd met een extra kolom.

 

[Warme bakkertje]

Sub ff()
    Columns(1).SpecialCells(2, 1).EntireRow.Insert
End Sub

 

[bornholm]

Hoi Warme bakkertje,
Hartstikke bedankt voor je snelle reactie.
Ik ga het direkt proberen.

Maar nu heb ik een volgende volgens mij nog ingewikkelder vraag.

Vraag:
Lukt het ook om de rijen met een 1 op een veelvoud van 8 te krijgen?
Dus een rij met een 1, dan 7 tussenliggende rijen (de tussengevoegde
cellen hiervan mogen dus leeg zijn), dan weer een rij met een 1 etc.

Een voorbeeldje heb ik bijgevoegd.

Ik hoor graag van je.
Groet,
B.