Makros in Personal.xlsb

Hallo Forum,
im Laufe der Zeit habe ich mir ein paar Funktionen erstellt, die ich inzwischen in mehreren Excel-Files verwende. Um bei einer Änderung nicht in allen Excel-Files die alte gegen die neue Funktion austauschen zu müssen, wurde mir in einem früheren Thread empfohlen, diese Funktionen in PERSONAL.XLSB zu stellen.
Das habe ich nun versuchsweise gemacht, aber es sieht so aus, als würde Excel den Code in PERSONAL.XLSB nicht finden.
Ich nutze seit einier Zeit Office 2019 und kann nur noch unter dieser Version testen.
Wenn ich den VBA-Editor öffnen, sehe ich, dass PERSONAL.XLSB geladen ist, und darin auch die von mir abgelegte Test-Funktion. Wenn ich nun diese Funktion aufrufen, erhalte ich die Fehlermeldung "Sub oder Function nicht definiert".
Wenn ich die Funktion in meine aktive Excel-Mappe kopiere, funktioniert alles.
Wo liegt der Fehler?
Meine PERSONAL.XLSB und meine Test-Mappe sind hier:
https://www.herber.de/bbs/user/131810.xlsb
https://www.herber.de/bbs/user/131811.xlsm
Gruß
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
eine weitere Möglichkeit wäre, du setzt in den Mappen einen Verweis auf die PERSONAL.xlsb. Dann kannst du die darin enthaltenen Makros so aufrufen als wenn sie in deiner mappe selbst wären. Du musst nur den Projektnamen den PERSONAL.xlsb ändern da keine zwei Projekte mit dem selben Namen haben kannst. Dazu einfach im Projektexplorer auf VBAProject(PERSONAL.xlsb) klicken und im Eigenschaftsfenster darunter den Namen "VBAProject" beliebig ändern, dann die PERSONAL.xlsb speichern.
Den Verweis setzt du über Extras - Verweise - Durchsuchen - und im sich öffnenden Datei-Explorerfenster 1. ganz rechts unten den Dateityp auf "Microsoft Excel Files " ändern und 2. den Verweis mit einem Doppelklick auf die PERSONAL.xlsb im entsprechenden Ordner erstellen.
Gruß
Nepumuk

Public Sub Test() Const PERSONAL_PATH As String = "C:\Users\kafflm\AppData\Roaming\Microsoft\Excel\XLSTART\ _ PERSONAL.XLSB" 'Anpassen !!! Dim objReference As Object Dim blnFound As Boolean For Each objReference In ActiveWorkbook.VBProject.References If LCase$(objReference.FullPath) = LCase$(PERSONAL_PATH) Then blnFound = True Set objReference = Nothing Exit For End If Next If Not blnFound Then ActiveWorkbook.VBProject.References.AddFromFile Filename:= _ PERSONAL_PATH End Sub

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros in Personal.xlsb

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread