Private Sub UserForm_Initialize()
On Error Resume Next
Dim Zelle As Range
Dim Tabelle As Worksheet
Application.ScreenUpdating = False
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Activate
For Each Zelle In ActiveSheet.UsedRange
If InStr(Zelle.Formula, "[") > 0 Then
List1.AddItem Zelle.Formula
End If
Next Zelle
Next Tabelle
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
Grüße
Hoffi
Sub VerknüpfungDatenbankabfrage()
ChDir strLaufwerk & strPfadKundenabrechnung
ActiveWorkbook.ChangeLink Name:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, _
NewName _
:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, Type:=xlExcelLinks
End Sub
ICh möchte z.B.
Sub VerknüpfungDatenbankabfrage()
Dim stralteVerknüpfung as String
stralteVerknüpfung = (hier müsste die Prozedur zum Auslesem der alten Verknüpfung stehen die _
ich nicht weiß)
ActiveWorkbook.ChangeLink Name:=stralteVerknüpfung, NewName _
:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, Type:=xlExcelLinks
End Sub
Gruss
Schallbach
Sub VerknüpfungDatenbankabfrage()
Call BlattschutzAus
Application.AskToUpdateLinks = False
Dim Lks As Variant
Dim i%
Lks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Lks) Then
For i = 1 To UBound(Lks)
ActiveWorkbook.UpdateLink Lks(i), Type:=xlExcelLinks
Next
End If
ChDir strLaufwerk & strPfadKundenabrechnung
ActiveWorkbook.ChangeLink Name:=Lks(i), NewName _
:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, Type:=xlExcelLinks
Call Blattschutz
Application.AskToUpdateLinks = True
End Sub
Gruss
Schallbach
Es kommt immer die Aufforderung zur Aktualisierung der Verknüpfungen.
Dann schalte sie doch unter Bearbeiten-Verknüpfungen endgültig ab!
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub VerknüpfungDatenbankabfrage()
Call Initialisierung
Call BlattschutzAus
Dim Lks As Variant
Dim i%
Lks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Lks) Then
For i = 1 To UBound(Lks)
ChDir strLaufwerk & strPfadKundenabrechnung
ActiveWorkbook.ChangeLink Name:=Lks(i), NewName _
:=strLaufwerk & strPfadKundenabrechnung & strNameDatenbank, Type:=xlExcelLinks
Next
End If
Call Blattschutz
Application.AskToUpdateLinks = True
End Sub
Mein Fehler war das "Application.AskToUpdateLinks = False" habe ich zu spät gesetzt nicht erst in dem Macro sondern schon beim öffnen der Datei.
Danke für Eure Bemühungen
Gruss
Schallbach