Werken met adresinterval in Excel

[Exceldummie]

Beste Excelprofi's,

Ik heb een adressenbestand met postcode en huisnummerinterval:
(voorbeeld):
wijkcode lettercombinatie huisnr_van huisnr_tm reeksindicatie straatnaam
1000 KT 1 43 ONEVEN Appelstraat
1001 AB 2 50 EVEN Perenbuurt
enz...
(de kolommen zijn bij het copieren niet recht onder elkaar gekomen).

Nu heb ik de volgende vraag: is het mogelijk om met excel op eenvoudige wijze het huisnummerinterval om te zetten naar alle huisnummers binnen dat interval?
Aangezien het een groot bestand is, is handmatig uitrekenen geen werk.

Ik ben heel benieuwd of iemand mij kan helpen.

Groeten,
Joke

 

[koosl]

Joke,

welkom op het HelpMij forum.

Als je een klein Excel voorbeeldje maakt met daarin hoe het nu is en hoe je het graag zou willen hebben, zegt dit meer dan een beknopte omschrijving.

Ook is dan direct duidelijk hoe je de opbouw hebt gemaakt.

e.e.a. is ook te lezen in de link hieronder.
http://www.helpmij.nl/forum/showthread.php?t=278887

Natuurlijk de gevoelige informatie verwijderen en het Excel voorbeeld eerst zippen.

Je bent op de juiste plaats...

Op HelpMij zijn voldoende mensen die je graag willen helpen.


Koosl.

 

[Exceldummie]

Beste Koosl,

Hierbij het bestand.
Ik heb het wat ingekort, het bronbestand beslaat meer regels.
Op het tweede tabblad heb ik het gewenste resultaat als voorbeeld weergegeven.
Alvast bedankt voor de steun!

Groeten,
Joke

 

[Wigi]

Hallo Joke

hier een macro voor jou geschreven:

Sub allehuisnummers()
Dim c As Range, i As Integer, teller As Long
Application.ScreenUpdating = False
teller = 0

With Sheets("gewenst resultaat").Cells
    .ClearContents
    
    With .Range("A1")
        .Offset(, 0) = "straatnaam"
        .Offset(, 1) = "Huisnummer"
        .Offset(, 2) = "wijkcode"
        .Offset(, 3) = "lettercombinatie"
        .Offset(, 4) = "plaatsnaam"
    End With
End With

For Each c In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    For i = c To c.Offset(, 1) Step 2
        teller = teller + 1
        With Sheets("gewenst resultaat").Range("A1")
            .Offset(teller, 0) = c.Offset(, 3)
            .Offset(teller, 1) = i
            .Offset(teller, 2) = c.Offset(, -2)
            .Offset(teller, 3) = c.Offset(, -1)
            .Offset(teller, 4) = c.Offset(, 6)
        End With
    Next
Next
Application.ScreenUpdating = True
MsgBox "Klaar"
End Sub

Wigi

 

[Exceldummie]

Hoi Wigi,

Heel hartelijk bedankt voor je moeite. (en zo snel al!!!)
Ik krijg alleen een syntaxisfout in de Virtual Basic-macro als ik hem uitvoer.
Wat doe ik fout?
Ik heb je formule gecopieerd naar de Virtual Basic editor, die vervolgens opgeslagen en afgesloten en voer de macro vervolgens uit via Extra - macro op het werkblad.
Graag je reactie.

Bedankt,
Joke

 

[Exceldummie]

Hoi Wigi,
Een beetje voorbarig van mij...:shocked:
Ik ben er al uit, ontzettend bedankt voor je hulp !!!!
Groeten,
Joke

 

[Wigi]

Een beetje voorbarig van mij...:shocked:

Ik had hem getest, dus was vrij zeker dat het werkte.

Graag gedaan Joke, tot de volgende.

Wigi