Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geöffnete Datei mit variablem Namen anwählen

geöffnete Datei mit variablem Namen anwählen
Antoine
Hallo,
Ich sitze auf dem Schlauch.
Ich habe 2 Exceldateien geöffnet. Datei 1 hat einen festen Namen und Datei 2 hat einen variablen Namen, welcher in Zelle H3 von Datei 1 festgehalten ist.
Dieser Name in Zelle H3 setzt sich aus der Formel =B3&TEXT("W3V";)&TEXT(".xls";) zusammen, wobei Zelle B3 das Jahr angibt, z.B. 2010
Datei 1 ist die Ausgangsdatei, in welcher mein Code hinterlegt ist. Wie kann ich nun Sheet 1 der Datei 2 von meiner Datei 1 aus anwählen?
Folgender Code greift einfach nicht 
Sub testtest()
Dim datei As String
datei = Range("H3")
Workbooks.Range("H3").Activate
'oder Windows.Application.datei Sheets("1").Select
'oder .....
Sheets("1").Select
End Sub
Gruss Antoine
Wenn in H3 der NAME steht, dann musst...
03.04.2010 19:54:52
Luc:-?
…du den auch verwenden, Antoine,
und nicht irgendwas anderes, zB…
Workbooks(Range("H3")).Activate: ActiveWorkbook.Sheets(1).Select
Gruß + FrOst, Luc :-?
AW: Wenn in H3 der NAME steht, dann musst...
03.04.2010 20:19:45
Antoine
Hi Luc,
Deine Variante hatte ich auch schon probiert. Funktioniert leider auch nicht.
Run-time error 13
Type mismatch
HfG + FrOst
Antoine
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 20:31:44
Gerd
Hallo Antoine,
mache mal folgendes:
Öffne deine Datei2, schreibe nachfolgenden Code ins das VBAProjekfenster dieser Datei u. vergleiche
die Ausgabe im Direktfenster mit dem Eintrag in B3 der Datei1, Blattxy. 
Sub test()
Debug.Print ThisWorkbook.FullName
End Sub
Dann wäre noch zu klären, ob Datei2 geöffnet ist oder noch nicht, wenn dein Code laufen soll.
Gruß Gerd
Anzeige
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 20:58:48
Antoine
Hallo Gerd,
Datei2 wird im Vorfeld schon mit folgendem Code aus der Datei1 geöffnet und es werden Daten aus Datei2 nach Datei1 kopiert.
....
Dim folder As String
folder = Range("H1")
Dim datname As String
datname = Range("H2")
Dim datname1 As String
datname1 = Range("H3")
Dim macro As String
macro = Range("H4")
'ChDir = folder
Workbooks.Open(Filename:=folder & "\" & datname).RunAutoMacros Which:=xlAutoOpen
Das funktioniert auch einwandfrei und irgendwann komme ich mit
ThisWorkbook.Activate
zurück zur Datei1 um hier Daten auszuwerten.
Nun will ich zurück nach Datei2, welche noch immer geöffnet ist und benutze folgenden Code
Workbooks(Range("H2")).Activate: ActiveWorkbook.Sheets(1).Select
' oder Workbooks. datname.Activate: ActiveWorkbook.Sheets(1).Select
Egal wie, ich komme nicht zurück nach Datei 2, ausser mit
Windows("2010 W3V.xls").Activate .... was ich ja nicht will, da das Datum ja fest ist
Mfg
Antoine
Anzeige
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 21:03:31
Antoine
Ach ja,
Bei der 2010 handelt es sich eigentlich nicht um ein Datum. Es ist das Jahr welches als Zahl in Zelle B3 eingegeben wird.
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 21:06:43
Gerd
Ach so,
probiere es etwas abgewandelt, Antoine.
Workbooks(Range("H2")).Activate ----> Workbooks(Sheets("Tabelle1").Range("H2").Value).Activate
' oder Workbooks. datname ----> Workbooks(datname).Activate
Gruß Gerd
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 21:44:26
Antoine
Sorry Gerd,
So abgewandelt klappt es auch nicht.
Jetzt bekomme ich für beide Beispiele:
Run-time Error 9
Subscript out of range
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 21:57:41
Gerd
Egal wie, ich komme nicht zurück nach Datei 2, ausser mit
Windows("2010 W3V.xls").Activate .... was ich ja nicht will, da das Datum ja fest ist
Hallo Antoine,
was steht nun konkret in H2 in welchem Blatt von Datei1?
Gruß Gerd
Anzeige
AW: geöffnete Datei mit variablem Namen anwählen
03.04.2010 22:44:08
Antoine
Hallo Gerd,
In H2 steht:
2010 W3V.xls
in Blatt Header, doch ich verstehe nicht was das Blatt von Datei1 damit zu tun haben könnte.
Ich möchte doch auf Datei2 Blatt 1 kommen.
Die Frage ist noch offen
03.04.2010 23:33:29
Antoine
...
Warum ist das jetzt H2 und nicht mehr H3...
04.04.2010 01:47:10
Luc:-?
…und wie kommt das Leerzeichen in den Dateinamen, Antoine,
denn deine Fml in H3 oder H2 oder wo auch immer fügt da kein Leerzeichen ein?! Außerdem bist du bzw seid ihr wohl keine „alten EDV-(Oster-)Hasen“, denn die würden es tunlichst vermeiden, mit Leerzeichen in Namen zu arbeiten, denn das verursacht ggf nur unnötige Scherereien wie man ja auch hier wieder mal sehen kann… ;->
Gruß Luc :-?
Anzeige
AW: Warum ist das jetzt H2 und nicht mehr H3...
04.04.2010 03:52:16
Antoine
Hallo Luc,
Die Formel ist in H2 und auch wenn ich das Leerzeichen heraus nehme funktioniert es nicht !
Datei2 wird im Vorfeld schon mit folgendem Code aus der Datei1 geöffnet und es werden Daten aus Datei2 nach Datei1 kopiert.
Dim folder As String
folder = Range("H1")
Dim datname As String
datname = Range("H2")
Dim datname1 As String
datname1 = Range("H3")
Dim macro As String
macro = Range("H4")
'ChDir = folder
Workbooks.Open(Filename:=folder & "\" & datname).RunAutoMacros Which:=xlAutoOpen
Das funktioniert auch einwandfrei und irgendwann komme ich mit ThisWorkbook.Activate zurück zur Datei1 um hier Daten auszuwerten. Nun will ich zurück nach Datei2, welche noch immer geöffnet ist und brauche dafür einen Code welcher funktioniert !
Die Strings folder, datname und macro funktionieren, ansonsten bekäme der alte Osterhase mit 56 Lenzen die Datei2 ja nicht aus Datei1 geöffnet !
Mit Windows("2010 W3V.xls").Activate (mit Leerzeichen) und mit Windows("2010W3V.xls").Activate (ohne Leerzeichen) komme ich in Datei2
(der Name von Datei2 wurde selbstverständlich vorher angepasst !!!)
Da das Jahr eine Variable ist, kann ich nicht mit Windows("2010W3V.xls").Activate arbeiten. Die 2010 ist eine Zahl (Zelle ist nicht als Datum formatiert) welche in B3 steht.
Datname in Zelle H2 setzt sich aus der Formel =B3&TEXT("W3V";)&TEXT(".xls";) zusammen.
Gruss
Antoine
Anzeige
mit einer Variable vom Typ Workbook
04.04.2010 05:43:46
Tino
Hallo,
weise beim öffnen der Datei diese einer Variable zu. 
'...
Dim oWB2 As Workbook
Set oWB2 = Workbooks.Open(Filename:=folder & "\" & datname)
oWB2.RunAutoMacros xlAutoOpen
'...
Jetzt kannst Du mit dieser Variablen die Datei wieder aktivieren
oWB2.Activate

Gruß Tino
TINO; super Ostergeschenk ....
04.04.2010 09:45:08
Antoine
.... das ist es
Vieieieieieieieieieieieieielen Dank
Antoine

302 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
13
4
20
9
2
2
3
2
1
12
3
16
6
1
4
2
3
2
4
6
2
1