Verknüpf. werden trotz nicht Aktualisieren aktual.

DonFiala · 2005-03-09T19:08:24+00:00

Hallo, habe ein Makro, dass aus einer Datein ein Tabellenblatt kopiert! Die Grafik im kopierten Blatt enthält logischerweise Verknüpfungen zum Ursprungsblatt (kann man das vermeiden?) Wenn ich die Datei auf meinem Rechner (XP) öffne erscheint die Frage ob ich die Verknüpfungen aktualisieren will. Ich drücke auf Nein und es wird nicht aktualisiert! Passt als auch wenn unschön! Natürlich klappte das beim Kunden vor Ort nicht mehr :-( Egal ob ich Aktualisieren drücke oder nicht aktualisieren, das Resultat ist immer #Wert! Was soll der Käse? Wofür hab ich denn dann die Auswahl? Wie kann ich das vermeiden unmgehen? Bitte um Hilfe! Gruss michi

Hallo Matthias,
den Button gibts bei mir net... Bräucht eh eher ne Lösung wie das hier:


Sub LinkRaus()
Dim AnzVerk
Dim i%
AnzVerk = ActiveWorkbook.LinkSources(xlExcelLinks)
Dim Pfad As String
Pfad = Range("a1")
If Not IsEmpty(AnzVerk) Then
For i = 1 To UBound(AnzVerk)
Antwort = MsgBox("Ein Link verweist auf die Datei " & AnzVerk(i) & Chr$(13) & Chr$(13) & "Sollen alle diese Links auf die Mappe Link gel?scht werden?" & Chr$(13), vbYesNo)
If Antwort = vbYes Then ' Benutzer hat "Ja" gew?hlt.
ActiveWorkbook.BreakLink Name:=Pfad, Type:=xlExcelLinks
Else ' Benutzer hat "Nein" gew?hlt.
Text1 = "Nein" ' Operation ausf?hren.
End If
Next i
End If
End Sub

Aber es scheint nicht zu klappen, weil das Makro ums verecken nicht meinen Pfad fressen will. Kann den Pfad aber net ins Makro schreiben, weil die Urspungsdatei immer wo anders liegt! Also will ich den Pfad in ner Zelle angeben können! Noch besser wäre wenn der Pfad automatisch ausgelesen werden könnte.
Aber für's erste wäre es ein traum wenn ich überhaupt nen Pfad angeben kann um die Verknüpfung zu löschen...
Geht das? Vielen Dank schon mal im voraus für Eure mühe!
Gruss michi

Guten Morgen Herbert,
vielen Dank für Dein Makro! Habe es an in der Betreffenden Datei testweise eingesetzt und es scheint zu klappen! Richtig geil sowas vor dem WoEnde!
Das einzige wo's jetzt noch hakt is das Makro in mein Hauptmakro zu integrieren! Dachte das wär ganz leicht selbst für mich, wo ich doch von VBA kaum Ahnung hab, aber nix!
Egal wo ich ich das Makro einfüge, es kommt immer die Fehlermeldung Datei nicht gespeichert! Irgendwo mach ich einen systematischen Fehler! Kannst mir bitte noch einmal helfen?
Vielen Vielen Dank
Hier mein Makro:


Sub SpeichernManuell()
ActiveSheet.Copy
ActiveSheet.Unprotect "Password"
' Wartepopup Herber
Dim WsShell, Rück%
Set WsShell = CreateObject("WScript.Shell")
Rück = WsShell.Popup("Datei wird für Speicherung vorbereitet. Bitte einen Augeblick Geduld...", 5 _
, "Überschrift ...")
' Die 5 in der letzten Zeile gibt die Dauer der Öffnung an.
' Rück ist -1 wenn keine Taste gedrückt wurde
' Rück ist 1 wenn OK gedrückt wurde
' Herber Programm
Dim Zelle As Range
'erste Verknüpfung finden
Set Zelle = Cells.Find(What:="]", LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
Do
Zelle = Zelle.Value
Set Zelle = Cells.FindNext(Zelle)
Loop While Not Zelle Is Nothing
End If
' Speicherprogramm
Dim DName As String, Dateiname As String, Pfad As String
Pfad = Range("Y7")
DName = Range("V6")
Dateiname = Pfad & "\" & DName & Format(Range("G7"), "YYYY.MMM") & ".xls"
' Tagesdatum als "Jahr.Monat.Tag" wegen Exploreransicht!
' InfopopupProgramm für Abbrechen und für nicht Speichern
On Error GoTo Fehler
ArbVerz = CurDir
ChDir Pfad
ChDir ArbVerz
ActiveWorkbook.SaveAs Filename:=Dateiname
MsgBox "Datei wurde erfolgreich unter dem Namen " & ActiveWorkbook.Name & " gespeichert."
ActiveWorkbook.Close
Exit Sub
Fehler:
If Err.Number = 1004 Then
MsgBox "Datei nicht gespeichert"
Else
MsgBox Err.Description: 'Exit Sub
End If
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Verknüpf. werden trotz nicht Aktualisieren aktual.

Forumthread: Verknüpf. werden trotz nicht Aktualisieren aktual.

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Verknüpf. werden trotz nicht Aktualisieren aktual.

Forumthread: Verknüpf. werden trotz nicht Aktualisieren aktual.

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread