Hallo ihr Lieben,
Ich hab da ein kleines Problem, ich möchte nur das aktuelle Tabellenblatt (und nciht alle Tabellen einer Mappe) als *.cfg abspeichern... hab es so versucht:

SubSpeichern()
Dim fn
Antwort = MsgBox("Blatt ""Formular"" speichern?", vbYesNoCancel)
If Antwort &lt&gt vbCancel Then
If Antwort = vbYes Then
fn = Application.GetSaveAsFilename(ThisWorkbook.Path & "",
"Text-Dateien (*.cfg), *.cfg")
If fn &lt&gt False Then 'Nicht "Abbrechen" gedrückt

On Error Resume Next
ActiveSheet.SaveAs Filename:=fn
If Err.Number &gt 0 Then MsgBox "Formular wurde nicht
gespeichert!"
On Error GoTo 0
End If
End If
End If
End Sub
Es funktioniert soweit, aber wenn ich nun die *.cfg Datei öffne bekomme ich die Fehlermeldung:
Some lines exceed the maximum allowed size and have been truncated