txt bestand invoeren / scheidingstekens

[Rudi Rombouts]

Ik heb een "oud" etiketten bestand in DOS kunnen redden met ongeveer 2000 personen in, txt extensie
Ik kan dit openen in het kladblok, via DATA EXTRERNE GEGEVENS OPHALEN, TEKST BESTAND IMPORTEREN kan ik dit bestand in EXCEL invoeren doch ik val steeds over de scheidingstekens
hier een voorbeeld van de tekst (op het kladblok)

102762
NAAM

ADRES 63/6
POSTCODE
WOONPLAATS

102763
WEER NAAM

wat doe ik met deze "vierkantjes" als scheidingstekens

reeds bedankt voor een antwoordje



Meld misbruik in dit bericht

 

[Imod]

Hallo

Kun je dat vierkantje niet kopieeren?
Ga in cel A1 staan.
Dan ga je naar bewerken - zoeken - kopieer hier het vierkantje in.
Klik op volgende zoeken - als het goed is springt de selectiecel nu naar de 1e vierkantje (hoop ik)
Kies nu vervangen - type nu in de regel 1 spatie
kies vervangen alles - hopelijk zijn ze allemaal weg

mvg Imod

 

[Imod]

Als dit werkt - NIETS in het vervangen vakje zetten (geen spatie) dan wist excel alle vierkantjes.
(indien dit werkt - ik weet niet of excel dit teken kent)

mvgImod

 

[LucB]

Rudi,

Ga naar je kladblok programma.
Klik op Bewerken>Alles selecteren,
dan Bewerken>Kopiëren.

Ga nu naar een leeg Excelblad,
en klik op Bewerken>Plakken.

Als ik me goed herinner ben je nu verlost van de vierkantjes.

 

[Rudi Rombouts]

Bedankt voor het mee denken, doch geen van alle werkt

Rudi

 

[ExcelExpert]

Misschien in Word openen (als *.asc?) en dan opnieuw opslaan?

 

[jzeedijk]

Hoi Rudi,

Even in combinatie met je andere vraag:
Wat je wil is:
102762
NAAM

ADRES 63/6
POSTCODE
WOONPLAATS

102763
WEER NAAM

Omzetten in een horizontale regel (record).

Stel dat 102762 in A11 staat, dan staat de volgende record op A18

In B11 zet je dan
=Verschuiving($A$10;(RIJ()-Rij(B$11))*8+1;0)
Dit levert als resultaat:
102762
Dat is niet gewenst, immers je wil de vierkantjes er niet achter!
Dat wordt dan:
=links(Verschuiving($A$11;(RIJ()-Rij(B$11))*8+kolom(B$11)-2;0);lengte(Verschuiving($A$11;(RIJ()-Rij(B$11))*8+Kolom(B$11)-2;0))-1)

Deze formule kun je kopieren naar C11:I11 en de rijen eronder.

Jeroen

 

[Maglor]

Hang het bestand (of een deel ervan) eens vast aan een post. Dan kunnen we in het bestand zelf al wat prutsen. Nu is het wat gokken over wat je probleem is.

 

[Rudi Rombouts]

Heb het volgende gedaan het txt document in Word ingevoegd, dan een macro aangemaakt, heb stap voor stap gedaan wat moest verwijderd worden en dit per persoon. Dan op het einde de macro opnieuw laten starten. En het is me op deze manier gelukt.
Dan dit WORD document gekopieerd naar EXCEL .
Vervolgens weer een macro gemaakt om alle gegvens die onder elkaar stonden, nu naast elkaar te plaatsen.
(met offset)
deel van de code

ActiveCell.Offset(-1, -5).Activate
  ActiveCell.Select
  Selection.Cut
  ActiveCell.Offset(1, 4).Activate
  ActiveSheet.Paste

en het is gelukt

nogmaals bedankt voor het mee denken
Rudi