Word_Etiketten für Sauce kann nicht geöffnet werden.

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.

Update für alle, die irgendwann das gleiche Problem mit der .pst-Datei haben:

Ich habe heute nochmals versucht, Outlook zu starten, was nicht funktioniert hat. Dann habe ich wie vom System vorgeschlagen unter Systemsteuerung > Programme das Office Paket reparieren lassen.

Wieder eine .pst-Fehlermeldung.

Neustart des Computers.

Dann hat Outlook normal aufgemacht, die e-mail Konten sind da, e-mail Versand funktioniert.

K.A. was jetzt genau das Problem war, aber es scheint gelöst...

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