Office: (Office 2010) CVS Datei mit VBA erstellen

Helfe beim Thema CVS Datei mit VBA erstellen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Morgen, Excel bringt mich mal wieder zum verzweifeln. Ich hoffe ihr könnt Lichts ins Dunkle bringen ;) Mein Ziel ist es eine CVS Datei zu... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Manta, 22. Dezember 2016.

  1. Manta
    Manta Erfahrener User

    CVS Datei mit VBA erstellen


    Guten Morgen,

    Excel bringt mich mal wieder zum verzweifeln. Ich hoffe ihr könnt Lichts ins Dunkle bringen ;)

    Mein Ziel ist es eine CVS Datei zu erstellen die in Lotus Notes eingelesen werden kann. Diese muss so aufgebaut sein:

    Code:
    "",Vorname,"",Nachname,"",Abteilung,"","","","","","","","","","","","","","","","","","","","","","","","","Tel.Nr","","","","","","","","","","","","","","","","","","","",""
    Wenn ich das jetzt so mir eine Datei mit den Anführungszeichen in Excel erstellen lassen sieht alles super aus, aber sobald ich die in die CVS Datei exportiere sieht das anders aus.

    Also in Excel sieht die obige CVS Datei so aus:

    ,Vorname,"",Nachname,"",Abteilung,"","","","","","","","","","","","","","","","","","","","","","","","","Telnr","","","","","","","","","","","","","","","","","","","",""

    Jetzt bekomme ich es einfach nicht hin die obige CVS Datei nachzubauen in Excel, er baut mir ständig Anführungszeichen ran. Es klappt nicht, das am Ende und Anfang in der CVS Datei zwei Anführungszeichen stehen.

    So habe ich es schon probiert:

    Code:
    'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "" & """," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
            'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "" & "" & """," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
            'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = Chr(34) & "," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","""
            'Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = "," & vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","","
            Workbooks("Kopfdatei.xlsx").Sheets(1).Cells(kopfZeile, 1).Value = vName & ",""," & nName & ",""," & Abteilung & ","","","","","","","","","","","","","","","","","","","","","","","",""," & telNr & ","","","","","","","","","","","","","","","","","","","""
    Entweder steht dann nur ein Anführungszeichen vorne und hinten, gar keins oder gleich drei. Zwei scheinen irgendwie nicht zu funktionieren.

    Ich verzweifel daran, habe schon so viel probiert. Wo liegt mein Fehler?

    Danke!
     
  2. Manta
    Manta Erfahrener User
    was mir noch einfällt: Öffne ich die richtige CVS Datei in Excel und speichere sie dann in Excel wieder als CVS Datei, dann steht auch nur ein Anführungszeichen dran. Es liegt also wohl Speichern der Datei.
     
Thema:

CVS Datei mit VBA erstellen

Die Seite wird geladen...
  1. CVS Datei mit VBA erstellen - Similar Threads - CVS Datei VBA

  2. Immer wieder "wie soll die datei geöffnet werden"

    in Microsoft Outlook Hilfe
    Immer wieder "wie soll die datei geöffnet werden": Mein Outlook 2019 unter Windows 10 merkt sich nicht, wie Dateien geöffnet werden sollen. Auch wenn man das Häckchen "immer" setzt, kommt die Frage immer wieder.
  3. Öffnen einer pptx Datei endet mit "unbekannter Fehler"

    in Microsoft Teams Hilfe
    Öffnen einer pptx Datei endet mit "unbekannter Fehler": Beim öffnen einer Datei in MS Teams erscheint ein leeres Fenster mit dem Dateinamen als Überschrift und im Fenster erscheint die Meldung "unbekannter Fehler". Die Dateien legen in der Standard...
  4. sharepoint - Dateien in Desktopapps öffnen

    in Sonstiges
    sharepoint - Dateien in Desktopapps öffnen: Huhu, scheinbar habe ich ein recht bekanntes Problem mit sharepoint und office-online. Allerdings konnte ich leider bisher keine funktionierende Lösung finden. Dateilinks sollen mit den lokalen...
  5. urheberrechtlich geschützte mp3-Dateien in MS Teams

    in Microsoft Teams Hilfe
    urheberrechtlich geschützte mp3-Dateien in MS Teams: Liebe alle Gerne möchte ich (urheberrechtlich geschützte) mp3-Dateien meinen MS Teams-Mitgliedern (einzelne Teams) zur Verfügung stellen (sie sollten die mp3-Musikdateien abspielen/anhören , aber...
  6. Import von XML-Dateien in Access

    in Microsoft Access Hilfe
    Import von XML-Dateien in Access: Hallo zusammen, ich möchte eine Menge von XML-Dateien in Access 2016 importieren und verwende dazu die Importfunktion für XML-Dateien unter Externe Daten im Menü. Die Dateien enthalten einige 100...
  7. Datei schließen nach bestimmter Zeit.

    in Microsoft Excel Hilfe
    Datei schließen nach bestimmter Zeit.: Hallo Zusammen, habe ein paar Dateien die ich auch gerne von zu Hause bearbeiten möchte. In diese Dateien habe ich ein Makro aus dem Netz eingebaut. Es gibt auch noch ein Makro welches alle 30...
  8. Dokument als .cvs speichern und als Mail versenden

    in Microsoft Excel Hilfe
    Dokument als .cvs speichern und als Mail versenden: Hallo ihr Lieben, brauche Hilfe bei folgender Herrausforderung: Ich habe ein Dokument, in dem der Kunde verschiedene Parameter eintragen kann (Name, Anschrift, Kundennummer, Öffnungszeiten...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden