Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1752to1756
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

VBA Windows.activate

VBA Windows.activate
17.04.2020 14:26:43
Günther
Hallo zusammen
Ich habe hier schon viele Lösungen für Excel Probleme gefunden und finde dieses Forum einfach nur toll.
Jetzt stehe ich aber vor einem Problem und komme einfach nicht mehr weiter
ich rufe eine excel Datei über eine andere auf. Funktioniert auch
nur habe ich das Problem das ich dann zwischen den Fenstern nicht hin und herspringen kann. Wenn ich den dateinamen eingeb funktioniert es, aber sobald der Dateiname aus einer Variable aufgerufen wird, geht es nicht mehr
hier mein code:
in der MSG Box wird der richtige dateiname angezeigt (somit passt eigentlich der Wert).
aber in der nächsten zeile "Windows ("projektname").activate bekomme ich einen Laufzeitfehler
Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Select
Sheets("Übersicht").Range("R4").Select
Selection.Copy
Workbooks.Open [Auer_Copyfile]
ActiveWorkbook.Sheets("Auer").Activate
Windows("Auer Success.xls").Activate
Sheets("Auer").Range("R4").Select
ActiveSheet.Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").Select
Selection.ClearContents
MsgBox projektname
Windows("projektname").Activate
Sheets("Zusammenfassung").Range("C2:D5000").Select
Selection.Copy
usw....
vielen Dank :)
lg Günther

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Windows.activate
17.04.2020 14:41:59
MRUTor
Hallo Guenther,
erstmal als Hinweis. Lies dir mal im Internet ein paar Seiten durch, auf denen beschrieben wird, dass man die ganze Aktiviererei und Selektiererei zu 99 % nicht braucht. Hab dir deinen Codeabschnitt mal etwas gekuerzt.
Eine Datei ruft man nicht ueber Windows..... auf sondern ueber Workbooks(Workbookname).

Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Range("R4").Copy
Workbooks.Open [Auer_Copyfile]
Workbook("Auer Success.xls").Sheets("Auer").Range("R4").Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").ClearContents
MsgBox projektname
Workbook(projektname).Activate
Sheets("Zusammenfassung").Range("C2:D5000").Copy
'usw...

Gruss Torsten
Anzeige
AW: VBA Windows.activate
17.04.2020 14:43:38
MRUTor
hier nochmal. hatte da 2 mal das s in Workbooks vergessen

Private Sub Auer_Sucess_Click()
Dim projektname As String
Sheets("Übersicht").Range("R4").Copy
Workbooks.Open [Auer_Copyfile]
Workbooks("Auer Success.xls").Sheets("Auer").Range("R4").Paste
projektname = ActiveSheet.Range("R4")
Sheets("Auer").Range("A2:B5000").ClearContents
MsgBox projektname
Workbooks(projektname).Activate
Sheets("Zusammenfassung").Range("C2:D5000").Copy
'usw...

AW: VBA Windows.activate
17.04.2020 15:39:00
Günther
hallo Torsten
Danke für die Rückmeldung, nur leider geht es nicht bzw. bleibt der code schon früher "stehen"
Das mit dem ständigen aktivieren/deaktivieren weiß ich, nur ohne das geht es leider überhaupt nicht.
ebenso habe ich über excel bzw. windows versucht zu wechseln - beides ohne Erfolg :(
ich verstehe nicht warum er bei
Workbooks(projektname).Activate
oder auch windows (projektname).activate

zum Stehen kommt.
in Projektname steht genau der richtige dateiname (test.xlsm) der Datei zu der gewechselt werden soll
bei windows(test.xlsm).activate wechselt die Datei richtig
lg
Anzeige
AW: VBA Windows.activate
18.04.2020 12:21:27
Günther
So Problem habe ich selbst gelöst
ist nicht wie vermutet bei
Windows("projektname").Activate
zum stehen gekommen sondern bei
Sheets("Zusammenfassung").Range("C2:D5000").Select
Ich habe davor das sheet einfach nochmals angesprochen mit
Sheets("Zusammenfassung").Select
Sheets("Zusammenfassung").Range("C2:D5000").Select
und schon funkt es
lg

9 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige