Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

CSV Datei im Format Text mit Pipe und Office 2010

Frage Microsoft Microsoft Office

Mitglied: 123christian123

123christian123 (Level 1) - Jetzt verbinden

11.09.2010 um 17:45 Uhr, 5273 Aufrufe, 2 Kommentare

Hallo,

ich hoffe mir kann einer weiterhelfen.

CSV Datei im Format Text mit Pipe | und Office 2010

Vor kurzem hat mir dabei ein Kollege geholfen ein Makro einzufügen für das abspeichern einer CSV Datei im Format Textdatei mit Pipe!!!

Jetzt habe ich irgendwie das Makro gelöscht und habe kein Plan wie das wieder hin bekomme!!

Dummerweise hatte ich mir auch keine Kopie von dem Makro angelegt so dass ich auf dieses zurückgreifen könnte und euch nur fragen müsste wie ich das wieder einfüge!

Jetzt brauche ich das Makro neu und die Anleitung wie ich das Einfügen und Speichern muss.

Kann mir dabei einer weiterhelfen?

Kollege ist nicht in Reichweite sonst hätte ich ihn nochmals gebeten.
Mitglied: 76109
11.09.2010 um 19:45 Uhr
Bitte warten ..
Mitglied: 123christian123
21.09.2010 um 10:23 Uhr
Hallo liebe Leute,

also nach langen habe ich es hin bekommen ich habe allerdings ein anderes Makro verwenden müssen so das keine Probleme auftauchen!!!

01.
Sub SaveCSV() 
02.
    ' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei  
03.
    ' mit wählbarem Trennzeichen und Maskierung von Einträgen  
04.
    ' von christian  
05.
    ' Ohne Gewähr!  
06.
      
07.
    Dim Bereich As Object, Zeile As Object, Zelle As Object 
08.
    Dim strTemp As String 
09.
    Dim strDateiname As String 
10.
    Dim strTrennzeichen As String 
11.
    Dim strMappenpfad As String 
12.
      
13.
    strMappenpfad = ActiveWorkbook.FullName 
14.
    strMappenpfad = Replace(strMappenpfad, ".xls", ".csv") 
15.
      
16.
    strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export", strMappenpfad) 
17.
    If strDateiname = "" Then Exit Sub 
18.
      
19.
    strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",") 
20.
    If strTrennzeichen = "" Then Exit Sub 
21.
      
22.
    Set Bereich = ActiveSheet.UsedRange 
23.
      
24.
    Open strDateiname For Output As #1 
25.
      
26.
    For Each Zeile In Bereich.Rows 
27.
        For Each Zelle In Zeile.Cells 
28.
            If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then 
29.
                'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen  
30.
                strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen 
31.
            Else 
32.
                strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen 
33.
            End If 
34.
        Next 
35.
        If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1) 
36.
        Print #1, strTemp 
37.
        strTemp = "" 
38.
    Next 
39.
      
40.
    Close #1 
41.
    Set Bereich = Nothing 
42.
    MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname 
43.
      
44.
End Sub
Das Funktioniert einwandfrei wenn man Tabellen für einen Shop bearbeiten muss!!!!!!

[Edit Biber] Codeformatierung nachgetragen. [/Edit]
Bitte warten ..
Ähnliche Inhalte
VB for Applications
csv Dateien als Text importieren
gelöst Frage von BacchidaVB for Applications7 Kommentare

Hallo :) ich habe ein Makro geschrieben, das .csv Dateien importiert. Nun habe ich folgendes Problem: In den importierten ...

Batch & Shell
Text Datei in csv-Datei umwandeln
gelöst Frage von Haru777999Batch & Shell2 Kommentare

Hallo zusammen Am liebsten hätte ich den "Biber (Level 5 oder jetzt noch höher?)" für meine Frage. Hallo Biber! ...

Exchange Server
E-Mail Format in Exchange 2010 und Office 365
Frage von arccosExchange Server1 Kommentar

Hallo zusammen. Ich hoffe Ihr könnt mir weiterhelfen. In Exchange 2010 gibt es ja die Möglichkeit global eine Einstellung ...

Microsoft Office
Outlook-CSV-Format Kodierung gesucht
Frage von Tomschaf91Microsoft Office2 Kommentare

Guten Morgen zusammen, für den Import von Kontakten in Office 365 (Outlook) muss eine csv-Datei hochgeladen werden. Ich habe ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 19 MinutenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 4 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell8 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...