Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktives Fenster in VBA wählen

Aktives Fenster in VBA wählen
06.08.2005 16:10:02
Frank
Hallo.
Ich habe folgendes Problem:
Über einen Makro werden aus einer Datei heraus drei andere Dateien geöffnet und anschließend Abfragen durchgeführt und die Ergebnisse in der Ausgangsdatei gespeichert.
Workbooks.Open Filename:= _"C:\....xls"
Workbooks.Open Filename:= _"C:\....xls"
Workbooks.Open Filename:= _ "C:\....xls"
Windows("Vorlage.xls").Activate
Range("A12").Select usw.
Das funktioniert auch solange, bis die Ausgangsdatei (im Beispiel Vorlage.xls) nicht unter einem anderen Namen gespeichert wird.
Ich suche also einen Weg, den Ausgangsdateinamen in einer Variablen zu speichern, so dass ich ihn anschließend über Windows(...).Activate (oder einen gleichwertigen Befehl) verwenden kann.
Mein Lösungsansatz:
Dim Dateiname As String
Dateiname = ActiveWorkbook.FullName
Workbooks(Dateiname).Activate
funktioniert leider nicht.
Vielen Dank im Voraus!
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktives Fenster in VBA wählen
06.08.2005 16:19:29
Leo
Hi,
lass das selecten und activaten weg, dann hast du das Problem nicht.
Thisworkbook.Activate (Das, in dem der Code läuft).
mfg Leo
AW: Aktives Fenster in VBA wählen
06.08.2005 16:24:18
Ralf
Hallo Frank,
immer wenn Du Dateiname aktualisierst, nimmt die Variable logischerweise den kompletten Pfad der aktuellen Anwendung an. Du bräuchtest also noch eine Variable für den alten Namen. Und nur wenn dieser Name leer ist, weist Du ihr den Namen der aktiven Anwendung zu. Dazu bietet sich das Ereignis BeforeClose an. Bsp.: (nicht getestet)
dim Dateiname$, DateiAlt$
Dateiname = activeworkbook.fullname
if DateiAlt = "" then DateiAlt = Dateiname
Ciao, Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige