Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Links aktualisieren

Links aktualisieren
29.01.2006 11:31:45
Tristan
Hallo Forum,
ich möchte gerne vorhandene Verknüpfungen aktualisieren.
Das unten angegebene Makro möchte ich so anpassen das
keine Inbox mehr erscheint, sondern der Explorer
sich in einer bestimmten Ablage öffnet und ich dann
die Datei auf die sich die Verknüpfungen neu beziehen
auswählen kann, wie geht das ?

Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sPath = ThisWorkbook.Path & "\"
sExt = ".xls"
sName = InputBox( _
prompt:="Quellarbeitsmappe:", _
Default:="test2")
If sName = "" Then Exit Sub
sName = sPath & sName & sExt
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Links aktualisieren
29.01.2006 11:41:39
MichaV
Hallo,
ungetestet:

Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
If sName = "Falsch" Then Exit Sub
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
@MichaV
29.01.2006 11:46:27
Tristan
Danke Micha, das passt aber wie stell ich den Anfangspfad ein so das
sich automatisch die Ablage C:\Test\Bla öffnet und dann die
Datei ausgwählt werden kann ?
Anzeige
AW: @MichaV
29.01.2006 11:48:55
MichaV
Hallo,
oben noch ein Dim x as String
dann 3 Zeilen einfügen:
x=Application.Defaultfilepath 'diese
Application.Defaultfilepath="c:\Test\Bla" 'diese
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
Application.Defaultfilepath=x 'und diese
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: @MichaV
29.01.2006 11:59:19
Tristan
Das macht Er leider nicht.... Er öffnet immer den Pfad den man sich als letzten
hat anzeigen lassen, ist das so richtig ?

Private Sub CommandButton1_Click()
Dim var As Variant
Dim iCounter As Integer
Dim x As String
Dim sName As String, sPath As String, sExt As String
x = Application.DefaultFilePath 'diese
Application.DefaultFilePath = "c:\Test\Bla" 'diese
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
Application.DefaultFilePath = x 'und diese
If sName = "Falsch" Then Exit Sub
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub

Anzeige
AW: @MichaV
29.01.2006 12:09:13
MichaV
Hallo Tristan,
so, nun hab ich mein Excel auch mal angemacht ;o) Du hast Recht, war mein Fehler. So funzt es 100%ig:
x = CurDir
ChDrive ("c:\")
ChDir ("c:\Test\Bla\")
sName = Application.GetOpenFilename(, , "neue Verknüpfung wählen")
ChDrive x
ChDir x
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: @MichaV
29.01.2006 12:19:03
Tristan
Jetzt funktioniert es !
Danke Danke Danke !!!!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige