Guten Abend!
Ich habe hier eine Excel-Tabelle die vor Jahren mal jemand erstellt hat und diese Person wohnt inzwischen im Ausland.
Ich möchte die Tabelle gern auf einem USB-Stick kopieren und auf einem anderen PC öffnen. Das funktioniert zwar auch, nur werden die Makros nicht mit übernommen. In der kopierten Tabelle sind alle Makros verschwunden. (Excel 2003)
Kann mir jemand sagen warum?
Der Programmierer hatte damals auch die Menüleiste in Excel irgendwie angepasst. Da konnte man dann auf oben in der Menüleiste auf einen Eintrag klicken und dann auf „Drucken 1.Seite“, „Drucken 2.Seite“ …
Keine Ahnung, wie man sowas erstellt oder ob das mit den Makros zusammen hängt.
Gruß WinniPuh
Hallo Winni,
Ich möchte die Tabelle gern auf einem USB-Stick kopieren und
auf einem anderen PC öffnen. Das funktioniert zwar auch, nur
werden die Makros nicht mit übernommen. In der kopierten
Tabelle sind alle Makros verschwunden. (Excel 2003)
wie kopierst du?
Probier mal Datei—Speichern unter…
Der Programmierer hatte damals auch die Menüleiste in Excel
irgendwie angepasst. Da konnte man dann auf oben in der
Menüleiste auf einen Eintrag klicken und dann auf „Drucken
1.Seite“, „Drucken 2.Seite“ …
Eigene Symbole/Einträge kann man manuell erstellen oder aber mit Vba.
Man kann nicht erkennen wie sie erstellt wurden. Die Symbole stehen dann fest in Excel und gelten für alle Mappen.
Rechtsklick auf die Menueleiste, Anpassen—Befehle—Makros, mit links das gelbe Symbol auf die Menueleiste ziehen, das Symbol mit rechts anklicken, Makro zuweisen.
In dem Moment kann man auch das Aussehen des Symbols verändern.
Wenn man das Symbol nur in einer Mappe braucht, so läßt man es beim Start der Mappe per vba erstellen und schließt es beim Schließen der Mappe. Entsprechender Codeaufruf muß dann im Modul „Diese Arbeitsmappe“ vorhanden sein.
Gruß
Reinhard
Hallo Reinhard!
wie kopierst du?
Probier mal Datei—Speichern unter…
Ich habe die Datei über den WIN-Explorer kopiert auf den USB-Stick.
Zusätzlich wurde die Datei auch per E-Mail verschickt (Rechtsklick auf die Datei … Senden an).
Ich kann es aber auch noch mal mit SPEICHERN UNTER versuchen.
Eigene Symbole/Einträge kann man manuell erstellen oder aber
mit Vba.
Man kann nicht erkennen wie sie erstellt wurden. Die Symbole
stehen dann fest in Excel und gelten für alle Mappen.
Rechtsklick auf die Menueleiste, Anpassen—Befehle—Makros,
mit links das gelbe Symbol auf die Menueleiste ziehen, das
Symbol mit rechts anklicken, Makro zuweisen.
In dem Moment kann man auch das Aussehen des Symbols
verändern.
Hab das gerade probiert! Ist ja Megastark!
So hat der Programmierer es auch gemacht und dann stand in dem Menü „Seite 1 drucken“, „Seite 2 drucken“ und noch mehr.
Ich kann leider nicht auf den anderen PC zugreifen, werde es aber demnächst mal probieren.
Danke für den Tipp!
Ein schönes Weekend wünscht WinniPuh!
Hallo Winni,
wie kopierst du?
Probier mal Datei—Speichern unter…
Ich habe die Datei über den WIN-Explorer kopiert auf den
USB-Stick.
Zusätzlich wurde die Datei auch per E-Mail verschickt
(Rechtsklick auf die Datei … Senden an).
das verstehe ich nicht, dann wir die xls verschickt/kopiert, dadrin bleiben bei mir die Makros erhalten.
Ich kann es aber auch noch mal mit SPEICHERN UNTER versuchen.
Hab das gerade probiert! Ist ja Megastark!
So hat der Programmierer es auch gemacht und dann stand in dem
Menü „Seite 1 drucken“, „Seite 2 drucken“ und noch mehr.
Ja, man kann wählen ob ein Symbol angezeigt wird oder ein Texteintrag.
Letztlich, zumindest mit Vba, kann man auch einen Menüeintrag erstellen wie z.B. „datei“ oder „bearbeiten“, wo dann beim Klick darauf ein Untermenue aufklappt.
Zu den verfügbaren Symbolen, genaue Anzahl kenne ich nicht pro Version, werden wohl so 1000 sein.
Sie alle haben in Vba eine eigene Nummer, von 1 bis 1000.
Die Nummer bzw. das Symbol wählt man mit FaceId.
Nachfolgend ist Code der zeigt wie man so ein Symbol erstellet und auch wieder löscht.
Gruß
Reinhard
in ein Standardmodul, z.B. Modul1
„Ein/Aus“ ist der Name des Makros, 578 ist das 578te Symbol in den Excelsymbolen.
Sub SymbolErzeugen()
Dim cmbb As CommandBarButton
Call SymbolLoeschen
Set cmbb = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, temporary:=True)
With cmbb
.Caption = "Fadenkreuz"
.FaceId = 578
.OnAction = ThisWorkbook.Name & "!EinAus"
End With
Set cmbb = Nothing
End Sub
'
Sub SymbolLoeschen()
Dim C As CommandBarControl
For Each C In Application.CommandBars("Worksheet Menu Bar").Controls
If C.Caption = "Fadenkreuz" Then C.Delete
Next C
End Sub
Hallo WinniPuh,
evtl. hat der Kollege die entsprechenden Makros in seiner „Persönlichen Makroarbeitsmappe“ PERSONL.XLS oder einer separaten DAtei gespeichert.
Eigene und modifizierte Symbolleisten werden standardmäßig unter Excel 2003 in einer Datei mit der Erweiterung „.xlb“ gespeichert. Optional kann sie auch in eine normale Excel-Arbeitsmappe einbinden.
Scheinbar hat der Kolleg den Bedienungskomfort nur für sich eingerichtet und die Automatisierungen nicht in der Exceldatei selber integriert.
Gruß
Franz