Mehrere CSV Dateien in mehrere worksheets innerhalb einer excel Datei importieren

Zuerst lädst Du Dir mal dieses AddIn runter:

https://www.dropbox.com/s/m7qdh5gs3wqb99r/CSV.xla?dl=1

Speicher es irgendwo ab, Rechtsklick auf die Datei, Eigenschaften und einen Haken bei Zulassen in den Sicherheitseinstellungen.

AddIn öffnen.

Deine Datei öffnen und mach den VBA Editor auf.

Menü\Extras\Verweise und einen Haken bei "AddIn_CSV" setzen

Menü\Einfügen\Modul und den Code unten reinkopieren

Makro ausführen

Wenn die CSV-Dateien andere Trennzeichen haben sollten, klick mit rechts in eine Tabelle und ganz unten in CSV kannst Du die Optionen umstellen. Falls nötig läßt sich das auch mit dem Makrorecorder aufzeichnen.

Andreas.

Sub Test()

Dim FName As String

Dim Ws As Worksheet

FName = Dir(ThisWorkbook.Path & "\*.csv")

Do While FName <> ""

Set Ws = Sheets.Add(After:=Sheets(Sheets.Count))

CSVImport ThisWorkbook.Path & "\" & FName

Ws.Name = Left(FName, InStr(FName, ".") - 1)

FName = Dir

Loop

End Sub

Hallo,



in Outlook 2013/365 ist es nicht mehr möglich Excel-Dateien zu importieren, dies lässt sich auch nicht ändern. Versuche ob es funktioniert, wenn du deine Excel-Tabelle als csv-Datei abspeicherst und diese dann importierst über
Durch Trennzeichen getrennte Werte.



Gruß,



Pauline

Ich ging ja davon aus, dass aus einer csv Liste keine Formate mitkommen sollten.

Das ist auch so, allerdings öffnest Du die CSV Datei mit Excel und kopierst dann die Zellen und diese widerum haben ein Format.

Man kann sich auch für die Kopieraktion ein Makro aufzeichnen/schreiben...

Vielleicht solltest Du Dir überlegen die Daten anders zu importieren, z.B. direkt aus der CSV-Datei, dann gibt's da auch keine Probleme mehr.

Andreas.

Hallo Galin,

vielen Dank für deine Hilfe. Ganz so hat es zwar nicht geklappt, da ich bei "Speichern unter" zwar immer eine CSV-Datei erstellt hatte, diese aber zum gleichen Ergebnis bei "Benutzerdefinierte Felder zuordnen" geführt hat. (Die CSV-Dateien haben nie wie
die Beispieldatei ausgesehen, wo alle Daten in der ersten Spalte "zusammengepfercht" sind bzw konnte ich auch die Beispieldatei, sobald ich meine Daten reingegeben habe, nicht mehr in das Ursprungsformat zurückspeichern)

Meine Lösung:

Die Excel-Datei mit Speichern unter als CSV-Datei speichern. Diese CSV-Datei mit rechtem Mausklick - öffnen mit "Editor". Im Editor die ";" ersetzen durch "," und speichern. Dann die CSV-Datei wie beschrieben im Outlook importieren.

Danke nochmals für die Hilfe und viele Grüße

Susanne

Hallo,

du öffnest das Adressbuch auf T-Online. Dort Rechts Mehr -> Exportieren .csv. Diese Datei importierst du in Outlook. Datei -> Exportieren/Importieren -> Aus Datei importieren -> Komma getrennte Werte -> Ordner Kontakte.

Gruß

Peter