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:
999		 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 !?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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