Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 5262 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
gelöst VBA Text mit Format übertragen und Zeichen ergänzen (11)

Frage von Dau12345 zum Thema VB for Applications ...

Batch & Shell
gelöst Dateien aus CSV mit Batch suchen (5)

Frage von joes1609 zum Thema Batch & Shell ...

Datenbanken
Access 2016 vertauscht Monat und Tag in meiner CSV Datei (1)

Frage von iGordon zum Thema Datenbanken ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Infineon TPMs unsicher!

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(2)

Information von Dobby zum Thema Firewall ...

LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(5)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Hardware

GPD Pocket: Winziger Laptop für Wenig Tipper

(1)

Information von pelzfrucht zum Thema Hardware ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (20)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...