Verknüpf. werden trotz nicht Aktualisieren aktual.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hallo Herbert,
es is so, ich mach per Makro ne Kopie von nem Blatt aus einer grossen Datei heraus! Dieses Blatt soll selbständig verschickt und geöffnet werden können! Aufgrund der darin enthaltenen Grafiken sind leider Verknüpfungen zur Ursprungsdatei enthalten die ich bisher nicht automatisch entfernen konnte!
Bei 2 rechnern bei mir klappt das mit dem nicht aktualisieren dürcken Button! D.h. die Zahlen beliben stehen! Bei 3 Rechnern bei 2 Kunden klappt das nicht, egal ob die aktualisieren oder nicht aktualisieren drücken, es steht anschließend #Wert! in so ziemlich jeder Zelle!
Nun hab ich das obige Makro, doch leider hab ich es bisher nicht geschafft das Kommand Break link mit nem Pfad Verweis den ich in ner Zelle hinterlege zu kombinieren! Es kommt glaub immer sowas wie das Obejt unterstützt diese Methode (oder so ähnlich) nicht...
Aber da ich im makro ja sehe, dass man die bestehende Verknüpfung scheinbar auslesen kann und die verknüpfung darüber hinaus auch im Makro hinterlgt ist, muss das doch auf die eine oder die andere Weise gehen ohne dass ich den Pfad Starr im Makro hinterlege?
Gruss und vielen vielen Dank

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

Sub x() ' Speicherprogramm Dim DName As String, Dateiname As String, Pfad As String Dim ArbVerz As String Pfad = Range("A1") DName = Range("A2") 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." End Sub

Beliebteste Forumthreads (12 Monate)

Verknüpf. werden trotz nicht Aktualisieren aktual.

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread