adresblok in kolom kopie naar rij

[jgkruger]

ik heb een groot aantal adresblokken in excel. in de eerste kolom staat per adresbok een nummer. ik heb de blaco 'lege' regels al verwijderd met een scipt. nu wil ik het overzichtelijker maken door de adresblokkentekst te kopieieren naar een ander werkblad waar de gegevens in meerder kolommen getoond worden.

De volgende stap is dan om uit de naam de titel te knippen en deze in de betreffende kolom te plakken. zo ook voor de instellingsoort welke tussen vierkante haken staat en postcode + plaats.

ik ben al even bezig geweest met onderstaand script, maar deze doet lang nog niet wat ik wil. Kan iemand hulp bieden?

Godfried

Sub copying()
Dim lRow As Long

For lRow = 1 To Range("B65536").End(xlUp).Row Step 6
Range("c" & lRow).Resize(4, 1).Copy Worksheets("B").Range("IV2").End(xlToLeft).Offset(0, 1)
Next
End Sub

 

[jgkruger]

al iets verder gekomen

heb dit op het forum gevonden.
Sub Transponeren()
For i = 1 To Range("A65000").End(xlUp).Row Step 6
Range("C" & i & ":C" & i + 5).Select
Selection.Copy
Range("D" & Range("D65000").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Next
End Sub

1) nu alleen het probleem dat niet ieder blok even groot is. soms is het 5 regels, soms 7 of 9 regels.hoe kan ik het aanpassen zodat excel de rij regels per blok omzet in kolomgegevens en pas een nieuwe regel gaat vullen nadat (in de brongegevens) een nieuw nummer in kolom A wordt getoond?
2) Verder lukt het mij nog niet om de data te transponeren naar een ander werkblad.

3) hoe kan de straat, het huisnummer, de woonplaats en de postcode (in één regel in de originele data) kopieerne naar aparte kolommen voor ieder item?