Makro als AddIn

Hallo,
ich habe schon einige Threads zum Thema Makros und AddIns bzw Symbolleiste gesehen aber leider nichts was mir weiterhelfen konnte.
Ich habe eine Arbeitsmappe erstellt mit 4 Knopfe, Knopf1 bis Knopf4.
Jeder Knopf ist ein Makro zugewiesen ( gespeichert unter diese Arbeitsmappe ). Die Knopfe verändern die Ansicht in der Arbeitsmappe. Beispiel: Knopf 1 sortiert nach Namen, Knopf 2 sortiert nach Datum etc.
Die gleiche Arbeitsmappe hat oben in der Menüleiste zusätzlich einen Knopf als Symbol. Dieser ist ein Makro, gespeichert unter Personl.xls, zugewiesen und hat die Funktion: Wenn ich auf mein Symbolknopf drucke wird eine Kopie dieser, und nur dieser, Arbeitsmappe erstellt und unter ein Wünschpfad gespeichert.
Die Kopierte Arbeitsmappe sieht genauso aus wie das Original und alle Knopfe funktionieren.
Wenn ich aber diese Kopierte Arbeitsmappe in einer Datenbank lege, wo andere zugriff drauf haben, werden an deren Arbeitsplätzen beim drucken der Knopfe 1 bis 4, immer die Originaldatei mitgeöffnet und es kommmt die Meldung von Wegen Schreibgeschützt.
Ziel ist es, die Kopierte Arbeitsmappe in der Datenbank unabhängig vom Original und oder Verknüpfungen zu öffnen und meine 4 Makroknopfe sollten funktionieren.
Ich hatte den Versuch gemacht alle Makros in Personl.xls zu speichern aber leider haben nicht alle Benutzer den Personl.xls oder die Makros an deren Arbeitsplätzen müssen erst importiert werden.
Gibt es eine Lösung?
Hilft mir AddIns?
Wäre sehr dankbar wenn ihr helfen könnt.
Greetz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro als AddIn

23.08.2005 16:07:03

Nepumuk

AW: Makro als AddIn

23.08.2005 16:34:52

Newbee

AW: Makro als AddIn

23.08.2005 16:44:18

Nepumuk

AW: Makro als AddIn

23.08.2005 17:00:13

Neubee

AW: Makro als AddIn

23.08.2005 17:50:15

Newbee

AW: Makro als AddIn

24.08.2005 11:54:33

Newbee

AW: Makro als AddIn

24.08.2005 12:40:11

Nepumuk

AW: Makro als AddIn

24.08.2005 12:50:52

Newbee

AW: Makro als AddIn

24.08.2005 12:54:48

Nepumuk

AW: Makro als AddIn

24.08.2005 13:01:55

Newbee

AW: Makro als AddIn

24.08.2005 13:10:09

Nepumuk

AW: Makro als AddIn

24.08.2005 13:23:14

Neuwbee

AW: Makro als AddIn

24.08.2005 17:24:21

Newbee

AW: Makro als AddIn

24.08.2005 17:39:40

Nepumuk

AW: Makro als AddIn

25.08.2005 13:16:48

Newbee

Ich komme mit dem Code so lala klar.
Leider funktioniert das aber nicht mit meine CommandButtons.
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

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro als AddIn

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread