Commandbutton soll Dateiübergreifend funktionieren

Private Sub CommandButton1_Click() Call a_Anfang Call a_LeereSpaltenLöschen Call b_ÜberschriftSichern Call c_LeereZeilenLöschen Call d_ZeileWegWennZelleLeer Call e_ZeileWegWennZelleAgent Call f_SummenEntfernen Call g_Namenstrennung Call h_Autofill Call i_WerteFixieren Call j_PivotErstellen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Aufrufe() Call a_Anfang Call a_LeereSpaltenLöschen Call b_ÜberschriftSichern Call c_LeereZeilenLöschen Call d_ZeileWegWennZelleLeer Call e_ZeileWegWennZelleAgent Call f_SummenEntfernen Call g_Namenstrennung Call h_Autofill Call i_WerteFixieren Call j_PivotErstellen End Sub

Hallo Anton,
auch das ist Möglich. Ich würde dann Deine Mappe einfach als Add-Inn zur Verfügung stellen.
in diesem Add-Inn, fügst Du dann folgendes rein:
ins Modul 'Diese Arbeitsmappe'


Private Sub Workbook_Open()
Call Menue_ein
End Sub

in ein Modul:
Sub Menue_ein()
Call Menue_aus
With Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlButton, ID:=2950, Before:=11)
.Caption = "Dein Makro Name" 'Name anpassen
.OnAction = "Aufrufe" 'Makroname anpassen
End With
End Sub
Sub Menue_aus()
Application.CommandBars("Worksheet Menu Bar").Controls("Dein Makro Name").Delete
End Sub
dann Deine ganzen anderen Module, wo auch unter anderem das Haupt Makro drinn ist:


Private Sub Aufrufe()
Call a_Anfang
Call a_LeereSpaltenLöschen
Call b_ÜberschriftSichern
Call c_LeereZeilenLöschen
Call d_ZeileWegWennZelleLeer
Call e_ZeileWegWennZelleAgent
Call f_SummenEntfernen
Call g_Namenstrennung
Call h_Autofill
Call i_WerteFixieren
Call j_PivotErstellen
End Sub

beim start von Excel (wenn das Add-inn eingefügt wurde) wird in der MenüLeiste vor dem Hilfe Button(Fragezeichen) ein Button generiert (Smiley) der benannt ist (Dein Makro Name). drückt man darauf, wird das Makro Aufrufe ausgeführt...
Vor Erstellen des Buttons wird der alte Button erst gelöscht (sonst hättest Du irgendwann 1000 Buttons darin)
Wie das mit dem Add-Inn geht weißt Du?
Das ist meiner Meinung nach die beste und sauberste Lösung.
Kannst ja zusätzlich das Projekt im VBA Editor mit einem Passwort vor unbefugtem Zugang schützen, ist zwar kein hundertprozentiger Schutz, aber wenn Du sagst das deine Kollegen nicht soviel Kenntnisse haben, sollte es reichen.
Grüße
Hoffi

Hallo Anton,
das ist eigentlich keine große Sache.
Wenn Du dann auf 'Diese Arbeitsmappe' klickst (im VBA Editor), dann siehst Du unten links im Eigenschaftsfenster, die Eigenschaften von 'Diese Arbeitsmappe'.
Dort gibt es einen Punkt, der nennt sich 'IsAddInn' den Punkt setzt Du auf True.
Nun speicherst Du die Mappe als Add-Inn, (unten als Auswahl vorhanden). Fertig...
Da bei einem Add-Inn meist keine Tabellenblätter mehr sichtbar sind, können die Anwender natürlich Deine Makro´s nicht ausführen und die Werte in den Tabellen nicht sehen..
Ich würde dann hingehen, und im Aufruf Makro den Punkt IsAddInn auf False setzten
ThisWorkbook.IsAddInn = False
Danach sind alle Tabellenblätter sichtbar und die Leute können darin Arbeiten...
Dann würde ich im Aufruf Makro (nach abarbeiten aller Makro´s den Leuten den Hinweis geben, das die Mappe gespeichert werden muss (unter anderem Namen am besten) und nach dem speichern den Punkt IsAddInn wieder auf True setzen. d.h. bei Klick auf den Button, wird die Mappe angezeigt und nach dem speichern wieder ausgeblendet.
die andere Möglichkeit wäre, Deine Mappe nach Klick auf den Button öffnen zu lassen und im Workbook_open Ereignis Deiner Mappe dann alle Makro´s zu starten.
ist vielleicht die elegantere Möglichkeit... Also brauchst Du nur ein AddInn, welches den Button generiert und fügst dort ein Makro ein:


Sub Aufruf()
Dim wb as Workbooks
wb.Open "C:\Test.xls"
End Sub

Falls Du noch Fragen hast, kannst Du mir auch ne E-Mail schreiben. michael.hoffmann@veoliawater.com
sitze nicht immer an dem Rechner hier...
Grüße
Hoffi

Beliebteste Forumthreads (12 Monate)

Commandbutton soll Dateiübergreifend funktionieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Commandbutton soll Dateiübergreifend funktionieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread