Thema Datum  Von Nutzer Rating
Antwort
24.12.2015 10:22:53 Michael
NotSolved
24.12.2015 12:32:57 Gast51195
NotSolved
Rot CVS Export via VBA
24.12.2015 15:21:25 Gast42746
NotSolved
24.12.2015 22:22:59 Michael
NotSolved
25.12.2015 10:11:54 Gast40815
NotSolved
24.12.2015 22:23:04 Michael
NotSolved

Ansicht des Beitrags:
Von:
Gast42746
Datum:
24.12.2015 15:21:25
Views:
822
Rating: Antwort:
  Ja
Thema:
CVS Export via VBA

Also da bin ich nochmal. Habe den Code jetz geändert. Er liest alles Tabellenblätter aus, sucht in Spalte E und F nach Daten  und legt die Dateien an. Als Trenner für die Daten habe ich ; gewählt. Bei dir war " (also Chr(34) ). Das ggf. mal ändern. Und es wird nur was übertragen wenn Zahlen drin stehen. Gruß

Sub csvExport()

Dim i As Variant, j As Variant
Dim Ze As Long, Sp As Long
Dim FF As Integer
Dim FullPath1 As String
Dim lRow As Long
Dim Zeile As String, Zelle As String
Dim sh As Worksheet
  
For Each sh In ActiveWorkbook.Worksheets
    sh.Activate
    i = 0
    j = 0
    i = sh.Cells(Rows.Count, 5).End(xlUp).Row
    j = sh.Cells(Rows.Count, 6).End(xlUp).Row
 
    If i > j Then
        lRow = i
    Else
        lRow = j
    End If

    FullPath1 = "C:\Users\Foena\Desktop\csv\" & ActiveSheet.Name & ".txt"
  
    FF = FreeFile
  
    Open FullPath1 For Output As #FF
  
    For Ze = 2 To lRow

    If sh.Cells(Ze, 5) <> "" Or sh.Cells(Ze, 6) <> "" Then
        Zeile = ""
  
        For Sp = 5 To 6
  
            Zelle = sh.Cells(Ze, Sp)
  
            If IsNumeric(Trim(Zelle)) Then
                Zelle = Trim(Zelle) & ";"
            Else
                Zelle = ";"
            End If
            
            Zeile = Zeile & Zelle
        Next Sp
        If Zeile = ";;" Then Zeile = ""
        
        If Zeile <> "" Then Print #1, Zeile
  
    End If
    
    Next Ze
  
    Close #FF
  
Next sh
  
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.12.2015 10:22:53 Michael
NotSolved
24.12.2015 12:32:57 Gast51195
NotSolved
Rot CVS Export via VBA
24.12.2015 15:21:25 Gast42746
NotSolved
24.12.2015 22:22:59 Michael
NotSolved
25.12.2015 10:11:54 Gast40815
NotSolved
24.12.2015 22:23:04 Michael
NotSolved