Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 5249 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
Datenbanken
Access 2016 vertauscht Monat und Tag in meiner CSV Datei (1)

Frage von iGordon zum Thema Datenbanken ...

Microsoft Office
gelöst Nach Office 2010 SP2 Update - Kein Sharepoint export zu Access möglich (1)

Frage von paddl82 zum Thema Microsoft Office ...

Microsoft Office
gelöst Automatische Verteilung eines angepassten Menübands in Office 2010 (12)

Frage von HYDmin zum Thema Microsoft Office ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
gelöst Benutzer lässt sich nur an einem Clientcomputer anmelden (15)

Frage von Ammann zum Thema Windows Server ...

Batch & Shell
gelöst Gruppenzugehörigkeit von AD Usern ermitteln - die Perfektion fehlt (11)

Frage von Stefan007 zum Thema Batch & Shell ...

LAN, WAN, Wireless
gelöst Netzwerk in 2 Teile trennen (11)

Frage von pattex zum Thema LAN, WAN, Wireless ...