nur 3 Spalten aus Listbox exportieren
16.04.2019 21:53:24
Andre
als bescheidener User brauche ich Experten-Hilfe:
Ich habe eine Listbox mit 10 Spalten, die durch Abfrage einer TextBox gefüllt wird.
Per Command-Button möchte ich nun den Inhalt der ersten drei Spalten exportieren.
Der Export funktioniert, allerdings werden alle Spalten exportiert.
Wie muss mein Code lauten, damit nur die ersten drei Spalten exportiert werden?
Wenn es nichts ausmacht hätte ich gerne nur die Code-Zeile und keine "schlauen" Erklärungen...
Private Sub CommandButton_Export_Click()
Dim i As Long
Dim j As Long
Dim sFile As String, stext$, sSep As String, iFilenr
iFilenr = FreeFile
sSep = ";"
With UserForm_WA.ListBox1
sFile = "C:\Users\Vaio-Laptop\Dokumente\" & "GP_WA_R?ckmeldung_" & TextBox_Auftrag. _
Value & _
".csv"
Open sFile For Output As iFilenr
For i = 0 To .ListCount - 1
stext = .List(i, 0)
For j = 1 To .ColumnCount - 1
stext = stext & sSep & .List(i, j)
Next
Print #iFilenr, stext
stext = ""
Next
Close iFilenr
End With
End Sub
Anzeige