ich habe jetzt eine harte Nuss zu knacken, und hoffe, dass mich die Excel-Profis dabei unterstützen.
Bevor ich aber zu meiner Frage komme, erläutere ich Euch die Ausgangssituation.
Mit folgendem Code wird die gerade aktive Datei gespeichert. Datename und Speicherort wird durch bestimmte Eingaben vorgegeben (Teil 1:'Datei speichern). Danach wird eine Datei zum Sammeln der Daten geöfnet (Teil2: 'Statistik öffnen):
Private Sub CommandButton1_Click()
'Datei speichern
Dim Name As String
Name = ThisWorkbook.Sheets("Umlauf").Range("C5").Value
If Dir("x:\offene Fälle\" & Name & " " & Sheets("Datenbank").Range("B39"), vbDirectory) = "" _
Then MkDir "x:\offene Fälle\" & Name & " " & Sheets("Datenbank").Range("B39")
ThisWorkbook.SaveAs "x:\offene Fälle\" & Name & " " & Sheets("Datenbank").Range("B39") & "\" & _
_
_
Name & " Umlaufzettel " & Range("H1") & ".xls"
'Statistik öffnen
Workbooks.Open ("I:\Statistiken\Übersicht 2007.xls")
Sheets("Daten").Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
In dieser Datei wird mit folgendem Code der Datensatz hinzugefügt:
Private Sub CommandButton1_Click()
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
Jetzt können beide Dateien geschlossen werden.
Später, nach der Bearbeitung des Vorganges, wird der Speicherort der Ausgangsdatei verändert: Der Ordnername wird geändert und in einen Unterordner verschoben.
Leider bekommt das meine Statistik nicht mit.
Nun meine Frage an Euch Experten: Wie kann ich es schaffen, dass Excel die Verknüpfung automatisch ändert?
In die hier notierten Codes wollte ich jedoch nicht eingreifen, da diese , auch mit Unterstützung durch dieses Forum, nach mühevoller Arbeit entstanden sind. Wenn es aber nicht anders geht, bin ich natürlich bereit dazu.
Auf jeden Fall freue ich mich über Eure Antwort.
Danke.
Viele Grüße
Marco