Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
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
Inhaltsverzeichnis

CSV Import - nicht alle Zeilen werden importiert

CSV Import - nicht alle Zeilen werden importiert
09.02.2016 16:28:36
Cora
Hallo liebe Forums-Mitglieder,
ich habe mit Makro-Programmierung leider quasi noch keine Erfahrung, und habe mir mit Vorlagen und Tipps&Tricks hier aus dem Forum eine Importmöglichkeit für CSV-Dateien zusammengebaut.
Leider wird hierbei nur der Inhalt der ersten 16 Zeilen meiner CSV-Datei importiert. Eine (nicht die erste) Spalte hat aber >100 Zeileneinträge.
Was muss ich ändern um die alle importiert zu bekommen?
Bin über Hilfe dankbar - wahrscheinlich ist es recht einfach... aber ich steh gerade auf dem Schlauch.
Danke schonmal!
VG Cora
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Range("A10:BM100").ClearContents 'Löscht Inhalt des angegebenen Bereichs, Formatierung bleibt  _
_
"Clear" statt "ClearContents" löscht auch Formatierung
Const cStrDelim As String = ";" 'Trennzeichen
Const cLngFirst As Long = 10 'erste zu beschreibende Zeile
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = "P:\XXX\*.csv"  'Pfad anpassen
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName  "" Then
Application.ScreenUpdating = False
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cStrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, cLngFirst)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV Import - nicht alle Zeilen werden importiert
10.02.2016 08:46:55
JoWE
Hallo Cora,
wie schaut Deine csv-Datei denn aus, kannst Du ein Beispiel zeigen?
Dein Code importiert mir alle Daten aus einer x-beliebigen csv-Datei.
Gruß
Jochen

AW: CSV Import - nicht alle Zeilen werden importiert
10.02.2016 10:36:36
Cora
Hallo Jochen,
danke fürs Testen.
Meine CSV-Datei hat, wenn ich sie händisch in Excel importiere, Spalten A bis BK. In Zeile 14 stehen Überschriften und darunter dann Werte, zB in Spalte A Einträge in 1 bis 20, in L jedoch 1 bis 100. Dazwischen auch immer wieder unterschiedlich viele Werte.
Ich werds nachher nochmal mit anderen CSV-Dateien testen.
VG
Cora

AW: Danke für die Rückmeldung und viel Erfolg!
10.02.2016 11:12:55
JoWE

AW: CSV Import - nicht alle Zeilen werden importiert
10.02.2016 12:08:38
Cora
Hallo Jochen,
danke fürs Testen.
Meine CSV-Datei hat, wenn ich sie händisch in Excel importiere, Spalten A bis BK. In Zeile 14 stehen Überschriften und darunter dann Werte, zB in Spalte A Einträge in 1 bis 20, in L jedoch 1 bis 100. Dazwischen auch immer wieder unterschiedlich viele Werte.
Ich werds nachher nochmal mit anderen CSV-Dateien testen.
VG
Cora
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige