Dateien beim Öffnen automatisch aktualisieren
27.10.2016 07:31:53
Rico
Ich bitte um Hilfe zu einem für mich kniffligen Problem. Hier im Forum habe ich schon einige Lösungsansätze gefunden, aber die Umsetzung ist mir nicht gelungen. Also: In einer Datei werden mehrere Hyperlinks (Excel-Dateien) per Makro geöffnet. Das funktioniert bereits hervorragend. Nochmals vielen Dank an UweD!
Die Excel-Dateien, die geöffnet werden, ändern sich regelmäßig. Das bedeutet, dass bei jedem Öffnen eine Abfrage erscheint, ob aktualisiert werden soll oder nicht. Ich suche jetzt noch nach einer Lösung, dass in meinem bereits existierenden Makro zusätzlich eine Anweisung dafür sorgt, dass die Dateien automatisch aktualisiert werden.
Hier ist das Makro, welches die Hyperlinks (Excel-Dateien) öffnet:
Sub OpenHyps()
Dim row As Long
Dim Start As Long
Dim Ende As Long
Dim TB
Set TB = ActiveSheet
Start = InputBox("In welcher Zeile beginnen?", "Datenquelle öffnen")
Ende = InputBox("In welcher Zeile enden?", "Datenquelle öffnen")
Application.DisplayAlerts = False
For row = Start To Ende
Select Case row
Case 5 To 54
If TB.Cells(row, 1).Hyperlinks.Count = 1 Then
TB.Cells(row, 1).Hyperlinks(1).Follow NewWindow:=True
End If
Case Else
'mache nichts
End Select
Next
Application.DisplayAlerts = True
End Sub
Wie lautet denn der VBA-Befehl zum Aktualisieren und wo genau muss ich diesen eintragen?
Ich hoffe, dass mir jemand einen hilfreichen Tipp geben kann und bedanke mich schon im Voraus!
Gruß Rico