nur die ersten 3 Spalten einer Listbox exportieren
16.04.2019 20:33:16
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?
Für Eure Hilfe bin ich sehr dankbar!
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