Dateinamen für Workbook finden
11.06.2003 09:16:19
Jörg
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
Anzeige