csv Datei öffnen und dabei drei Spalten gleich als

Torsten · 2016-02-21T13:51:54+00:00

Hallo zusammen, ich habe gerade erst angefangen mich mit VBA zu beschäftigen und beiße mir an einen Problem die Zähne aus. Ich habe csv Dateien der Pfad und der Name der Datei sind immer unterschiedlich. Diese möchte ich über ein Macro öffen und dabei drei nebeneinanderliegende Spalten AL:AN gleich als Text formartiert öffnen. Die Tabelle hat ingesamt Spalten bis DA. Dort sind Zahlen mit führenden Nullen enthalten, welche sonst durch Excel verschwinden würden. Alle anderten Spaleten sind mit Standard io. Einiges habe ich bereits ausprobiert aber es hat bislang nicht hingehauen, auch eine Aufzeichnung über den Macro Recorder bringt mich nicht vorran, da die cvs so eingestellt ist das sie gleich mit Excel geöffnet wird, kommt gar nicht erst der TextKonvertierungs-Assistent. Wenn ich die Endung wegnehme kommt dieser zwar aber was da aufgezeichnet wird ist ziemlich wild und hilft mir auch bei wechselden Dateinamen und Pfaden nicht wirklich. Hat jemand einen Tip für mich. Vielen Dank.

Hi Torsten
der VBA-Befehl

Range("AL:AN").NumberFormat = "000000"

formatiert die Spalten - nicht - als Text, sondern so, dass bis 5-stellige Zahlen noch immer mit 1 führenden 0 angezeigt werden.
Wenn in deinen csv-Dateien Zahlen mit mehr als 6 Stellen für die Spalten AL:AN vorkommen, musst du die Anzahl im obigen Befehl nur entsprechend vergrößern....oder verringern, wenn schon 6 Nullen zu viel sind.
Ein wenig "problematisch", weil nach meiner Meinung "unsauber" programmiert, finde ich, dass der Befehl wirklich die - vollständigen - Spalten AL:AN formatiert.
"Sauberer" fänd ich

Range("AL1:ANx").NumberFormat = "000000"

wobei anstelle von x die letzte, benutzte Zeile in Spalte AN steht.
Du könntest also zuerst die csv-Datei einlesen.
Dann kannst du mit VBA auslesen, welche denn die letzte, benutzte Zeile in Spalte AN ist, und so kannst du dann den von mir vorgeschlagenen Formatier-Befehl anpassen.
Hilfts denn?
Ciao
auch Thorsten...aber mit H :-)

Hi zusammen,
der Code

Option Explicit
Sub DateiName()
Dim filetoopen As Variant
Dim pfad As String
pfad = Config.Range("C4").Value
ChDrive Mid(pfad, 1, 2)
ChDir pfad
filetoopen = Application.GetOpenFilename("CSV-Daten als *.csv, *.csv")
If filetoopen  False Then
Config.Range("c5").Value = filetoopen
Else
Config.Range("C5").Value = "nichts ausgewählt"
End If
End Sub
Sub CSV_Importieren()
Dim pfad As String
Dim a As Variant, a2 As Variant, az As Variant
Dim textspalten As Variant
Dim texteDa As Boolean, mit As Boolean, tmax&
Dim s As String
Dim i&, dNr%, z&, sp&, zl&, spZ&, zlZ&
Dim c As Range
pfad = Config.Range("C5").Value
textspalten = Split(Config.Range("c9").Value, ",")
tmax = UBound(textspalten)
texteDa = tmax > 0
If texteDa Then For i = 0 To tmax: textspalten(i) = textspalten(i) * 1: Next
If pfad  "nichts ausgewählt" Then
If Dir(pfad)  "" Then
Import.Cells.Clear
dNr = FreeFile
Open pfad For Binary As #dNr
s = Space(LOF(dNr))
Get #dNr, 1, s
Close #dNr
a = Split(s, vbCrLf)
zl = UBound(a)
sp = UBound(Split(a(1), ";"))
a2 = Import.Range("A1", Import.Cells(zl + 1, sp + 1))
For zlZ = 0 To zl - 1
az = Split(a(zlZ), ";")
For spZ = 0 To UBound(az)
a2(zlZ + 1, spZ + 1) = az(spZ)
Next
Next
If texteDa Then
For i = 0 To tmax
sp = textspalten(i)
For zlZ = 1 To zl
a2(zlZ, sp) = "'" & a2(zlZ, sp)
Next
Next
End If
Import.Range("A1", Import.Cells(zl + 1, sp + 1)) = a2
End If
End If
End Sub

liest alles in ein Array ein und holt sich aus dem Config-Blatt die Info, in welchen Spalten die Zahlen (oder besser: Ziffernfolge) als Text übernommen werden sollen.
Der Trick ist, ein "'" voranzustellen: das ist in der Tabelle weder sichtbar, noch wird es ausgedruckt, das ist nur ein Kennzeichen für Excel, daß "Text" folgt.
Das Makro ist nicht völlig durchoptimiert, sollte aber so schon gut fix arbeiten.
Testdatei: https://www.herber.de/bbs/user/103829.xlsm
Schöne Grüße,
Michael
P.S.: In Deiner Datei sind nicht immer führende Nullen vorhanden, so daß evtl. eine nachträgliche Formatierung doch noch Sinn macht.

csv Datei öffnen und dabei drei Spalten gleich als

Forumthread: csv Datei öffnen und dabei drei Spalten gleich als

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

CSV-Datei in Excel korrekt öffnen und formatieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

csv Datei öffnen und dabei drei Spalten gleich als

Forumthread: csv Datei öffnen und dabei drei Spalten gleich als

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

CSV-Datei in Excel korrekt öffnen und formatieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread