Datei mit Makro schicken?!?
24.08.2005 12:04:19
Newbee
Ich habe eine Arbeitsmappe mit Daten und Verlinkungen/Verknüpfungen. Diese Arbeitsmappe sollen andere Kollegen bekommen, ohne Verlinkungen also Inhalt ohne Werte. Deswegen erstelle ich eine Kopie.
Die Kopie hat wie das Original 4 Befehlsschaltflächen. Diese sind 4 verschiedene Makros zugewiesen:
Sub Gesamtauslastung()
Application.ScreenUpdating = False
Range("O7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-11]:RC[-6])"
Range("O7").Select
Selection.AutoFill Destination:=Range("O7:O38"), Type:=xlFillDefault
Range("O7:O38").Select
Range("A7:O38").Select
Range("O38").Activate
Selection.Sort Key1:=Range("O7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O7:O38").Select
Selection.ClearContents
Range("J38").Select
ansicht = "G"
Application.ScreenUpdating = True
End Sub
Sub Kurzfristauslastung()
Application.ScreenUpdating = False
Range("O7").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-11]:RC[-9])"
Range("O7").Select
Selection.AutoFill Destination:=Range("O7:O38"), Type:=xlFillDefault
Range("O7:O38").Select
Range("A7:O38").Select
Selection.Sort Key1:=Range("O7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O7:O38").Select
Selection.ClearContents
Range("J38").Select
ansicht = "K"
Application.ScreenUpdating = True
End Sub
Sub Mittelfristauslastung()
Application.ScreenUpdating = False
Range("O7").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-6])"
Range("O7").Select
Selection.AutoFill Destination:=Range("O7:O38"), Type:=xlFillDefault
Range("O7:O38").Select
Range("A7:O38").Select
Range("O38").Activate
Selection.Sort Key1:=Range("O7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O7:O38").Select
Selection.ClearContents
Range("J38").Select
ansicht = "M"
Application.ScreenUpdating = True
End Sub
Sub Team()
Application.ScreenUpdating = False
Range("A7:I38").Select
Range("I38").Activate
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Key2:=Range("C7") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("J38").Select
ansicht = "T"
Application.ScreenUpdating = True
End Sub
Die Makros waren bei der Original Arbeitsmappe unter diese Arbeitsmappe gespeichert.
Wenn ich die Kopie schicke funktionieren diese Makros nicht mehr weil dummerweise nach den Makros der Originaldatei gesucht wird.
Bin am verzweifeln. Das ist für euch bestimmt ein kleinr klax.
Bitte hilff mir