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

Ansicht des Beitrags:
Von:
Gast40815		 Datum:
25.12.2015 10:11:54		 Views:
800		 Rating:
     
Antwort:
  Ja
Thema:
CVS Export via VBA

Sollte dann so aussehen. Bei der Abfrage des Zellinhaltes ist nun noch eine Ersetzung von , zu . Gruß und Schöne Feiertage noch

 

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) & ";"
                Zelle = Replace(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
24.12.2015 15:21:25 Gast42746
NotSolved
24.12.2015 22:22:59 Michael
NotSolved
Rot CVS Export via VBA
 25.12.2015 10:11:54 Gast40815
NotSolved
24.12.2015 22:23:04 Michael
NotSolved