Auteur Topic: Exel kolommen (gelezen 6807 keer)

Paloma45 · « **Gepost op:** 29 augustus 2008, 18:59:08 »

Hoe kan ik instellen dat de kolombreedte automatisch groter wordt als de tekst te groot wordt???

RedHead · « **Reactie #1 Gepost op:** 29 augustus 2008, 21:08:47 »

Paloma45, welkom op dit forum.

Het instellen van de kolombreedte gaat helaas niet automatisch tijdens het typen. Je kan wel na enter op het zwarte lijntje tussen de 2 kolommen dubbelklikken met je muis. De kolom past zich dan automatisch aan aan de breedst gevulde cel in die kolom. Dus stel dat je in kolom B een cel aan 't vullen bent, dan moet je na enter klikken op het streepje tussen de B en de C in de kolommen.

Groet, Leo

danny147 · « **Reactie #2 Gepost op:** 30 augustus 2008, 23:15:33 »

Beste Paloma45

Met een code kan het wel !

Druk op Alt F11 en dubbelklik op thisworkbook en plaats volgende code hierin.

Code: [Selecteer]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
          ActiveCell.Columns("A:Z").EntireColumn.EntireColumn.AutoFit
End Sub

Dan typ je "TEKST" + ENTER in cel A1 voor controle en in cel B2 typ je "DIT IS EEN LANGERE TEKST"+ ENTER, en zie wat er gebeurt.

Dit kan enkel als de volledige tekst getypt is en wordt niet aangepast tijdens het typen.

Dit is enkel voor alle cellen tot kolom Z, ander moet je in de code de Z veranderen in een ander letter VB. XFD voor excel 2007.

Groetjes Danny.

RedHead · « **Reactie #3 Gepost op:** 30 augustus 2008, 23:38:44 »

Danny, uiteraard prima om dit via VBA op te lossen (vinnik zelf óók het leukste

). Maar ik zou er wel voor kiezen om het in de worksheetmodule zelf te houden en dan vooral met het Worksheet_Change event. Dit voorkomt het veelvuldig afvuren van de code. Om het helemaal mooi te maken kan je dan nog aan het begin van het event aangeven om welke kolom het gaat. Dan beperk je nog meer vertraging.

Groet, Leo

EDIT: voorbeeld codeblokje... (kolom B wordt aangepast na enter)

Code: [Selecteer]

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 2 Then Target.EntireColumn.AutoFit

End Sub

danny147 · « **Reactie #4 Gepost op:** 30 augustus 2008, 23:49:19 »

Beste RedHead

Heb de code van het internet gehaald en alleen aangepast dat ze voor alle cellen kan gebruikt worden, zie site.
Natturlijk kan alles korter en beter, maar voor geen VBA expert te zijn is het me toch aardig gelukt.

PS. is er iets fout aan uw code, omdat ze niet werkt bij mij

https://pluscomp.nl/excel/kolombreedte.htm

Groetjes Danny.

RedHead · « **Reactie #5 Gepost op:** 31 augustus 2008, 00:23:16 »

Danny147, Ik hoop niet dat fout gevoel aan m'n post overhoudt.

Het was puur en alleen als aanvulling op de door jou geboden code. Ik zou zeggen, ga vooral door met programeren. Het is namelijk zo leuk!

Voor wat betreft je 'ps'... Mijn coderegel werkt alleen voor kolom B. Dus als je daarin iets tikt, zal het toch echt werken. (zo niet, verneem ik dat graag)

Groet, Leo

danny147 · « **Reactie #6 Gepost op:** 31 augustus 2008, 01:03:09 »

Beste RedHead

Het werkt perfect in kolom B.
Ik had op een paar cellen geklikt en woorden getypt, maar waarschijnlijk niet 1 keer in kolom B.

Groetjes Danny.

Paloma45 · « **Reactie #7 Gepost op:** 31 augustus 2008, 19:34:54 »

Allereerst bedankt voor de snelle reaktie.

Ik krijg het niet voor elkaar ligt dat soms aan mijn nederlandse versie?? 2003

RedHead · « **Reactie #8 Gepost op:** 31 augustus 2008, 21:28:47 »

Paloma45, De geboden oplossing is een VBA code. Die moet je plakken in je Visual Basic Editor. Klik met je rechtermuisknop op de tab van je werkblad. Kies in het pop-up menu voor View Code (weet niet de nederlandse benaming, maar het is de onderste optie). De editor wordt dan geopend. Plak op die plaats de code van mij OF kijk aan de linkerkant in de Project Browser naar een map met de naam ThisWorkbook om de code van Danny te plakken.
Na het plakken sluit je de editor door op het rechterboven x-je te klikken. Vanaf dan kan je gebruik maken van de code in de sheet....

Groet, Leo

SoftAid · « **Reactie #9 Gepost op:** 31 augustus 2008, 22:33:57 »

Hallo RedHead,

In een nederlandstalige Excel 2002 (XP) werkt je code ook niet. De VBA is nochtans in het engels, en aanvaard en vult de code aan als ik ze handmatig ingeef. Wat er niet gebeurd is dat de code uitvoerbaar wordt. Normaal klik ik in de VBA-editor op Uitvoeren, en dan krijg ik een keuzevenster met alle macro's. In dit geval zit Private Sub Worksheet_Change(ByVal Target As Range) er niet bij, niet als ik de code in een werkblad of in een module plaats.

De code doet dus ook niets als ik de code opsla, de editor afsluit en een" langer dan de cel" tekst intyp en op Enter druk.

Kent v.2003 en v.2002 "Private Sub's?"

SoftAid

RedHead · « **Reactie #10 Gepost op:** 31 augustus 2008, 22:53:34 »

SoftAid, Mijn code moet je plaatsen in een module van de worksheet waar je de aanpassing na het tikken wilt zien. Dus géén nieuwe standaard module aanmaken.
Deze code werkt in alle versies van Excel. En VBA is altijd in het engels (zelfs formules die je door VBA-code in een cel wilt laten plaatsen, zal je in het engels moeten opgeven!).
Voor alle duidelijkheid plaats ik maar ff een voorbeeldworkbook als bijlage. Lukt het daarmee wel?

Groet, Leo

SoftAid · « **Reactie #11 Gepost op:** 31 augustus 2008, 23:31:02 »

Hallo Leo,

Werkt inderdaad, had nochtans alles juist staan. Ik denk dat ik daarstraks dezelfde fout maakte als Danny147, namelijk niet in kolom B getypt...

En een End If is hier inderdaad niet nodig, daar geeft hij zelfs een compileerfout "End If zonder Blok IF". Waarom???

Normaal moet je toch steeds een IF afsluiten met een End If?

SoftAid

danny147 · « **Reactie #12 Gepost op:** 31 augustus 2008, 23:33:36 »

Beste SoftAid en RedHead

Zoals RedHead al zie werkt deze code zowel in excel 2003 als in 2007 versies.

Zie hier mijn bestandje zodat in elke cel de kolombreedte wordt aangepast, door een tekst te typen en op enter te klikken.

Groetjes Danny

RedHead

SoftAid,

Citaat

En een End If is hier inderdaad niet nodig, daar geeft hij zelfs een compileerfout "End If zonder Blok IF". Waarom???

Als je in je if-statement slechts 1 oplossing (het TRUE gedeelte) gebruikt, is deze syntax ok. Als je meerdere 'zaken' wilt afhandelen wordt het inderdaad

Code: [Selecteer]

If....Then
ding1
ding2
enz
[b]End If[/b]

Je kan zelfs voor de verkorte versie kiezen zoals die gebruikt wordt in worksheets.

Code: [Selecteer]

Uitkomst = IIf(2*2=4,"ja","nee")Deze gebruik je altijd in combinatie met een variabele die je wilt vullen. Het 'te controleren deel' van de iif is meestal óók een variabele die je uitvraagt op status.

Maar ik zie dat het wel gelukt is met het voorbeeldworkbook uit deze topic.

Groet, Leo

Paloma45

Best mensen het werkt!!! hartelijke dank nog even dit het is van belang even de exelsheet te sluiten en dan weer te openen voor jullie misschien normaal maar daarom werkte het bij mij niet.

Groeten Paloma

Help!

Menu

Hulp bij posten

Zoeken

Recente topics