Wie rufe ich XL-Dateien in VBA auf?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

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

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.

Beliebteste Forumthreads (12 Monate)

Wie rufe ich XL-Dateien in VBA auf?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie rufe ich XL-Dateien in VBA auf?

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

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread