Hab eine Userform mit mehreren Listboxen. Ich moechte nun auf einen Button druecken (zuerst muss der Speicherort der Datei ausgewaehlt werden)und die Daten der Listboxen in eine Textdatei schreiben.
Danke fuer die Tips
Alex
Private Sub CommandButton1_Click()
Dim I As Integer
Dim J As Integer, K As Integer
Dim dateischonoffen As Boolean
Dim speicherort
speicherort = Application.GetSaveAsFilename("meineListboxen.txt")
If speicherort = False Then Exit Sub
dateischonoffen = False
For I = 0 To Me.Controls.Count - 1
If Left(Me.Controls(I).Name, 7) = "ListBox" Then
If dateischonoffen = False Then
Open Mid(speicherort, InStrRev(speicherort, "\") + 1) For Output As #1 ' Datei zur Ausgabe öffnen
dateischonoffen = True
End If
For J = 0 To Me.Controls(I).ListCount - 1
Write #1, Me.Controls(I).List(J)
Next J
End If
Next
If dateischonoffen Then
Close #1
End If
End Sub