Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV-Umwandlung in xls klappt nicht immer

CSV-Umwandlung in xls klappt nicht immer
30.10.2008 11:35:42
Bernhard
Hallo Experten,
ich wende mich heute nochmals an Euch mit der Bitte um Hilfe. Ich habe gestern von Rudi Maintaire einen Code bekommen, der alle CSV aus einem Ordner in eine Excel-Mappe importiert und für jedes CSV-File ein extra Tabellenblatt anlegt. Der Code klappt und macht (fast) alles wie gewünscht, nur.....manchmal wandelt er die Daten aus den CSV nicht richtig um. Soll heissen vereinzelt werden Zellen falsch formatiert, z. B. Datum statt Zahl. Wandle ich das selbe CSV-File mit einem Makrorecorder-Code um, ist alles richtig.
https://www.herber.de/bbs/user/56396.xls
Wer weiss Rat?
Grüsse
Bernhard

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 15:15:12
Bernhard
Hallo Experten,
kann mir keiner helfen?
Grüsse
Bernhard
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 15:59:43
Gerd
Hi,
formatiere deie zellen als Zahl.
mfg Gerd
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 16:37:45
Bernhard
Hallo Gerd,
danke, aber das ist nicht zielführend. Der Code klappt ja meistens, nur bei einigen Tabellenblättern passiert eine falsche Umwandlung. Meine Vermutung (als VBA-Frischling) ist, dass "beim Importieren und Formatieren bereits der Code weiterarbeitet, ehe die Umwandlung, Formatierung fertig ist"?!
Es sollte schon per VBA-Code laufen.
Wer weiss weiter?
Grüsse
Bernhard
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 16:52:00
Rudi
Hallo,
Hilfreich wäre eine der falsch umgewandelten .csv.
Gruß
Rudi
Anzeige
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 17:13:00
Bernhard
Hallo Rudi,
erstmal Danke dafür, dass Du Dich nochmals mit meinem Problem beschäftigst. Wie gewünscht, das "falsche" CSV-File
https://www.herber.de/bbs/user/56405.xls
Grüsse
Bernhard
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 17:22:00
Gerd
Hi,
wer oder was hindert dich, die Formatierung am Schluss des Makros zu machen?
mfg Gerd
AW: CSV-Umwandlung in xls klappt nicht immer
30.10.2008 19:27:05
Rudi
Hallo,
das nütz mir nichts. Ich brauche keine .xls, sondern die nicht konvertierte .csv.
Gruß
Rudi
AW: CSV-Umwandlung in xls klappt nicht immer
31.10.2008 10:14:53
Bernhard
Hallo Rudi,
entschuldige, dass ich mit Verspätung antworte, aber ich war unterwegs. Habe nun eine Datei angehängt (als txt, .csv ist ja nicht erlaubt), hoffe Du kannst damit was anfangen.
https://www.herber.de/bbs/user/56420.txt
Gruss
Bernhard
Anzeige
AW: CSV-Umwandlung in xls klappt nicht immer
03.11.2008 15:22:00
Rudi
Hallo,

Sub CSV2XLS()
'Alle .csv (Trennzeichen ;) eines Ordners in .xls umwandeln
Dim oFS As Object, oFolder As Object, oFile As Object
Dim strFolder As String, c As Range
Dim strTxt As String, myArr, lngL As Long, WKS As Worksheet, iFREE As Integer
With Application.FileDialog(4)
.InitialFileName = "n:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
Else
Exit Sub
End If
End With
On Error GoTo FEHLER
DoEvents
GetMoreSpeed
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder(strFolder)
iFREE = FreeFile
For Each oFile In oFolder.Files
If oFile.Name Like "*.csv" Then
Set WKS = Worksheets.Add
WKS.Name = Replace(oFile.Name, ".csv", "")
lngL = 1
Open oFile For Input As iFREE
Do Until EOF(iFREE)
Line Input #iFREE, strTxt
strTxt = Replace(Replace(strTxt, ",", "#"), ".", ",")
myArr = Split(strTxt, ",")
With WKS
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Loop
Close #iFREE
With WKS
For Each c In .UsedRange.Columns
c.TextToColumns Destination:=c.Cells(1), DataType:=xlDelimited, fieldinfo:=Array(1, _
1)
Next c
End With
End If
Next oFile
AUFRAEUMEN:
Set oFile = Nothing
Set oFolder = Nothing
Set oFS = Nothing
GetMoreSpeed False
Exit Sub
FEHLER:
If Err.Number Then
MsgBox "Fehler!" & vbLf & Err.Description
Err.Clear
Resume AUFRAEUMEN
End If
End Sub


Gruß
Rudi

Anzeige
AW: CSV-Umwandlung in xls klappt nicht immer
03.11.2008 17:13:21
Bernhard
Hallo Rudi,
danke, dass Du den Code überarbeitet hast. Sobald ich Zeit finde, werde ich den Code ausprobieren.
Gruss
Bernhard

303 Forumthreads zu ähnlichen Themen

Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 Beiträge
Anzeige
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Anzeige
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Makro: Datumsformat einer csv-Datei
Ralf

https://www.herber.de/bbs/user/59842.xls
Hallo,
die beigefügte Datei ist bei mir eine csv-Datei. Ich mußte sie als xls-Datei hochladen, da csv in diesem Forum nicht hochgeladen werden kann.
Unten aufgeführtes Makro macht bei dem Settlement date aus dem 4.3. den 3.4.
Sub FIDHa...
27.02.2009 11:43:56
Thread-ID: 1054679
2 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
1
3
4
2
14
1
3
15
4
3
1
6
1
9
3
17
9
6
2
2
2
1
9