@Alex: Textexport

Sub Tabellen_als_Text_speichern()

Option Explicit
Sub Tabellen_als_Text_speichernMichael()
Dim wkb_Q As Workbook, wks_Q As Worksheet, wks_Z As Worksheet, bolOK As Boolean
Dim zeile As Long
Const Spalte = "A" ' wozu leere Spalte A exportieren?
Const BlattName = "105397_Ausgabe" ' so heißt die Datei dann auch hinterher
Set wkb_Q = ActiveWorkbook
On Error Resume Next
Set wks_Z = Sheets(BlattName)
If Err.Number  0 Then
Set wks_Z = Worksheets.Add
With wks_Z
.Name = BlattName
.Move after:=Sheets(1)
End With
End If
On Error GoTo 0
wks_Z.Cells.Clear
'Alle Tabellenblatt in der Arbeitsmappe als Text-Datei speichern
zeile = 1    ' wozu leere Zeilen exportieren?
For Each wks_Q In wkb_Q.Worksheets
If wks_Q.Name  BlattName And wks_Q.Name  "Menü" Then
wks_Q.Range("B11:I40").Copy wks_Z.Range("A" & zeile)
zeile = zeile + 31 ' 31, wenn Leerzeile erwünscht, sonst 30
End If
Next
Stop
bolOK = fncSave_as_Text( _
strPfad:="C:\A_Herber\", _
wks:=wks_Z, _
lngFileFormat:=23, _
bolRename:=True) 'Parameter ggf. anpassen
' oben bitte beachten: wks_Q wurde durch wks_Z ersetzt!
If Not bolOK Then
MsgBox "Makro wird wegen Fehler abgebrochen", _
vbOKOnly, "Speichern als Text-Datei"
End If
If bolOK Then
MsgBox "Fertig!", vbInformation + vbOKOnly, "Speichern als Text-Datei"
End If
End Sub