Makros Löschen und Importieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang,
Öffne eine der Mappen mit dem Code. Füge ein leeres Tabellenblatt ein und lösche alle andern. Wenn du Code in den Klassenmodulen der Mappe bzw. der Tabellen hast, dann kopiere den Code in ein normales Modul als z.B. Public Sub oeffnen() für das Modul Private Sub Workbook_Open. Wenn du in den Klassenmodulen Ereignisse verwendest bei denen Variable übergeben werden, musst du natürlich dies Variablen an die Module im Addin weiterreichen. Z.B. Public Sub Tabelle_geaendert(Bereich als Range) für Private Sub Woorsheet_Change(ByVal Target As Range). Dann speichern unter und als Dateityp Microsoft Excel-Addin auswählen (letzter Eintrag in der Liste). Excel bietet dir den Addinordner als Speicherplatz an, du kannst es aber in jedem anderen Ordner auch speichern (z.B. Netzwerkordner auf den nur du Schreibrechte, alle anderen nur Leserechte haben). Diese Mappe schließen. Die Originalmappe wieder öffnen und die Module entfernen. In den Klassenmodule z.B. Private Sub Workbook_Open den Code bis auf die Zeilen Private Sub Workbook_Open und End Sub löschen und statt dessen die Zeile z.B. Call oeffnen einfügen um das Modul oeffnen im Addin aufzurufen. Bei einem Ereignis mit Variablenübergabe kommt dann entsprechent der Aufruf z.B. Call Tabelle_geaendert(Target) an Stelle deines Codes rein. Dann Extras - Verweise - Durchsuchen nach deinem Addin suchen. Du musst bei Dateityp noch Excel xls / xla auswählen, sonst wird nicht angezeigt. Dann einfach auf dein Addin einen Doppelklick. Damit hast du einen Verweis auf das Addin. Der wird auch im Projektexplorer angezeigt. Dann musst du die Makrozuweisungen in den so denn vorhandenen Steuerelementen wie z.B. Buttons ändern. Dabei ist zu beachten, das die Makros des Addins nicht in der Liste angezeigt werden. Wenn du z.B. einem Button das Makro xyz zugewiesen hattest und nun auf Makros zuweisen klickst steht in der Mappe ABC folgende Makrozuweisung: ABC.xls!xyz dann löscht du einfach das ABC.xls! raus und klickst auf Ok. Das wars.
Gruß
Nepumuk

Hallo Nepumuk
Ich bin leider kein Profi.Hier mal ein schnipsel von meinem
VBA Code (MenueLieiste)

Sub MenueErstellen()
Dim cmbMenu As CommandBar

Dim cbcLV As CommandBarControl
Dim LV1 As CommandBarControl
Dim LV2 As CommandBarControl

Set cmbMenu = Application.CommandBars.ActiveMenuBar
Set cbcLV = cmbMenu.Controls.Add(Type:=msoControlPopup)
cbcLV.Caption = " Kurz LV "
Set LV1 = cbcLV.CommandBar.Controls.Add(Type:=msoControlButton)
With LV1
.Caption = " MengenAuszug "
.OnAction = "Auslesen"
End With
Set LV2 = cbcLV.CommandBar.Controls.Add(Type:=msoControlButton)
With LV2
.Caption = " Leistungverzeichnis "
.OnAction = "AuslesenLV"
End With
cmbMenu.Visible = True
End Sub
Sag mal wie komme ich denn immer gleich auf mein Thema ohne lange zu suchen? Gibts da nee Möglichkeit ohne zu scrollen?
wolfgang

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread