Private Sub UserForm_Click()
Dim fso As New FileSystemObject, tx As TextStream
Dim WS As Worksheet, WB As Workbook
Dim count As Long
Dim fBlatt, fLine, TextZeile, temp As String
Set tx = fso.CreateTextFile("C:\Temp\Temp.csv")
Set WB = ActiveWorkbook
For Each WS In WB.Worksheets
fBlatt = WS.UsedRange
For count = LBound(fBlatt, 1) To UBound(fBlatt)
fLine = Application.WorksheetFunction.Index(fBlatt, count)
temp = CStr(fLine)
TextZeile = Join(temp, ";")
tx.WriteLine TextZeile
Next
Next
tx.Close
End Sub