Wie rufe ich XL-Dateien in VBA auf?

Forumthread: Wie rufe ich XL-Dateien in VBA auf?

07.08.2003 17:00:08

Joachim

Guten Tag,
meine kleine Dokumentation aus dem Netz stößt gerade an ihre Grenzen, vielleicht könnt ihr mir weiterhelfen:
ein Worksheet rufe ich aus mit: worksheets("sheetname").Range .....,
wie rufe ich aber eine Datei (Workbook) auf? Wenn ich
FormSource.xls.worksheets("Source").range("A2:AE2") schreibe funzt das nich und ich hab keine Ahnung.
Vielen Dank schon mal im Voraus und schönen Gruß, Joachim

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wie rufe ich XL-Dateien in VBA auf?

07.08.2003 17:06:26

Hajo_Zi
Danke, -> neues Problem

07.08.2003 17:12:40

Joachim
AW: Danke, -> neues Problem

07.08.2003 17:20:23

Joachim
AW: Danke, -> neues Problem

07.08.2003 17:21:31

Hajo_Zi
AW: Wie rufe ich XL-Dateien in VBA auf?

07.08.2003 17:06:43

Ramses

AW: Wie rufe ich XL-Dateien in VBA auf?

07.08.2003 17:06:26

Hajo_Zi

Hallo Joachim
Workbooks("FormSource.xls").Worksheets("Source").Range ("A2:AE2")
Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen. Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Danke, -> neues Problem

07.08.2003 17:12:40

Joachim

Vielen Dank für deine schnelle Hilfe jetzt sagt er da nicht mehr Error, aber ...
aus irgendwelchen Grund sagt der immernoch "Subscript out of Range" Hier mal der Text:


Sub NeuesProjektZuDatenbankHinzufuegen()
Dim verz
verz = MsgBox("Haben sie sichergestellt, das sich die Quellendatei im gleichen Verzeichnis befindet?", vbYesNo + vbQuestion + vbDefaultButton2, "Gleiches Verzeichnis?")
If verz = vbYes Then
Dim filename
filename = InputBox("Wie heisst die Quellendatei? (Ohne.xls)", "Dateiname?", "ProjektXXX")
Workbooks(fileneme & ".xls").Worksheets("Ergebnis").Range("A2:AB2").Copy
Workbooks("ProjektDB.xls").Worksheets("Datenbank").Range("A2:AB2").Paste
Workbooks("ProjektDB.xls").Worksheets("Datenbank").Select
End If
Funzt nich, hast du ne Ahnung wieso?
Schönen Gruß, Joachim
End Sub

AW: Danke, -> neues Problem

07.08.2003 17:20:23

Joachim

Hab grad gemerkt, was er mit der Fehlermeldung überhaupt meint! Is mir nen bissl peinlich, aber ich hab immernoch keine Ahnung, wie ich das lösen soll. Vorschläge?
Bin über alle Hinweise dankbar, schönen Gruß, Joachim

AW: Danke, -> neues Problem

07.08.2003 17:21:31

Hajo_Zi

Hallo Joachim
die Datei ist schon auf??
Beachte die schreibweise Deiner Variablen.


Sub NeuesProjektZuDatenbankHinzufuegen()
Dim verz
verz = MsgBox("Haben sie sichergestellt, das sich die Quellendatei " _
& "im gleichen Verzeichnis befindet?", vbYesNo + vbQuestion + vbDefaultButton2, _
"Gleiches Verzeichnis?")
If verz = vbYes Then
Dim filename
filename = InputBox("Wie heisst die Quellendatei? (Ohne.xls)", "Dateiname?", "ProjektXXX")
If filename <> "" Then
Workbooks(filename & ".xls").Worksheets("Ergebnis").Range("A2:AB2").Copy
Workbooks("ProjektDB.xls").Worksheets("Datenbank").Range("A2:AB2").Paste
Workbooks("ProjektDB.xls").Worksheets("Datenbank").Select
End If
End If
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen. Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

AW: Wie rufe ich XL-Dateien in VBA auf?

07.08.2003 17:06:43

Ramses

Hallo
ohne zu wissen, was du genau willst, aber die Syntax lautet wie folg
Workbooks("FormSource.xls").worksheets("Source").range("A2:AE2")
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Wie rufe ich XL-Dateien in VBA auf?

Forumthread: Wie rufe ich XL-Dateien in VBA auf?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread