Hallo NiCa
Auch dir danke für den Typ. Es würde nicht stören, wenn das Start-Makro mitgespeichert würde, aber wie schon gesagt, es werden keine Makros mitgespeichert, egal unter welchem Namen ich speichere. Habe hier das Makro, vielleicht gibts dazu eine Korrektur oder Ergänzung. Bin froh um jeden Hinweis.
Danke und Gruss
Emmi
Sub Workbook_Open()
Workbooks.OpenText Filename:="i:\Insyde\TX\neuauftrag.txt", Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1))
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2").Select
ActiveWindow.FreezePanes = True
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J:J,K:K,L:L").Select
Range("L1").Activate
Selection.NumberFormat = "#,##0.00"
Columns("M:M").Select
Selection.NumberFormat = "#,##0.00"
Range("K19").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.Zoom = 90
Columns("F:F").ColumnWidth = 23.89
Columns("I:I").ColumnWidth = 28.44
Columns("L:L").ColumnWidth = 7.11
Columns("N:N").ColumnWidth = 7
Rows("1:1").Select
Selection.AutoFilter
Selection.RowHeight = 18
'Alle Werte in Zahlenwerte umwandeln
Dim zelle2 As Object
Range("B2:B100").Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
Range("A2").Select
ActiveWorkbook.SaveAs Filename:= _
"i:\neue-auftrag.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
' ActiveWorkbook.SaveAs Filename:= _
' "i:\Neue-Aufträge.xls", _
' FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
' ReadOnlyRecommended:=False, CreateBackup:=False
' Application.DisplayAlerts = False
Application.Quit
' Application.DisplayAlerts = False
End Sub
Hier das Makro, dass eigentlich gespeichert werden sollte:
Sub Zwischensumme()
'
' Zwischensumme Makro
'
' Tastenkombination: Strg+s
'
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(13), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Sub loeschen()
'
' loeschen Makro
'
' Tastenkombination: Strg+l
'
Selection.RemoveSubtotal
End Sub