VBA: Aanpassen aan doelopmaak

Status
Niet open voor verdere reacties.
I

icecube87

Gebruiker
Lid geworden
5 okt 2011
Berichten
46
Hallo,

graag ik wil via VBA een tabel in excel plakken die aangepast wordt aan de doelopmaak.
Als ik dat handmatig doe, dan kopieer ik de tabel van een webpagina, klik rechtermuisknop op een cel in Excel en klik "aanpassen aan doelopmaak".
Ik dacht dit via VBA te automatiseren met:

Code: 
ActiveSheet.PasteSpecial xlPasteValues

Maar dat is niet wat ik wil, want nu wordt de tekst die in de gekopieerde tabel staat, achter elkaar in één cel geplakt.
Hoe stel ik in dat " aanpassen aan doelopmaak" wordt uitgevoerd in VBA?
 
Het is mij al gelukt. Heb net ontdekt dat ik een macro kan opnemen en dan dus kan "afkijken" hoe het moet.

De oplossing:

Code: 
Sheets("WCA_worktemplate").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
 
Als je dit vaker, in andere sheets, nodig hebt, zou ik 'm nog wel aanpassen naar:
Code: 
     ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= False, NoHTMLFormatting:=True
Dan kun je de macro overal gebruiken. En natuurlijk opslaan in je Persoonlijke Macromap :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan