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

Dateinamen für Workbook finden

Dateinamen für Workbook finden
11.06.2003 09:16:19
Jörg
Hallo ich möchte mit folgenden Macrozeilen
Werte aus einer anderen offenen Exceldatei
kopieren.
Bekomme aber immer nur den Syntaxfehler 9 angezeigt.
Der Fehler scheint daran zu liegen das ich nicht auf meine
Datei zurück komme.
Wie ist es möglcih den Dateinamen zuerhalten und damit hin und
her zuspringen.

Macro:

Workbooks.Open FileName:="C:\Eigene Dateien\" & TextBox16.Value & ".xls", ReadOnly:=True
'-40 °C
If CheckBox4 = True Then
'Abweichung 1.Wert
Worksheets("formel").Range("E8").Value = Workbooks(TextBox16.Text & ".xls").Worksheets("85°C-85%").Range("C4")
Worksheets("formel").Range("E18").Value = Workbooks(TextBox16.Text & ".xls").Worksheets("85°C-85%").Range("C5")


Gruß Jörg

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

Betreff
Datum
Anwender
Anzeige
Re: Dateinamen für Workbook finden
11.06.2003 09:39:57
Nike

Hi,

mal ein Ansatz:
dim wkb1 as workbook
dim wkb2 as workbook
set wkb1 = activeworkbook

set wkb2 = workbooks.open FileName:="C:\Eigene Dateien\" & TextBox16.Value & ".xls", ReadOnly:=True

If CheckBox4 = True Then

wkb1.Worksheets("formel").Range("E8").Value = Wkb2.Worksheets("85°C-85%").Range("C4")
'...

Bye

Nike

Re: Dateinamen für Workbook finden
11.06.2003 09:55:11
Jörg

Hallo Nike,

danek sieht so ja ganz gut aus bis auf den
kompilierungs Fehler bei "FileName:="
den möchte er nicht nehmen und sagt mir immer
ein erwartetes Anweisungsende fehlt.

Jörg

Re: Dateinamen für Workbook finden
11.06.2003 10:01:45
Nike

Hi,
eieiei, diese Syntaxschnitzer ;-)

Set wkb2 = Workbooks.Open("C:\Eigene Dateien\" & TextBox16.Value & ".xls", True)

Sorry.

Bye

Nike

Anzeige
Danke
11.06.2003 12:47:23
Jörg

Hey klasse es funktioniert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige