Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV Datei als normale .xls speichern per VBA

CSV Datei als normale .xls speichern per VBA
20.09.2015 19:03:59
Noureddine
Hallo zusammen,
ich habe das Problem, das durch die Daten der CSV-Datei nicht korrekt per VBA eingefügt werden - z.B. bei 1.200€ fügt er mir 1,20€. Deutsche/Engliche Schreibweise.
Die Lösung wäre, bevor ich die Daten kopiere und wieder einfüge, die Datei speicher als Dateitye .xls.
Ich habe jedoch schon alles versucht und bin am Ende. Ich hoffe Ihr könnt mirbei helfen.
Vielen Dank vorab.

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 19:16:56
Sepp
Hallo Noureddine,
beim Import kannst du den Dezimal-Trenner und das Tausender-Trennzeichen einstellen, dann stimmen auch die Werte.
Gruß Sepp

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 19:19:34
Noureddine
Danke für deine schnelle Antwort.
Sry wenn ich so blöd frage, aber wie meinst du das....?!?!

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 19:56:01
Sepp
Hallo Noureddine,
beim Import einer csv, oder txt-Datei, kann man in den Optionen die Trennzeichen einstellen, sowohl beim händischen Import, als auch per VBA. Kann man auch mit dem Rekorder aufzeichnen.
Gruß Sepp

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 19:58:19
Noureddine
Kannst du mir dazu netterweise ein Codebeispiel schreiben.
Damit ich eine Vorstellung dazu bekomme.
Vielen Dank.

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 20:00:20
Sepp
Hallo Noureddine,
zeig mir doch besser deinen Code und vielleicht lädst du eine csv hoch zum testen.
Gruß Sepp

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 20:05:30
Noureddine
Das würde ich gerne machen. Die Datei liegt mir momentan nicht vor. Ist für die Arbeit gedacht und ist auf dem Arbeitscomputer gespeichert. Die momentane reinfolge des Makros ist:
1. Leers Tabellenblatt öffnen
2. CSV-Datei öffnen
3. CSV Daten kopieren und in das leere Tabellenblatt einfügen
Da es ja eine CSV-Datei ist, habe ich das besagte Trennzeichenproblem.

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 20:08:22
Sepp
Hallo Noureddine,
das ist mir schon klar, aber csv-Import ist immer abhängig vom genauen Format der csv, da gibt es nämlich riesige Unterschiede. Lade doch morgen eine solche csv hoch, ich schau mir das dann an, allerdings erst am Abend.
Gruß Sepp

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 20:10:59
Noureddine
Super... vielen Dank vorab, werde ich machen.
Vielleicht kannst du mit dieser Info was anfangen.
Die CSV-Datei wird aus dem SAP System generiert!

AW: CSV Datei als normale .xls speichern per VBA
20.09.2015 23:36:01
Christoph
Hallo
Habe da ja leider nicht so viel Ahnung von.
Vielleicht bringt dich das hier ja weiter.
Sub UmwandelnXLS()
ActiveWorkbook.SaveAs Filename:="PFAD\DATEINAME.xls", FileFormat:=xlExcel8
ActiveWorkbook.Close savechanges:=True
End Sub
Gruß Christoph

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 16:54:59
Noureddine
Danke Zahn, leider klappt dies nicht...
So hier habe ich eine leere Datei hochgeladen. Die Datei dient nur zur CSV-Formaterkennung.
Zusätzlich habe ich meinen aktuellen Codeabschnitt hinzugefügt, wo dieses Problem vorliegt...

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


    'Tabellenblatt hinzufügen und umbenennen
Sheets.Add
ActiveSheet.Name = "ATB 110350 - Final"
'Datei ATB 110350 - Final öffnen, kopieren, einfügen und wieder schließen
'On Error GoTo PfadfehlerATB110350
Set wsZiel = ActiveWorkbook.ActiveSheet
Set wsQuelle = Workbooks.Open "C:\Pfad. Worksheets(1)
'Sobald die übertragenden Informationen aus einer CSV-Datei kommen,
'werden falsche Daten überspielt. (. = ,)
wsQuelle.Cells.Copy
wsZiel.Cells.PasteSpecial
wsQuelle.Parent.Close
Set wsQuelle = Nothing
Set wsZiel = Nothing

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 17:18:08
Daniel
HI
eine CSV-Datei (comma-seperated-values) ist im deutschen eigentlich eine SSV (semicolon-seperated-values).
und nicht nur die Trennzeichen unterscheiden sich zwischen beiden Ländervarianten, sondern auch das Zahlenformat (CSV: Punkt als Dezimalzeichen; SSV: Komma als Dezimalzeichen)
leider unterscheidet das Betriebssystem dies nicht in der Dateiendung.
jetzt ist es so, wenn wir normal mit Excel arbeiten, weiss Excel durch die Ländereinstellung, dass die deutschen Regeln anzuwenden sind.
VBA hingegen schaut nicht auf die Länderversion, sondern verwendet immer die internationalen Regeln.
Damit auch VBA die deutschen Regeln anwendet, muss man es im SaveAs und Open explizit dazu anweisen, indem man zusätzlich den Paramter: Local:=True verwendet:
 Set wsQuelle = Workbooks.Open("C:\Pfad\Dateinname.CSV", Local:=true).Worksheets(1)
sollte man die Datei als CSV speichern wollen, dann im SaveAs genauso.
beim Speichern als Echte Exceldatei braucht man das nicht angeben, denn diese Dateien werden länderunabhängig immer im gleichen Format gespeichert.
Gruß Daniel
PS: und kleiner tip noch am rande:
bei SaveAs kann man die Dateierweiterung weg lassen. Die vergibt Excel automatisch passend zum gewählten Dateityp: 
ActiveWorkbook.SaveAs Filename:="PFAD\DATEINAME", FileFormat:=xlExcel8

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 19:04:53
Sepp
Hallo Noureddine,
ich dachte eher, dass du die csv importierst und nicht in Excel öffnest.
Klappt der Tipp von Daniel?
Ansonsten wäre die pure csv-Datei hilfreich, vor dem Hochladen in .txt umbenennen, weil die Forumssoftware csv's nicht akzeptiert.
Gruß Sepp

AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 19:47:47
Noureddine
ich werde es morgen mal ausprobieren, ich hoffe das es klappt denn ich sitz schon länger daran fest.
Ne, soll kein inport werden nur copy and paste auf eine anderes Tabellenblatt. Wie im Quellcode oben angegeben.
Mein anders Problem... hier habe ich bereits ein ein Betrag verfasst.
Ich will die Dateiendung von xlsx auf xls umwandeln, das klappt soweit. Jedoch möchte ich den Programm noch sagen, wenn beriets xls tu nichts ansonsten ändern auf xlsx.
Ich arbeite mit dem Code 

Name PFAD.xlsx as PFAD.xls
Kann mir da auch jemand noch weiterhelfen.
Vielen Dank vorab.

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 20:38:05
Daniel
Hi
Name PFAD.xlsx as PFAD.xls
ist Nonsense.
durch die Umbenennung findet keine Umwandlung der Datei statt.
die xlsx bleibt eine xlsx, auch wenn du sie umbenennst (genau so, wie Max Mustermann nicht zur Frau wird, wenn er sich "Clara Musterfrau" in den Ausweis eintragen lässt).
das Problem ist nur , dass Excel dann beim Öffnen der Datei diese für eine xls hält, obwohl sie keine xls ist und dann das falsche Regelwerk zum Öffen anwendet, dh Übertragung von der Festplatte in den Hauptsprecher erfolgt dann wie eine Übersetzung vom Englischen ins Deutsche mit Hilfe eines Französch-Wörterbuchs.
Gruß Daniel

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 23:13:40
Noureddine
Das ist mir klar, jedoch benötige ich dies trotzdem. Könnest du mir den so ein Code zusammenstellen. Ich wäre dir dafür sehr dankbar.

AW: CSV Datei als normale .xls speichern per VBA
21.09.2015 23:20:51
Daniel
Hi
wenn du schauen willst, ob du die Datei schon umbenannt hast, kannst du die DIR-Funktion verwenden:
zuerst prüfst du , ob die Datei in der xlsx-Version vorhanden ist und dann, ob sie in der xls-Version fehlt, wenn die abgefragte Datei vorhanden ist, gibt die DIR-Funktion den Dateinamen (ohne Pfad) zurück, wenn sie nicht vorhanden ist den Leerstring: 
If Dir("pfad\Datei.xlsx")  "" Then
If Dir("pfad\Datei.xls") = "" Then
Name "pfad\Datei.xlsx" as "pfad\Datei.xls
end if
end if
Gruß Daniel

Anzeige
AW: CSV Datei als normale .xls speichern per VBA
22.09.2015 17:49:37
Noureddine
Super, ich konnts heute testen und beides hat wie gewünscht geklappt.
Vielen Dank Daniel und Sepp. Ihr habt mir viel Zeit und nerven gespart.

130 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
CSV-Umwandlung in xls klappt nicht immer
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 w...
30.10.2008 11:35:42
Thread-ID: 1020546
11 Beiträge
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Anzeige
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
Umwandlung einer xls-Datei in csv
Beltschazar

Hallo an Alle
Monatlich muss ich eine Exceltabelle in eine csv-Datei umwandeln. Die ursprüngliche Datei muss geändert werden, indem Spalten gelöscht werden und neue Spalten eingefügt werden. Diesen Vorgang würde ich gerne automatisieren. Ist es möglich dafür ein Makro zu erstellen? Wenn ja,...
27.05.2009 13:54:13
Thread-ID: 1077697
4 Beiträge
Daten aus csv in Tabelle
Daniel

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...
26.06.2009 07:48:35
Thread-ID: 1084276
2 Beiträge
CSV per Makro in xls einlesen
WalterK

Hallo,
Für meine xls-Beispielmappe (Demo.xls) habe ich im Forum einen Code erhalten, der csv-Daten in ein bereits bestehendes Blatt einliest.
Klappt auch bestens, allerdings nicht bei der csv- Datei, deren Inhalt ich als Screenshot in der Mappe eingefügt habe. Wenn ich die csv mit Exce...
14.07.2009 19:44:06
Thread-ID: 1088021
2 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Anzeige

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
1
10
1
4
3
3
1
1
6
2
2
1
5
1
2
1
7
2
1
1
7
2
7
2