Zelle exportieren in csv

Hallo zusammen,
ich habe leider keine Ahnung von VBA, habe aber diesen Code und bräuchte bei einer Änderung Hilfe.
Es soll zusätzlich zu den selektierten Zellen immernoch die passende Zelle aus Spalte B in die csv Datei intigriert werden und zwar so, daß die Information aus der Zelle B im Array sofort nach 1 kommt
Hallo zusammen,
ich habe leider keine Ahnung von VBA, habe aber diesen Code und bräuchte bei einer Änderung Hilfe.
Es soll zusätzlich zu den selektierten Zellen immernoch die passende Zelle aus Spalte B in die csv Datei intigriert werden und zwar so, daß die Information aus der Zelle B im Array sofort nach 1 kommt
r = Array(2, 4, 1 + (B), 3)
so gehts aber nicht (nur zur Verdeutlichung wie es später sein sollte)
Wäre sehr nett wenn mir jemand behilflich sein könnte
Hier noch ne Beispieltabelle
https://www.herber.de/bbs/user/105531.xls
Gruß
Erik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Erik
Auf die Schnelle konnte ich den bestehenden Code auch nicht einfach anpassen. Ich habe mir daher erlaubt das "System" etwas zu ändern.
Es spielt neu keine Rolle, welche Spalten selektiert werden. Die Selektion ist nur noch für die Zeilen relevant. Darum habe ich die Prüfung auskommentiert.
r = Array(5, 7, 4, 2, 6)
r entspricht nicht mehr nur der Reihenfolge, sondern bezieht sich auf die Spaltennummer (5 = E, 7 = G usw.)

Sub csv_umwandeln()
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim wie As Integer
Dim iZeile As Long
Dim r() As Variant
Dim s As Long
r = Array(5, 7, 4, 2, 6)
'    If Selection.Columns.Count  4 Or Selection(1).Column  4 Then
'    MsgBox "Es wurde nicht D-G selektiert"
'    Exit Sub
'    End If
ChDrive Environ("homedrive")
ChDir Environ("homedrive") & Environ("homepath") & "\downloads\"
strDateiname = "Bestellung.csv"
strDateiname = InputBox("Datei", "Datei Wählen", strDateiname)
If strDateiname = "" Then Exit Sub
wie = vbNo
If Dir(strDateiname)  "" Then
wie = MsgBox("Daten anhängen?", vbYesNo, strDateiname & "Datei bereits vorhanden")
If wie = vbCancel Then Exit Sub
End If
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ";")
If strTrennzeichen = "" Then Exit Sub
If wie = vbNo Then
Open strDateiname For Output As #1
Print #1, "0000000;1;Kennzeichen;Bezeichnung"
Else
Open strDateiname For Append As #1
End If
For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1
For s = 0 To UBound(r)
If s = 0 Then
strTemp = Cells(iZeile, r(s))
Else
strTemp = strTemp & strTrennzeichen & Cells(iZeile, r(s))
End If
Next s
Print #1, strTemp
Next iZeile
Close #1
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub

cu
Chris

For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1 For s = 0 To UBound(r) If s = 0 Then strTemp = Cells(iZeile, r(s)) Else If s = 2 Then strTemp = strTemp & strTrennzeichen & Cells(iZeile, 2) & Cells(iZeile, r(s)) Else strTemp = strTemp & strTrennzeichen & Cells(iZeile, r(s)) End If End If Next s Print #1, strTemp Next iZeile Close #1

For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1 For s = 0 To UBound(r) If s = 0 Then strTemp = "x" & strTrennzeichen & Cells(iZeile, r(s)) Else If s = 2 Then strTemp = strTemp & strTrennzeichen & "x" & strTrennzeichen & Cells(iZeile, _ 2) & " " & Cells(iZeile, r(s)) Else strTemp = strTemp & strTrennzeichen & "x" & strTrennzeichen & Cells(iZeile, _ r(s)) End If End If Next s Print #1, strTemp Next iZeile Close #1

For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1 For s = 0 To UBound(r) If s = 0 Then strTemp = "x;x;x;x" & Cells(iZeile, r(s)) Else If s = 2 Then strTemp = strTemp & strTrennzeichen & Cells(iZeile, 2) & " " & Cells( _ iZeile, r(s)) Else strTemp = strTemp & strTrennzeichen & Cells(iZeile, r(s)) End If End If Next s Print #1, strTemp Next iZeile Close #1

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle exportieren in csv

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

132 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread