Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1848to1852
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
Inhaltsverzeichnis

Zeile für ganzes Dokument

Zeile für ganzes Dokument
12.10.2021 13:40:00
Daniel
Hallo zusammen
Wo und wie muss ich unterstehende Zeilen hinschreiben, damit ich diese für das ganze Dokument anwenden kann ohne das ich es immer neu schreiben muss?

Option Explicit
Public WkBk      As Workbook
Set WkBk = Workbooks.Open(Filename:="C:\Users\User\Dropbox\VBA\E-mail\Email.xls")
Gruss Daniel E.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile für ganzes Dokument
12.10.2021 14:13:46
Daniel
Hi
in einem allgemeinen Modul (Modul1)

Option Explicit
Public WkBk  As Workbook
Sub EMailDateiÖffnen()
for each WkBk in Application.Workbooks
if WkBk.Name = "Email.xls" then Exit for
next
if WkBk is nothing then Set WkBk = Workbooks.Open(Filename:="C:\Users\User\Dropbox\VBA\E-mail\Email.xls")
End Sub
im Modul diese Arbeitsmappe:

Private Sub Workbook_Open()
Application.Run "EMailDateiÖffnen", Now
End Sub
Das Makro EMailDateiÖffnen kannst du auch mal solitär starten, wenn du bspw einen Fehlerabbruch hattest und somit die Variable WkBk geleert ist, aber die Datei noch geöffnet ist, so dass man einfach die Variable zuweisen könnte ohne die Datei nochmal zu öffnen.
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige