Thema Datum  Von Nutzer Rating
Antwort
24.12.2015 10:22:53 Michael
NotSolved
Blau CVS Export via VBA
 24.12.2015 12:32:57 Gast51195
NotSolved
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:
Gast51195		 Datum:
24.12.2015 12:32:57		 Views:
837		 Rating:
     
Antwort:
  Ja
Thema:
CVS Export via VBA

Auf die schnelle. 2 Spalten bekommst du wenn du in der zweiten for Schleife auf 2 setzt. Also so wie unten. Du musst dann nur noch denn zweiten wert an Zeile anfügen. Sollte dann so aussegen.  Unter next Sp habe ich die zwei Zeilen rausgenommen. Die machen ja das selbe wie in der Schleife davor und überschreiben aber die werte wieder !?

Sub csvExport()
  
 Dim Ze As Long, Sp As Integer
 Dim FF As Integer
 Dim FullPath1 As String
 Dim lRow As Long
 Dim Zeile As String, Zelle As String
  
 lRow = Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 FullPath1 = "C:\Users\Foena\Desktop\csv\" & ActiveSheet.Name & ".txt"
  
 FF = FreeFile
  
 Open FullPath1 For Output As #FF
  
 For Ze = 2 To lRow
  
 If WorksheetFunction.CountA(Range("A" & Ze & ":A" & Ze)) > 0 Then
  
 Zeile = ""
  
 For Sp = 1 To 1
  
 Zelle = Cells(Ze, Sp)
  
 If Not IsNumeric(Zelle) Then Zelle = Chr(34) & Zelle & Chr(34)
  
 Zeile = Zeile & Zelle
  
 Next Sp
  
 Print #1, Zeile
  
 End If
  
 Next Ze
  
 Close #FF
  
 End Sub

 Würde den Anfang vllt. acuh anders machen. Melde mich vllt. nachher nochmal sonst nach dem Fest.  Frohes Fest noch.

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
Blau CVS Export via VBA
 24.12.2015 12:32:57 Gast51195
NotSolved
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