Variable Projektübergreifend nutzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaaa() Dim strQ As String, wkbQ As Workbook With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Quelle öffnen" If .Show = -1 Then strQ = .SelectedItems(1) End With If Len(strQ) Then Set wkbQ = Workbooks.Open(strQ) Else Exit Sub End If 'dein Code End Sub

Hallo Chris
Danke für Deine Antwort
oweh, das Muster wäre:
Jahr-lfdNr Kalenderwoche-Kalenderwoche.xlsm
wobei die differenz der KW immer 24 ist.
Wenn dann aber noch ein Jahreswechsel dabei ist, wird der Dateiname erst richtig abenteuerlich.
Das können wir glaub ich vergessen.
Und das mit dem Übergeben gestaltet sich von daher auch schwierig, weil der Name der Zieldatei auch jeden Monat ein anderer ist. Und zuletzt, wenn ich das richtig verstanden habe, müsste man die Übergabe des Namens von der Quelldatei aus starten. Ich denke, das wird für den User komplizierter, als wenn er dann halt einmal im Monat für den Transfer alle anderen Mappen schließen muss, damit ich die Quelle mit Workbooks(1) ansprechen kann.
Wenn es, so wie es sich für mich jetzt darstellt, keine Möglichkeit gibt, eine Variable zu deklarieren, die Projektübergreifend nutzbar ist, werde ich wohl an der bisherigen Lösung festhalten.
Viele Grüße
Edmund

Hallo
Du könntest eine Systemvariable definieren z.B. (In Quelle)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim objUserEnvVars As Object
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
objUserEnvVars.Item("ItsMe") = ""
Set objUserEnvVars = Nothing
End Sub
Private Sub Workbook_Open()
Dim objUserEnvVars As Object
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
objUserEnvVars.Item("ItsMe") = ThisWorkbook.Name
Set objUserEnvVars = Nothing
End Sub

Definiert die Sytemvariable "ItsMe" beim Öffnen und löscht sie wieder beim schliesen.
In Ziel kannst Du nun die Variable abfragen (wenn nicht vorhanden, dann ist die Quelle nicht offen)


Sub CheckQuelle()
Dim objUserEnvVars As Object
Dim strEnvVar As String
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
strEnvVar = objUserEnvVars.Item("ItsMe")
If strEnvVar = "" Then
MsgBox "Quelle ist nicht offen"
Else
MsgBox "Benutze Quelle: " & strEnvVar
End If
Set objUserEnvVars = Nothing
End Sub

Peter

Beliebteste Forumthreads (12 Monate)

Variable Projektübergreifend nutzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread