Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbooks

Forumthread: 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 ?

Anzeige

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

Anzeige
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

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

Anzeige
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)

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