Ordnerpfad variabel

Hallo, bin neu hier im Forum und hoffe auf Hilfe.
Habe folgendes vor:
Habe ein Ordnerverzeichnis von "Saison 16" "Saison 17" .... bis "Saison 66" angelegt.
In diesen Ordnern befindet sich immer die selbe Datei: "Name.xlsm"
Aus einer externen Datei habe ich folgenden Pfad als Formel angegeben:
='C:\Users\Benutzer\Documents\Saisons\Saison 16\[Name.xlsm]Tagesauflistung'!A1
Diese Formel ist natürlich mehrfach in der externen Datei enthalten und soll dort immer Bezug auf die angegebene Zelle in der jeweiligen Saison nehmen. Also
Tagesauflistung A2 A3 usw...
Das haut auch soweit gut hin, aber nur solange ich bei jeder Formel die Neue Saison per Hand eingebe, eben Saison 17 Saison 18 usw....
Da der Pfad ja immer bis auf die Saison gleich bleibt, hätte ich gerne die Saison 16 Saison 17... usw. variabel, am liebsten über einen Zellbezug, der die jeweilige Saison angibt und in den Pfad übernimmt.
VBA Kenntnise sind bei mir nur sehr dürftig vorhanden..
Bin um jede Anregung dankbar.. Bekomm das einfach nicht hin!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordnerpfad variabel

08.06.2016 20:32:40

Fennek

AW: Ordnerpfad variabel

08.06.2016 20:49:22

Christoph

AW: Ordnerpfad variabel

08.06.2016 20:58:50

Finitivus

Eine mögliche Lösung per VBA...

09.06.2016 06:52:15

Case

AW: Ordnerpfad variabel

09.06.2016 08:39:28

UweD

Kopierfehler

09.06.2016 08:46:35

UweD

AW: Kopierfehler

09.06.2016 10:19:57

Finitivus

AW: Kopierfehler

09.06.2016 11:33:20

Finitivus

AW: Kopierfehler

09.06.2016 12:03:08

Finitivus

AW: Kopierfehler

09.06.2016 12:50:20

UweD

Hallo
per VBA Event ginge das so..
- Es wird eine Zelle überwacht, hier in meinem Beispiel B1
- dort steht die aktuelle Saison drin z.B. 17
- diese Zelle könntest du natürlich mit "Daten, Datenüberprüfung" auf 16 bis 66 begrenzen.
- schreibst du nun eine andere Zahl hinein, werden alle Formeln auf die neue Saison geändert
- Die Dateien bleiben dabei geschlossen
So vorgehen:
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Range("B1"), Target) Then 'auslösende Zelle ggf. ändern
Dim Aktuell$, Neu$
If Target.Count = 1 Then
Application.EnableEvents = False
Application.Undo
Aktuell = "\Saisons\Saison " & Target & "\"
Application.Undo
Neu = "\Saisons\Saison " & Target & "\"
Cells.Replace What:=Aktuell, Replacement:=Neu, LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
MsgBox "Zellen nur einzeln bearbeiten"
Application.EnableEvents = False
Application.Undo
End If
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Gruß UweD
Über Rückmeldungen würde ich mich freuen

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler With Application If Not Intersect(Range("A562"), Target) Is Nothing Then 'auslösende Zelle ggf. ändern Dim Aktuell$, Neu$ .ScreenUpdating = False .Calculation = xlCalculationManual If Target.Count = 1 Then .EnableEvents = False .Undo Aktuell = "\Saisons\Saison " & Target & "\" .Undo Neu = "\Saisons\Saison " & Target & "\" Cells.Replace What:=Aktuell, Replacement:=Neu, LookAt _ :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Else MsgBox "Zellen nur einzeln bearbeiten" .EnableEvents = False .Undo End If End If Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear .EnableEvents = True .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread