Makroprobleme wenn bei geöffneter Userform eine andere Datei geöffnet wird

Tach Claus
Das habe ich ja mit Bei jedem Statement wie Range("abc")= zuerst Datei A aktivieren ist zwar möglich, aber sehr umständlich. auch gesagt. Das Problem damit: leider existiert bei VBA scheinbar eine Grenze für Modulen bei 64 k. Einige der vorhandenen Module kratzen aber an dieser Grenze. Es geht ja nicht nur um das Speichern von ein paar Werten, sondern um ein ganzes Sammelsurium von Daten in diversen Tabellenblättern der Datei A.
Bei einer Funktion werden Daten aus 4 Tabellenblättern gleichzeitig verwendet. Es würde dann also so aussehen:

With wshZiel
.Sheets("Tabelle1").Range("dauer") = .Sheets("Tabelle2").Range("xyz")
.Sheets("Tabelle3").Range("zeit") = .Sheets("Tabelle4").Range("abc")
End With

Mein Wunsch

Range("dauer") = Range("xyz")
Range("zeit") = Range("abc")

Wobei dauer, xyz, zeit und abc benannte Zellen in den jeweiligen Tabellenblättern sind
Meine Idee: wie kann ich verhindern, dass andere Dateien geöffnet werden, wenn eine Userform aktiv ist?

Hallo Andreas
im Normalfall sind zwei Dateien offen - eine mit allen Makros und eine mit den Daten. Soweit wie möglich befinden sich in den Tabellenblättern der Datendatei keine Makros.
Ich habe nun eine Holzhammermethode eingebaut, die Fehler verhindert.
Eine Schaltfläche in der Datendatei ruft die primäre Userform in der Makrodatei auf. Über diese primäre Userform werden dann alle anderen Bearbeitungsschritte ausgelöst. (Stand der Dinge.)
Neu wird nun in der Sub UserForm_Initialize ein Flag in der Datendatei auf True gesetzt. Wird die UserForm geschlossen, wird die Flag auf False gesetzt.
In der Datendatei ist nun die folgende Sub
Private Sub Workbook_Deactivate()

If flag = True Then
'
' eine Userform ist aktiv
'
x = MsgBox("Eine andere Datei wird geöffnet!" & vbLf & _
"Die aktive Maske wird geschlossen, allfällige Dateneingaben gehen verloren.", _
vbOKOnly + vbExclamation, "Wechsel")
flag = False
End
End If
End Sub
Wie gesagt, nicht optimal, aber es funkioniert.

zu a) versuche ich nicht zu verwenden
zu b) leider sind es wesentlich mehr als nur 4 Variable. Grosse Module habe ich bereits gesplittet und weiteres Splitting wird dann etwas unübersichtlich.
Gruss
Jürgen

Bei jedem Statement wie Range("abc")= zuerst Datei A aktivieren ist zwar möglich, aber sehr umständlich. auch gesagt. Das Problem damit: leider existiert bei VBA scheinbar eine Grenze für Modulen bei 64 k.

a) Keine gute Idee, denn das funktioniert nicht wirklich / bei Dir nur per Zufall. Bitte benutze niemals SELECT, SELECTION, ACTIVECELL, es ist langsam und fehleranfällig. Referenziere immer die Objekte.
b) Das betrifft nur das Codemodul und wenn wir 4 Variablen definieren und diese den Tabellenblättern zuweisen ist das Problem nicht vorhanden.
Außerdem läßt sich ein großes Modul relativ leicht splitten, man definiert globale Variablen und verschiebt einen Codeteil in ein anderes Modul.
BTW, ein Range in einem regulären Modul bezieht sich immer auf die aktuelle Datei und das aktuelle Blatt, in dem Codemodul eines Blattes bezieht sich das Range immer auf das Blatt. Wenn man also die Routinen zum Speichern / Lesen / Organisieren der Daten in das Blatt verschiebt (und am besten eine Property aus den Sub/Function macht), dann ist das Range-Problem schon mal weg. Der Speicherbedarf reduziert sich und wenn man eine Schleife mit Feldnamen ausführt, dann muss man noch nicht mal großartig was umschreiben.
Andreas.

Hallo Jürgen,
es ist immer besser korrekt zu referenzieren, erst recht, wenn mehrere Mappe gleichzeitig geöffnet sind.
Probiere es z.B. so:

Dim wshZiel As Workbook

Set wshZiel = Workbooks("Mappe1.xlsx")

With wshZiel.Sheets("Tabelle1")

.Range("A1") = 1

.Range("B2") = 2

End With

Claus

Vielen Dank, Andreas, für Hinweis und Link

Dann habe ich eine Nachfrage, die es mir eventuell ermöglicht, mein Problem zu lösen. Aus dem Link kann ich das leider nicht herauslesen.

Situation:

Zum und im ersten geöffneten Workbook ( e.g. WB0 ) in EXCEL 2019 wird eine Userform ( sie heisse UF0 ) gestartet. Diese Userform enthält eine Anzahl von Steuerelementen und Funktionen, die nicht nur im ersten geöffneten Workbook WB0 Lese- und Schreib-Aktionen
ausführen sollen, sondern auch in weiteren geöffneten Workbooks ( e.g. WB1, WB2 etc. ) Lese- und Schreib-Aktionen ausführen sollen und workbooksübergreifend Zelleneinträge lesen und schreiben müssen.

Problem ist nun, dass

1. die Userform nur dann erreichbar/im Vordergrund/ aktiv ist, wenn WB0 aktiviert ist und

2. diese Funktionen nur auf das WB0 zugreifen können bei Click, jedoch nicht auf WB1 oder WB2 etc.

zu 1. löst ShowModal das Problem leider nicht - weder True noch False ändern dieses Verhalten. Gibt es dafür eine Lösung?

zu 2. muss vermutlich jeder Lese/Schreibaktion eine Zuweisung zum jeweiligen Workbook mitgegeben werden - verflixt viel Arbeit.... oder gibt es dafür eine Lösung?

Für jeden Tip dankbar...

Rudolf