VBA zur Aktualisierung des Tabellenblattes
09.08.2017 14:57:19
AKor
Hintergrund meines Anliegens, es soll ein automatisierte Zusammenfassung von gut 100 einzelnen .xlsx Dateien erstellt werden, die im Zeitablauf in einem bestimmten Ordner reinkopiert werden. Es sind somit nicht von Anfang an alle Datei im Verzeichnis. Die Tabelle ist fertig und funktioniert manuell.
Zur Automatisierung habe ich in dieser Tabelle einen Button + Makro, mit dem ich prüfe, ob eine bestimmte Datei in dem Ordner liegt.
Wenn nein, dann wird in die Zelle A1 eine 0 geschrieben, wenn ja dann eine 1 ... dann hole ich mir über =wenn(A1=0;"";Pfad + Datei + Blatt + Zelle) den Wert und schreibe es in A2 .....
Wenn, wie oben beschrieben eine 0 in A1 steht, dann lasse ich über einen Button + Makro diese Zeile ausblenden.
Bis hier funktioniert alles wunderbar.
Da ich über einen Hyperlink diese oben erwähnten Dateien direkt öffnen und ändern kann, muss das Tabellenblatt entsprechend aktualisiert werden. Über die Statusleiste geht es leider nicht, wohl aber mit
Sub Daten_aktualisieren()
On Error Resume Next
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub
Problem, hier werden ALLE Links des Tabellenblattes aktualisiert. Auch wenn die Zeile ausgeblendet ist, da die Datei nicht existiert und somit in A1 eine 0 steht.
Was kann ich tun?
Danke und Gruß AKor