Office: Windows(Variable).Activate

Hallo,

ich würde gerne ein worksheet, welches ich als variable deklariert habe mit dem Befehl Windows(Variable).Activate aktivieren. Leider bekomme ich hier eine Fehlermeldung. Mein Quelltext sieht bisher folgendermaßen aus:


.....
Dim Funds As String
Sheets("Crosschecks").Select
Funds = Cells(41, 5).Value 'in der benannten Zelle steht der Pfad sowie
'die Datei die ich aufrufen möchte

Windows(Funds").Activate
Sheets("SA Sliding Fee Schedule").Select
Range("A4").Select
.....

Schon mal vielen Dank für die Hilfe!

:)

 

das " bei Windows(Funds).activate entfernen?

dann: möchtest du nun ein windows oder ein worksheet aktivieren?

übrigens sind all diese .selects relativ unnötig, du könntest den code auch abkürzen, z.b die zeilen 2 und 3 so:
Funds=sheets("Crosschecks").Cells(41,5)

 

hi,

danke für deine schnelle antwort.

Ich möchte gern ein excel worksheet öffnen

 

dann reicht eigentlich folgendes:
Code:

 

hmmm.. also irgendwie gehts immer noch nicht. Ich zeig dir nochmal den gesamten Quelltext, vielleicht hab ich was übersehen:

' Funds payment calculation (source)

Dim Funds As String
Funds = Worksheets("Crosschecks").Cells(41, 5).Value


' Group payment (Template)

Dim Group As String
Group = Worksheets("Crosschecks").Cells(44, 5).Value
Workbooks.Open (Group)


'clear template

Sheets("base data").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

'copy SA tab

Worksheets(Funds).Activate 'Hier erscheint der Fehler
Sheets("SA Sliding").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets(Group).Activate
Sheets("base data").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

____________________________-

vielleicht nochmal zur verdeutlichung:
Group und Funds sind vollständige excel files, deren Pfad in dem einem worksheet angegeben wird
Crosschecks, base data und SA Sliding sind tabs innerhalb dieser worksheets.

trotzdem schon mal vielen Dank für deine Hilfe

 

ich glaub da haben wir ein kleines Verständigungsproblem:
Excel-Files öffnest/aktivierst/etc du mit workbook(name).open/activate/etc...
Worksheets (oder Tabs, wie du sie hier nennst, also die einzelnen blätter (sheets) einer Arbeitsmappe(Workbook)) mit worksheets(name).open/activate/etc

deshalb müstte die zeile
Worksheets(Funds).Activate 'Hier erscheint der Fehler
eher
Workbook(Funds).Activate 'Hier erscheint kein Fehler mehr
sein...

 

sorry, für das missverständnis fabian.

wie würdest du denn dann den quelltext schreiben, habs mal folgendermaßen ausprobiert, funktioniert aber leider nicht:

Dim Funds As String
Funds = Workbooks("Crosschecks").Cells(41, 5).Value
Workbooks(Funds).Activate

 

Dim Funds As String
Funds = Worksheets("Crosschecks").Cells(41, 5).Value
Workbook(Funds).Activate

 

hmm... funktioniert bei mir leider nicht

erkennt auch nicht den befehl "workbook" lediglich "workbooks" damit funtz es auch nicht

 

ist das entsprechende workbook denn schon offen?

 

ja, es ist das jenige von dem ich aus das macro starte. Er springt danach zunächst in ein anderes Dokument "Group" und soll dann wieder zurück springen

[Edit] Mof-Team jinx: Wegen Crossposting geschlossen [/Edit]