Teil des Dateipfads als Variable deklarieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() 'Variablen deklarieren Dim strOldDate As String, strNewDate As String, intPos As Integer With Worksheets("status_pcl").Cells(5, 8) If Not .HasFormula Then 'Kontrolle, ob Formel vorhanden MsgBox "In der Zelle 'H5' ist keine Formel enthalten!", vbExclamation, "Fehler bei _ Formelanpassung" Exit Sub End If 'Kontrolle, ob Verweis auf Excel-Datei vorhanden intPos = InStr(.Formula, ".xls") If intPos

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(DateSerial(Year(Date), Month(Date), 1), "YYYY-MM") 'Automatische Berechnung abschalten Application.Calculation = xlCalculationManual 'Formeln ersetzen Worksheets("status_pcl").Cells.Replace What:=strOldDate, Replacement:=strNewDate, LookAt:= _ xlPart 'Automatische Berechnung einschalten Application.Calculation = xlCalculationAutomatic End Sub

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

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

Beliebteste Forumthreads (12 Monate)

Teil des Dateipfads als Variable deklarieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teil des Dateipfads als Variable deklarieren

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread