kolombreed voor x-aantal tabbladen vastleggen

[grema]

Kan ik via een code in vba
de kolombreedte vastlegen voor een x-aantal tabbladen.

Zoiets als : kolom A = 3 breed
kolom B = 6 breed
kolom C = 40 breed

en deze waarden dan overnemen naar de tabbladen waarin ik deze breedtes wens te gebruiken ?

 

[Justes]

Hallo Grema,

Sub Kolom()
    Sheets(Array("Blad1", "Blad3", "Blad5")).Select
    Sheets("Blad1").Activate
    Columns("A:A").Select
    Selection.ColumnWidth = 3
    Columns("B:B").Select
    Selection.ColumnWidth = 6
    Columns("C:C").Select
    Selection.ColumnWidth = 40
    Range("A1").Select
End Sub

Gr Justes

 

[popipipo]

Het hoeft niet perse met vba het kan ook als volgt.
Via kopieren en plakken speciaal kun je alleen de kolom breedte kopieëren.

- Kopieer de kolommen van het originele tabblad.
- Selecteer daarna alle tabbladen (gebruik de ctrl toets) en daarna de kolommen selecteren van het laatste tabblad
- Plakken speciaal kolom breedte

Alle tabbladen hebben de zelfde kolombreedte

 

[grema]

Justes,


Alvast bedankt voor de hulp maar : .....

Als leek plakte ik de code die je opgaf in de module van VBA
en paste ik de TAB BLADEN aan met de juiste naam.

Toch gebeurd er niets

Wat loopt er fout ?

grema

Sub Kolom()
    Sheets(Array("Afvoerbuis binnen", "Goten", "Blad5")).Select
    Sheets("Afvoerbuizen binnen").Activate
    Columns("A:A").Select
    Selection.ColumnWidth = 3
    Columns("B:B").Select
    Selection.ColumnWidth = 6
    Columns("C:C").Select
    Selection.ColumnWidth = 55
    Range("A1").Select
End Sub

 

[Justes]

Hallo Gremma,

Sorrie, klik maar op Ctrl+x

Gr Justes

 

[grema]

Thx ,

copieren via selekteren en plakken speciaal was te eenvoudig.

Ging het weer veel te complex proberen op te lossen ; waar het zo eenvoudig was.

Bedankt voor de moeite.

grema

 

[Road Dogz]

"Private Sub Workbook_Open()"

als je dit gebruikt ipv "Sub Kolom()" dan gebeurt die macro automatisch bij het openen van het bestand.

 

[Wigi]

.Select is bij de kolombreedtes niet nodig:

Sub Kolom()
    Sheets(Array("Afvoerbuis binnen", "Goten", "Blad5")).Select
    Sheets("Afvoerbuizen binnen").Activate
    Columns("A:A").ColumnWidth = 3
    Columns("B:B").ColumnWidth = 6
    Columns("C:C").ColumnWidth = 55
End Sub

 

[Justes]

"Private Sub Workbook_Open()"

als je dit gebruikt ipv "Sub Kolom()" dan gebeurt die macro automatisch bij het openen van het bestand.

De Bladen selecteren (Ctrl vasthouden) waarvan de kolom breedtes aangepast moet worden en kolombreedtes aanpassen is nog makkelijker.

Gr Justes

 

[Wigi]

Het hoeft niet perse met vba het kan ook als volgt.
Via kopieren en plakken speciaal kun je alleen de kolom breedte kopieëren.

- Kopieer de kolommen van het originele tabblad.
- Selecteer daarna alle tabbladen (gebruik de ctrl toets) en daarna de kolommen selecteren van het laatste tabblad
- Plakken speciaal kolom breedte

Alle tabbladen hebben de zelfde kolombreedte

Wat ook kan is de tabbladen onderaan via de bladtabs selecteren (gebruik Ctrl en Shift erbij), verander de kolombreedtes op het blad dat je ziet, en deselecteer dan de groep van tabbladen.

Wigi

 

[Wigi]

De Bladen selecteren (Ctrl vasthouden) waarvan de kolom breedtes aangepast moet worden en kolombreedtes aanpassen is nog makkelijker.

Gr Justes

LOL, echo-o-o :thumb:

 

[Justes]

.Select is bij de kolombreedtes niet nodig:

Sub Kolom()
    Sheets(Array("Afvoerbuis binnen", "Goten", "Blad5")).Select
    Sheets("Afvoerbuizen binnen").Activate
    Columns("A:A").ColumnWidth = 3
    Columns("B:B").ColumnWidth = 6
    Columns("C:C").ColumnWidth = 55
End Sub

Hallo Wigi,

Dat krijg je met beginners, ik had de code verkregen door Macro opnemen, weer wat geleerd, dank

Gr Justes

 

[grema]

ik volg nog.

ook al ben ik dan maar een leek .

Het is leuk dat je op de meest " eenvoudige " vragen ( toch voor jullie )zo snel reactie krijgt.

alvast " merci "

grema

 

[Wigi]

Dat krijg je met beginners, ik had de code verkregen door Macro opnemen, weer wat geleerd, dank

Geen nood, iedereen is als beginner gestart ;-)

De macro recorder is trouwens heel goed om te kijken welke objecten, methoden en eigenschappen er zijn. Op F2 drukken in VBA is daarbij ook nuttig. Dat kan vaak hatelijke foutmeldingen uitklaren.

Wigi