Zeichen-Limitierung bei Datenimport aus 2. Datei
15.10.2004 19:04:25
Klaus
Ich habe ein Makro, mit dem ich einen Bereich aus einer geschlossenen Datei
auslese und in meine aktive Mappe mit der Value-Eigenschaft einfüge.
Das funktioniert auch gut. Mein Problem:
Zellen mit mehr als 255 Zeichen werden nicht korrekt übernommen.
Excel schneidet nach ca. 40 Zeichen den Text einfach ab.
Bei (händischem) Kopieren würde alles richtig übernommen werden.
Ich schaffe es aber einfach nicht, das untenstehende Makro auf "Kopieren"
umzuschreiben. Kann mir da jemand helfen?
Für Antworten Dank im voraus
Klaus
Sub DatenImport()
Dim rng As Range
Dim sFile As String
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
sFile = InputBox("Geben Sie den Dateinamen ein:", , "1.xls")
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
GoTo ERRORHANDLER
End If
Set rng = Worksheets("Sammlung").Range("A1:C2000") 'Zieladresse
Workbooks.Open _
FileName:=sFile, _
password:=""
rng.Value = Range("A1:C2000").Value 'Daten
ActiveWorkbook.Close savechanges:=False
Worksheets("Sammlung").Select
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub