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

Workbooks

Workbooks
10.06.2003 13:03:33
Jörg
Hi ,

ich möchte gerne mir mit folgenden Befehl
Daten aus einer anderen Exceldatei holen:

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

Ich bekomme aber immer den Fehler das der Breich nicht erreichbar
ist.
Wo liegt hier der Fehler ?

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

Betreff
Datum
Anwender
Anzeige
Re: Workbooks
10.06.2003 13:10:22
xxx

Hallo,
dein Workbook heißt doch wohl nicht Textbox16.xls, oder? Dir fehlen " Und &

So sollte es gehen:
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ß aus'm Pott
Udo

Re: Workbooks
10.06.2003 13:32:23
Jörg

Hallo,

ich bekomme nun immer ein Syntax-Fehler wenn dies
verwende:
Workbooks(" &TextBox16.Text & ".xls").Worksheets
Fehlt da nicht noch irgend was , denn so geht es auch nicht.
Gruß Jörg

Anzeige
Re: Workbooks
10.06.2003 13:39:07
xxx

Hallo,
war Blödsinn! Entschuldige. Deine ursprüngliche Sytax sollte richtig sein.
schreib doch mal ein
Debug.Print Textbox16.Text&".xls"
vor deinen Code und schau im Direktfenster nach, was da rauskommt.

Gruß aus'm Pott
Udo

Re: Workbooks
10.06.2003 14:14:06
Jörg

Hallo,

nun bekomme ich immer die Meldung vom VBA.
Die Zeile sieht so aus:

If CheckBox4 = True Then
'Abweichung 1.Wert
Debug.Print TextBox16.Text&; ".xls"
Worksheets("formel").Range("E8").Value = Workbooks(TextBox16.Text & ".xls").Worksheets("85°C-85%").Range("C4")

Bin mir da nicht sicher ob dies richtig ist?

Jörg

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige