Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichen-Limitierung bei Datenimport aus 2. Datei

Zeichen-Limitierung bei Datenimport aus 2. Datei
15.10.2004 19:04:25
Klaus
Guten Abend Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Noch Beispieldateien dazu
15.10.2004 20:09:25
Klaus
Hier noch zwei beiden Beispieldateien dazu
https://www.herber.de/bbs/user/12179.xls

Die Datei https://www.herber.de/bbs/user/12180.xls wurde aus Datenschutzgründen gelöscht

AW: Noch offen
15.10.2004 20:10:56
offener
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige