VBA range aanpassen

[btshelp]

Ik heb een oud bestandje gevonden wat ik wil gaan gebruiken en uitbreiden. Ik weet echter niet hoe ik dit moet aanpakken.
De bedoeling is dat ik meerdere kolommen aan "invoer" kan gaan toevoegen waarvan de ingevulde gegevens uiteindelijk worden
weggeschreven naar de verschillende kolommen.
Het wegschrijven gaat prima maar gegevens in de toegevoegde kolom "Rotterdam" schrijft hij dus NIET weg?

Zal best simpel zijn maar ik zie in de (kleine) code geen enkele mogelijkheid.

 

[roeljongman]

De vba code hoeft niet aangepast te worden.

Er zit een naambereik in met de naam "Gegevens" als je die aanpast van B5:F5 naar B5:G5
dan wordt de kolom plaats ook weggeschreven.
Je kunt namen beheren via lintmenu FORMULES > Namen Beheren

 

[Cobbe]

Dan nog moet het blad met de naam uit B5 echt bestaan.

 

[roeljongman]

het zou ook wel via de VBA code kunnen

in dat geval moet je dit stuk

    Range("Gegevens").Copy Worksheets(Range("B5").Text).Range("C65537").End(xlUp).Offset(1, 0)
    Range("Gegevens").ClearContents

wijzigen in:

    Sheets("invoer").Range("B5:G5").Copy Worksheets(Range("B5").Text).Range("C65537").End(xlUp).Offset(1, 0)
    Sheets("invoer").Range("B5:G5").ClearContents

edit: en inderdaad wat cobbe zegt de datum die je in B5 invoert daarvoor moet al een sheet bestaan met die naam anders schrijft ie ook niks weg..

 

[btshelp]

Wat is het toch simpel als je weet waar je over praat!! Had ik zelf dus nooit gevonden; waar die range gedefinieerd stond.
Reuze bedankt voor de snelle reacties en oplossing.
Rob

 

[btshelp]

Nu staan alle "weg te schrijven gegevens" netjes op blad "invoer" horizontaal naast elkaar (B5 : P5) en de gegevens worden ook weer horizontaal weggeschreven naar de doelbladen.
Is het nu ook mogelijk verschillende cellen als Range te selecteren (dus bijvoorbeeld A4 B7 C20 D6 etc) welke dan vervolgens HORIZONTAAL naast elkaar worden weggeschreven?
Ik heb het geprobeerd maar dan worden de geselecteerde cellen niet netjes NAAST ELKAAR naar het doelblad geschreven.

 

[btshelp]

Iemand die weet hoe ik dit kan aanpassen??