Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Konstanten in verschiedenen Dateien abfragen

Konstanten in verschiedenen Dateien abfragen
17.07.2005 16:42:02
Chris
Hallo Zusammen,
ich habe einen Großteil meiner Makros in einem Add-In ausgelagert. Dieses Add-In wird durch einen bestimmten Typ an Datei aktiviert (dieser hat ein Private Sub Workbook_Activate). Andersherum wird das Add-In durch den selben Typ an Datei beim schließen wieder deaktiviert.
Ich habe jetzt das Problem, daß wenn ich 2 Dateien (Datei A/ Datei B) dieses Typs geöffnet habe und dann eine (Datei A) schließe, wird das Add-In deaktivert und die verbliebene geöffnete Datei (Datei B) kann nicht mehr auf die Makros zugreifen.
Jede Datei dieses Typs hat eine Konstante VERSION. Ich hatte schon daran gedacht, eine Schleife einzubauen, die prüft ob eine der geöffneten Workbooks eine Konstante mit entsprechendem Inhalt hat.
Leider weiß ich nur nicht, wie ich auf die Konstante zugreifen kann.
Ihr wißt doch sicher wie das geht..
Vielen Dank
Christian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Konstanten in verschiedenen Dateien abfragen
17.07.2005 18:30:12
Nepumuk
Hallo Chris,
das geht auch nur, wenn die Projekte nicht mit einem Kennwort geschützt sind. Es wäre viel einfacher, wenn du in den Meppen einen ausgeblendeten Namen speichern würdest. Der ist auch einfacher abzufragen.
Beispiel:
Public Sub schreiben()
    Dim dblVariable As Double
    dblVariable = Date
    ThisWorkbook.Names.Add Name:="MyName", RefersTo:=dblVariable, Visible:=False
End Sub

Public Sub lesen()
    Dim strVariable As String
    Dim myWorkbook As Workbook
    On Error Resume Next
    For Each myWorkbook In Workbooks
        strVariable = myWorkbook.Names("MyName").Value
        If Err.Number = 0 Then MsgBox "Name vorhanden in " & myWorkbook.Name
    Next
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige