Hallo,
Ich habe ein Tabellenblatt, in dem ich Verknüpfungen zu anderen Excel Dateien habe. Mit Hilfe des unteren Makros wollte ich erreichen, dass bei Änderung des Jahres 2012 auf z.b.auf 2011 (bei Stückzahlen) Excel automatisch erkennt, dass er auf den Ordner 2011 zugreift, indem die Excel Datei liegt.
Es soll somit lediglich der folgende Bestandteil eines Pfades geändert werden: 2012\Kosten[Stückzahlen_2012.xls]
Zellenbezeichnung und Eingabe in meinem Tabellenblatt:
DateiStückzahlen: 2011
DateiNeuStückzahlen: =$DateiStückzahlen&"\Kosten"&"[Stückzahlen_"&$DateiStückzahlen&".xls]"
Der Pfad bei den Kosten unterscheidet sich von dem Pfad der Stückzahlen.
Bei den Kosten funktioniert das dynamische Anpassen des Pfades an das neue Jahr!!!
Aber leider nicht bei den Stückzahlen.
Dieses Makro habe ich in einer Tabelle eingebaut:
'Änderung Pfad (Kosten)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("Datei").Address Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Cells.SpecialCells(xlCellTypeFormulas, 23).Replace _
What:=Range("DateiAlt").Value, _
Replacement:=Range("DateiNeu").Value, _
LookAt:=xlPart
Range("DateiAlt").Value = Range("DateiNeu").Value
End If
' Änderung Pfad (Stückzahlen)
If Target.Address = Range("DateiStückzahlen").Address Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Cells.SpecialCells(xlCellTypeFormulas, 23).Replace _
What:=Range("DateiAltStückzahlen").Value, _
Replacement:=Range("DateiNEuStückzahlen").Value, _
LookAt:=xlPart
Range("DateiAltStückzahlen").Value = Range("DateiNeuStückzahlen").Value
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Vielen Dank vorab. Es ist sehr wichtig. Kenne mich mit VBA leider nicht so gut aus. ;-)
Gruß Nadja
|