VBA-Code Änderung bei Dateiverschiebung

• VBA-Code Änderung bei Dateiverschiebung von Jürgen K vom 26.11.2003 09:59:36
  • AW: VBA-Code Änderung bei Dateiverschiebung - von GerdW am 26.11.2003 10:03:01
    • AW: VBA-Code Änderung bei Dateiverschiebung - von Jürgen K am 26.11.2003 10:22:14
      • AW: VBA-Code Änderung bei Dateiverschiebung - von GerdW am 26.11.2003 11:01:00
        • AW: VBA-Code Änderung bei Dateiverschiebung - von Jürgen K am 26.11.2003 11:26:27
      • AW: VBA-Code Änderung bei Dateiverschiebung - von Bernhard Ringhofer am 26.11.2003 11:01:30
        • So gehts. Vielen Dank!! - von Jürgen K am 26.11.2003 11:24:29

Betrifft: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 09:59:36
Hallo Gemeinde,
ich habe in einer "Start-Datei" in "DieseArbeitsmappe" folgenden Code eingegeben:
PrivateSub Worbook_Open
Workbooks.Open Filename:="C:\.....\test1.xls
Workbooks.Open Filename:="C:\.....\test2.xls

Die Dateien test1 und test2 befinden sich immer im gleichen Verzeichnis wie die Start-Datei.
Wie sieht ein flexibler Code aus, der die test-Dateien immer in dem aktuellen Verzeichnis der Start-Datei sucht.
Ich hoffe ich habe mich verständlich und nicht zu kompliziert ausgedrückt.
Vielen Dank im voraus
Gruß Jürgen

Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: GerdW
Geschrieben am: 26.11.2003 10:03:01
dim Pfad as string

Pfad = Thisworkbook.Path & \test1.xls

Gerd

Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 10:22:14
Bin leider in VBA unbeleckt.
Habe dein Vorschlag wie folgt umgesetzt aber Fehlermedung Laufzeitfehler erhalten:

Private Sub Workbook_Open()
Dim Pfad As String
Application.ScreenUpdating = False
Workbooks.Open Filename:="Thisworkbook.Path & \test 1.xls"
Workbooks.Open Filename:="Thisworkbook.Path & \test 2.xls"
Application.ScreenUpdating = True
End Sub

Was hab ich hier falsch gemacht?
Gruß Jürgen

Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: GerdW
Geschrieben am: 26.11.2003 11:01:00
Du musst mein Beispiel nur richtig umsetzen:
Dim Pfad As String
Pfad = Thisworkbook.Path & "\test1.xls"
Application.ScreenUpdating = False
Workbooks.Open Filename:=Pfad
oder:
Workbooks.Open Filename:= Thisworkbook.Path & "\test 2.xls"
Application.ScreenUpdating = True

Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Jürgen K
Geschrieben am: 26.11.2003 11:26:27
Hallo Gerd,

damit ich es lerne, richtig umzusetzen, halte ich mich in diesem
Forum auf.

Vielen Dank

Gruß Jürgen

Betrifft: AW: VBA-Code Änderung bei Dateiverschiebung
von: Bernhard Ringhofer
Geschrieben am: 26.11.2003 11:01:30
so geht's:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Workbooks.Open Filename:=Thisworkbook.Path & "\test1.xls"
Workbooks.Open Filename:=Thisworkbook.Path & "\test2.xls"
Application.ScreenUpdating = True
End Sub

MfG Bernhard

Betrifft: So gehts. Vielen Dank!!
von: Jürgen K
Geschrieben am: 26.11.2003 11:24:29
Hallo Bernhard,

ausproboiert und kann bestätigen: so gehts:))

Vielen Dank und einen schönen Tag noch.

Viele Grüße
Jürgen

Excel-Beispiele zum Thema " VBA-Code Änderung bei Dateiverschiebung"
Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen	UserForm mit ComboBoxes durch VBA-Code erstellen
ComboBoxes per VBA-Code in Tabellenblatt erzeugen	VBA-Code auf Schaltflächen-Klick auskommentieren
VBA-Code als Zellkommentar anzeigen	Aktive Arbeitsmappe ohne VBA-Code und Button speichern