Teil des Dateipfads als Variable deklarieren

Benedikt · 2016-10-19T15:24:16+00:00

Hallo Liebe Forum Member, ich arbeite gerade an einer Excel Datei, die sich auf weitere Excel Dateien bezieht. Mein Problem ist, dass sich der Dateipfad jeden Monat um das Datum ändert (im September: 2016-09; im Oktober 2016-10). Im Moment muss ich all meine Formeln per Suchen-Ersetzen aktualisieren. Das ist allerdings nicht optimal, da ich häufig nicht für alle "aktuellen" Dokumente eine Datei habe, wodurch dann jedes mal ein Fenster aufpoppt, dass ich händisch nach der Datei suche. Dadurch bricht die Suchen / Ersetzen Funktion jedes mal ab. Viel lieber wäre es mir natürlich, wenn ich das Datum im Dateipfad als Variable deklarieren könnte. Oder Alternativ, eine Spalte in meiner Excel Tabelle habe, in die sich der Dateipfad rein kopiert, so dass ich diesen dann komplett als Variable deklarieren kann. Hat von euch jemand eine Idee / Tipp / Hinweis / Alternativvorschlag wie sich das umsetzen lässt? Meine VBA skills sind wirklich bescheiden, ein Makro aufzeichnen bekomme ich noch hin, aber das war es. Danke schon mal für eure Hilfe. Grüße

Hallo Bene,
mit VBA ist wirklich "fast" alles möglich. Auch Warnmeldungen können unterdrückt werden:

Private Sub Workbook_Open()
'Variablen deklarieren
Dim strOldDate As String, strNewDate As String
'Datum vom Vormonat ermitteln
strOldDate = Format(DateSerial(Year(Date), Month(Date), 0), "YYYY-MM")
'Aktuelles Datum ermitteln
strNewDate = Format(Date, "YYYY-MM")
With Application
'Automatische Berechnung abschalten
.Calculation = xlCalculationManual
'Keine Warnmeldungen
.DisplayAlerts = False
'Formeln ersetzen
Worksheets("status_pcl").Cells.Replace What:=strOldDate, Replacement:=strNewDate,  _
LookAt:=xlPart
'Automatische Berechnung einschalten
Application.Calculation = xlCalculationAutomatic
'Warnmeldungen aktivieren
.DisplayAlerts = True
End With
End Sub

Es wäre aber auch möglich vor dem Erneuern des Dateinamens zu kontrollieren, ob der neue Dateipfad überhaupt gültig ist. Sonst steht in allen Zellen "#BEZUG!".
Viele Grüße
Martin

Hallo Bene,
ich freue mich, dass alles zu deiner Zufriedenheit funktioniert.
Wie ich VBA gelernt habe? Bei mir fing alles unter Excel 5 an, damals waren die Makros sogar noch in deutscher Sprache (das ist kein Witz!). Schon damals gab es die Möglichkeit Makros aufzuzeichnen, was ich auch regelmäßig gemacht habe. Dann hatte ich mir den aufgezeichneten Makrocode angesehen und versucht nachzuvollziehen. Anschließend habe ich einige Änderungen vorgenommen und herumprobiert. Mit Excel 97 kam dann der Schock, als alle meine deutschsprachigen Makros ins Englische übersetzt wurden. Aber die Umstellung war leichter als erwartet. Wenn ich Fragen hatte, habe auch ich Herbers Excel-Forum konsultiert (bin hier seit 15 Jahren registriert). Zudem habe ich mir die Probleme anderer User angesehen und geschaut, welche Lösungen gefunden bzw. angeboten wurden. Außerdem wollte ich ein Projekt umsetzen, an das ich sehr hohe Ansprüche gestellt habe. Damals hatte ich damit sogar bei Jugend forscht in der Sparte Informatik auf Landesebene eine Auszeichnung erhalten - aber damals war ich noch jung ;-)
Heute freue ich mich wie ein kleines Kind, wenn ich mal etwas Neues lerne, was mir bislang unbekannt war. Manchmal gibt es auch unglaublich interessante und komplex gedachte Lösungswege, wodurch ich selbst heute meinen bisherigen Code weiter optimieren kann. Ich bin wirklich ein richtiger Excel-VBA-Fan.
Viele Grüße
Martin

Teil des Dateipfads als Variable deklarieren

Forumthread: Teil des Dateipfads als Variable deklarieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial