Problem bei Dateiaufruf

Forumthread: Problem bei Dateiaufruf

15.05.2006 10:49:45

Andreas

Hallo,
ich hab folgendes Problem. Ich hab mir ein Programm geschrieben, bei welchem aus einer Datei bestimmte Daten in eine andere kopiert werden. Die erste Datei nennt sich Daten_2005.xls und die zweite Bericht.xls. Ich aktiviere zuerst die Datei, die ich benötige und danach kommen die ganzen Kopiervorgänge:
Windows("Daten_2005.xls").Activate

Es funktioniert soweit alles ganz gut, nur will ich mein geschriebenes Programm im nächsten und übernächsten usw. Jahr immer wieder verwenden. Zurzeit hab ich die Daten_2005.xls direkt angesprochen. Nächstes Jahr heißt diese Datei aber Daten_2006.xls usw. und da würde das Programm so nicht mehr funktionieren. Ich hab schon versucht, das in etwa so zu formulieren:
Dim a As Integer
Windows("Daten_" + a + ".xls").Activate
Das klappt aber so nicht. Wie kann man das Problem denn ganz schick lösen? Hat jemand einen guten Vorschlag?
Danke und Gruss
Andreas

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Problem bei Dateiaufruf

15.05.2006 11:03:00

Matthias
AW: Problem bei Dateiaufruf

15.05.2006 11:35:33

Andreas
AW: Problem bei Dateiaufruf

15.05.2006 11:41:37

Matthias
funktioniert

15.05.2006 14:05:08

Andreas
AW: Problem bei Dateiaufruf

15.05.2006 11:48:59

Fred
Nachtrag

15.05.2006 12:32:46

Fred

AW: Problem bei Dateiaufruf

15.05.2006 11:03:00

Matthias

Hallo Andreas,
z.B.:


Windows("Daten_" & Year(Date)-1 & ".xls").Activate

Gruß Matthias

AW: Problem bei Dateiaufruf

15.05.2006 11:35:33

Andreas

Hallo Matthias,
danke für deine Hilfe, aber das geht nur in dem einen Jahr. Ich benötige aber eine Variante, in der ich mir den Bericht für dieses Jahr in drei Jahren erstellen lassen kann, denn bis dahin können sich einige Daten in meiner Daten-Datei noch ändern. Und in diesem Fall würde das dann nicht funktionieren.
Hast Du dazu einen Lösungsvorschlag?
Gruss
Andreas

AW: Problem bei Dateiaufruf

15.05.2006 11:41:37

Matthias

Hallo Andreas,
mit dieser Funktion erhältst du den Namen der ersten gefundenen offenen Mappe mit Namen Daten_?.xls:


Function GetDatenXXXX() As String
Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Name Like "Daten_?.xls" Then
GetDatenXXXX = wb.Name
Exit Function
End If
Next wb
End Function

Wenn keine Mappe dieses Namens offen ist, ist der Rückgabewert ein Leerstring "".
Gruß Matthias

funktioniert

15.05.2006 14:05:08

Andreas

Ich dank Dir Matthias, jetzt klappt das einwandfrei.
Gruss
Andreas

AW: Problem bei Dateiaufruf

15.05.2006 11:48:59

Fred

Guten Tag Andreas,
Ich habe es mit einer InputBox gelöst.
Also gleich am Anfang eingebaut und als Standart das aktuelle Jahr festgelegt.
Fred

Nachtrag

15.05.2006 12:32:46

Fred

sollte in dein Beispiel a die InputBox-Variable sein, musst du natürlich bei Dim die
As Integer Anweisung weglassen oder als String.
Fred

Beliebteste Forumthreads (12 Monate)

Forumthread: Problem bei Dateiaufruf

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread