• 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.

Tekst naar kolommen

Status
Niet open voor verdere reacties.
F

frans kooijman

Gebruiker
Lid geworden
22 apr 2008
Berichten
517
HI,
Ik heb een zin met veel "/"tekens via tekst naar kolommen gescheiden en dat gaat prima.

Maar als ik het bestand opsla, sluit en heropen, dan is mijn tekst naar kolommen verdwenen
en moet ik dit opnieuw instellen.

Is er een manier om voor dit bestand (of voor het tabblad, of desnoods voor de betreffende cel)
tekst naar kolommen vast te zetten, zodat het bij afsluiten weer weg is?

Frans
 
Je hebt waarschijnlijk een koppeling naar een tekstbestand in het werkblad staan.
Bij heropening wordt de koppeling bijgewerkt met de oorsponkelijke gegevens.
Waarom heb je de koppeling na de bewerking 'tekst-naar-kolommen' niet verwijderd ?
 
Ehh...begrijp het niet helemaal, sorry.

Ik had een VBA erin staan, maar die is verwijderd. Voor de zekerheid heb ik het bestand opnieuw onder een andere naam
opgeslagen zonder macro's, maar geen succes nog.

Ik heb in het werkblad wel een aantal andere formules staan (in andere cellen dan de regel waar ik tekst naar kolommen op toepas),
maar volgens mij geen koppeling naar een tekstbestand.
Wel een formule: =ALS(DATUMWAARDE(C15)<=VANDAAG();ZELFDE.DAG(DATUMWAARDE(C15);12);DATUMWAARDE(C15))

Maar dat heeft er niets mee te maken toch?

Sorry, ik begrijp niet helemaal waar/hoe ik terug kan vinden waar ik evt. nog een koppeling zou hebben naar een tekstbestand...


Frans
 
Wat betekent bij jou 'mijn tekst naar kolommen is verdwenen' ?
Waar zie je dat aan ?
 
Tekst naar kolommen is verdwenen, omdat als ik het bestand sluit en heropen, en
ik in de cel weer een nieuwe zin met veel "/" tekens invoer (in exact dezelfde cel), dan moet ik
weer opnieuw handmatig Tekst naar kolommen scheiden met Optie "/".

Ik zou graag willen dat als ik het bestand sluit en later heropen, de cel "onthoudt" dat
de invoer weer gescheiden moet worden.

Frans
 
Hang dit eens achter je werkblad:
Code: 
Private Sub Worksheet_SelectionChange(ByVal target As Range)
 If target.Column = 1 And target <> "" Then
  ActiveCell.Select
    Selection.TextToColumns Destination:=ActiveCell, Tab:=True, OtherChar:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
 End If
End Sub
 
Laatst bewerkt:
...Bijna..... Ik krijg een foutmelding: Fout 13 tijdens uitvoering. Typen komen niet met elkaar overeen.

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Column = 1 And target <> "" Then
ActiveCell.Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
End If
End Sub
 
Zie dat via foutopsporing er iets niet klopt in de 2e regel, die licht geel op:

If target.Column = 1 And target <> "" Then

Verder werkt de tekst naar kolommen wel, maar krijg alleen continu een pop-up van de fout in VBA.

Moet ik daar nog iets aanpassen?

Frans
 
Je hoeft absoluut niet die code nog eens te posten en dan nog zonder gebruikmaking van codetags

In welke kolom tik je de gegevens in?

Kijk eens in het bestand dat werkt toch wel:
 

Bijlagen

  • tekstnaar kolommen(cobbe).xlsb
    14,1 KB · Weergaven: 97
Laatst bewerkt:
...Ik krijg die (ellendige) foutmelding niet weg (ik weet dat het aan mij ligt, hoor), maar
ik puzzel en puzzel zonder succes nog.
De VBA doet zijn werkt, de Tekst naar Kolommen werkt goed in Excel, maar ik blijf de pop-ups krijgen
van VBA.
Boven de code staat "Worksheet" en ik kan daar ook Algemeen kiezen.
En rechts staat SelectionChange

Ik weet bijna zeker dat ik de VBA niet laat draaien op het juiste tabblad in Excel, maar ik zie nergens in VBA
hoe ik de tabbladen tevoorschijn tover... sorry..
Heb het ooit wel gezien, en weet ook dat ik daar de code in moet zetten, maar hoe krijg ik die tabbladen zichtbaar in VBA?

Sorry, I know, ongetwijfeld basiskennis, maar ik zie het niet....

Frans
 
Doe mijn bestand eens open en klik dan Alt-F11

Selecteer dan(dubbelklikken) Blad1

Dan zie je toch de werkende code op de goede plaats.
 
Helaas niet...Ik krijg bij na Alt + F11 1 groot blanco VBA blad.
Ik zie nergens hoe ik blad 1 kan selecteren, waar ik ook dubbelklik....

ATTACH=CONFIG]308001[/ATTACH]
 

Bijlagen

  • Knipsel.GIF
    Knipsel.GIF
    33,8 KB · Weergaven: 73
In je VBA-scherm kiezen voor beeld --> Projectverkenner.

Daarin staan ThisWorkbook met al zijn bladen.
 
AH ....YES YES YES....Dat zocht ik.

Super veel dank, nu lukt het me wel.

Sorry voor de moeite.

Frans
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan