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 <> vbCancel Then
If Antwort = vbYes Then
fn = Application.GetSaveAsFilename(ThisWorkbook.Path & "",
"Text-Dateien (*.cfg), *.cfg")
If fn <> False Then 'Nicht "Abbrechen" gedrückt
On Error Resume Next
ActiveSheet.SaveAs Filename:=fn
If Err.Number > 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