Hallo , hier einer der Makros die nicht laufen...???
Sub txtDateiErstellen()
'Variablendeklaration
Worksheets("B7 TXT").Unprotect Password:="jamo"
Dim Ausgabepfad As String
Dim Spalte, LSpalte As Integer
Dim VollZeile As String
Dim Trennzeichen As String
Dim LZeile, Zeile As Long
'Prüfen ob in Tabelle2, Zelle G6 ein gültiger Wert als Dateiname steht
If Len(Trim(ActiveWorkbook.Sheets("AB-Kalkulation").Range("G6"))) = 0 Then
MsgBox "Kein gültiger Dateiname!", 16, "Fehler"
Exit Sub
End If
'Ausgabepfad und - name wird festgelegt - Pfad anpassen
Ausgabepfad = "X:\b7\_tuc\dat\tuc\dfue\empfang\" & Trim(ActiveWorkbook.Sheets("AB-Kalkulation").Range("G6").Text) & ".txt"
'Trennzeichen wird festgelegt - hier Tabulator
Trennzeichen = vbTab
'Anzahl der beschriebenen Spalten wird ermittelt
LSpalte = ActiveWorkbook.Sheets("B7 TXT").UsedRange.SpecialCells(xlCellTypeLastCell).Column
'Anzahl der beschriebenen Zeilen wird ermittelt
LZeile = ActiveWorkbook.Sheets("B7 TXT").UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Datei Öffen zur Ausgabe
Open Ausgabepfad For Output As #1
'Schleife für Zeilen
For Zeile = 1 To LZeile
'Schleife für Spalten
For Spalte = 1 To LSpalte
'Ausgabezeile für Textdatei wird generiert
VollZeile = VollZeile & Trim(Cells(Zeile, Spalte).Text) & Trennzeichen
Next Spalte
'Ausgabe in Datei
VollZeile = Left(VollZeile, Len(VollZeile) - 1) 'Letzten Trenner abschneiden
'nur Zeilen mit mehr als 29 Zeichen in Ausgabedatei schreiben
If Len(VollZeile) > 29 Then Print #1, VollZeile
'Zurücksetzen der Ausgabezeile
VollZeile = ""
Next Zeile
Close #1 'Datei schliessen
'Nachricht, dass Exportdatei erstellt wurde
MsgBox "Die Ausgabedatei wurde erstellt", vbOKOnly, "Export beendet"
Worksheets("B7 TXT").Protect Password:="jamo"
End Sub
