Aantal characters in cel wijzigen via VBA

[Sander32]

Wie kan mij helpen met het aantal characters in een cell wijzigen naar oneindig.
Ik probeerde via VBA vanuit een MS Access database gegevens te exporteren naar excel.
Betreffende tekst is:
Vooropleidingen
MAVO
MBO Sociaal Pedagogisch Medewerker niveau 4
Genoten Interne Opleidingen Politie
Buitengewoon opsporingsambtenaar (BOA)
Bedrijfs Porcessen Systeem (BPS)
Planning en Control Systeem (PCS)
GMS Operationeel
Intake en Service
Windows XP
MS Word XP
MS Outlook XP
Echter maakt excel er het volgende van:
Vooropleidingen
MAVO
MBO Sociaal Pedagogisch Medewerker niveau 4
Genoten Interne Opleidingen Politie
Buitengewoon opsporingsambtenaar (BOA)
Bedrijfs Porcessen Systeem (BPS)
Planning en Control Systeem (PCS)
GMS Operationeel
Intake en Service
Windᬀ硤ਤᬀ
In sommige gevallen kunnen het wel eens 2 A4tjes aan tekst zijn dus het liefst wil ik vooraf de size oneindig maken.
Ik heb eerder geprobeerd de cell als eigenschap tekst te maken echter krijg ik dan alleen ################# te zien.
Wellicht is dat de methode echter hoe krijg ik dan de ############## weg?
Wanneer ik de row size en kolom size aanpas blijft de waarde ##############

Het zou mij enorm helpen wanneer ik dit oplos
Ik

 

[snb]

Je moet geen 2 A4-tjes tekst in een Excel cel willen zetten.
Importeer de gegevens eerst in Word en fatsoeneer ze daar.

 

[Sander32]

Ik begrijp je even niet. Om eea te verduidelijken heb ik de code meegestuurd en wellicht kan jij aangeven of veranderen wat ik fout doe.

rs.MoveFirst
For i = 1 To lngMax
For j = 1 To 35
If IsDate(rs.Fields(j - 1)) Then
strEffe = rs.Fields(j - 1)
ws.Cells(i + 1, j).Select
ws.Application.Selection.NumberFormat = "@"
GoTo GewoonPlaatsen
End If
If IsNull(rs.Fields(j - 1)) Then strEffe = "" Else strEffe = rs.Fields(j - 1)
If strEffe = "TRUE" Or strEffe = "WAAR" Then strEffe = "-1"
If strEffe = "FALSE" Or strEffe = "ONWAAR" Then strEffe = "0"
GewoonPlaatsen:
ws.Cells(i + 1, j) = strEffe
Next j

rs.MoveNext
Next i
Zoals je kan zien haal ik gegevens uit een recordset en plaatst deze in een cell.
Ik hoop dat jij deze code even kan aanpassen zodat de cell niet wordt ingekort.

 

[snb]

gebruik de methode .copyfromrecordset.

 

[Sander32]

Waarschijnlijk heb jij al eerder met dit bijltje gehakt.
Wat doe ik fout?
ws.Cells(i + 1, j).CopyFromRecordset rs.Fields(j - 1)