• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Automatisch kolommen aan de tekst aanpassen via vba

Status
Niet open voor verdere reacties.
Ik heb het weer terug gezet.

Als je nu kijkt naar kolom C en D dan heeft D de zelfde breedte als C. terwijl dit toen ik hem op 3 had staan ze wel mooi in gelijk cellen stond D en E.



zie bijlage:

Gr Sloekie.
 

Bijlagen

  • nieuwe ploegenschema 2016 (3).xlsb
    68,1 KB · Weergaven: 31
Ik zie het probleem niet; de mergedcell heeft de breedte van kolom B + de standaardbreedte van 5.29.
Ik zie alleen maar meer problemen als je de mergedcells op 5.29 wilt.
5.29 = 42 pixels
Mergedcells van twee kolommen = 2*42 = 84
Kolom B heeft 100 pixels nodig.

Je mergedcell = 16 pixels te smal.

Edit: Zet dit eens als het laatste stukje code.
Code:
Next cl
  For j = 3 To 33
   Columns(j).ColumnWidth = IIf(r(1, j - 2) <> "" And r(1, j - 2).MergeArea.Address = r(1, j - 2).Address, Columns(2).ColumnWidth, 5.29)
   If Columns(j).ColumnWidth <> 5.29 And r(1, j - 2).Interior.ColorIndex <> 15 Then r(1, j - 2).Interior.ColorIndex = 6
  Next j
  Application.DisplayAlerts = True
End Sub
 
Laatst bewerkt:
Hallo HSV

Dit is wat ik bedoel het werkt perfect. :thumb::thumb:

Mag ik je bedanken.

Gr Sloekie
 
Uiteraard, graag gedaan.
 
Hallo

Ik heb nog een probleempje bij Februari namelijk als ik hier Krokusverlof de datum inzet dan kleurt hij ook de datums 29 t/m 31 ook.

Er zijn in 2018 maar 28 dagen.

Zie bijlage.

Ik heb al geprobeerd met een voorwaardelijk opmaak maar dat wil niet.

Gr Sloekie
 

Bijlagen

  • nieuwe ploegenschema 2016 (3).xlsb
    67,9 KB · Weergaven: 40
Ik heb het voor je aangepast.
Kolom A en B moet jezelf maar weer goed zetten, ik heb voor controle alles op 2018 gezet.
 

Bijlagen

  • nieuwe ploegenschema 2016 4.xlsb
    64 KB · Weergaven: 46
Hallo

Sorry voor de late reactie.

Ben een paar dagen ziek geweest.

Ik ben er even mee bezig geweest en dingen wat willen aanpassen maar het lukte niet wat ik wou.

Ik heb de woorden verlof naar vakantie gezet nu blijkt dat hij op sommige data's niet breder worden b.v als je de zomervakantie neemt en de
laatste 2 dagen dan verbreedt hij namelijk niet om dit passend te maken.

En is het ook mogelijk om de omlijning zo te krijgen dat je die ziet als de cel leeg is. want hij doet dit niet als de cellen die leeg zijn en samengevoegd zijn.

Ik hoop dat je mij hier nog even mee wilt helpen want dit werkt niet met voorwaardelijk opmaak.

Zie bijlage:

Alvast mijn dank hiervoor.

Gr Sloekie
 

Bijlagen

  • nieuwe ploegenschema 2016 4 (2).xlsb
    66,5 KB · Weergaven: 35
Daar had ik je voor gewaarschuwd in #22.
Zet elke kolom standaard op 50 pixels → 6.43,

.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan