Nachtrag zu Datei mit festem und variablen Namenst

Hallo zusammen,
hallo Luschi,
da ich es mit der Antwortfunktion noch nicht so wirklich auf die Reihe bekommen (wie genau geht das und gibt es da ein Zeitfenster?), hier ein neuer Beitrag. (Ich weiß, gehört sich eigentlich nicht so.)
Ich hatte hier (https://www.herber.de/forum/archiv/1368to1372/t1371706.htm) bereits meine Anfrage gestellt. Leider kann ich mit der Antwort so noch nichts anfangen. Auf unseren PCs können Skripe nicht so einfach ausgeführt werden. Außerdem liegt die Datei auf einem externen Server.
Was mir bei der Anfrage eher vorschwebte war, dass
a) "mein" Excel beim Starten in den Ordner schaut und die neueste Datei mit dem Namen Kundenstammdaten*.xlsx aufruft und als Kundenstammdaten.xlsx wieder speichert. Dabei soll die vorhandene Datei ohne Nachfragen überschrieben werden.
oder
b) Excel bei Abfragen wie dieser hier:
=WENNFEHLER(INDEX('Q:\rz\bank21-Reporting\[Kundenstammdaten.xlsx]page'!$A:$BA;
VERGLEICH(Personendaten_Kundennr.;'Q:\rz\bank21-Reporting\[Kundenstammdaten.xlsx]page'!$A:$A;0);
VERGLEICH("Telefon privat";'Q:\rz\bank21-Reporting\[Kundenstammdaten.xlsx]page'!$1:$1;0));"")
nicht sturr auf "Kundenstammdaten.xlsx" schaut, sonder die neueste Datei mit dem Bestandteil "Kundenstammdaten" auswählt.
Geht das so, wie ich mir das vorstellt. Lösung b) wäre die praktischere von beiden für mich.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Frank,
Variante b) funktioniert mit variablen Dateinamen nicht.
Für Variante a) könnte man in die persönlche Makroarbeitsmappe entsprechende Makros einbauen, die beim Starten von Excel automatisch starten. Das Makro öffnet die Dateien nicht sondern sucht nach der neuesten Datendatei, löscht dann die alte Stammdatei, und kopiert die neueste gefundene als Stammdatei.
Verzeichnis und Dateinamen musst du ggf. anpassen
Gruß
Franz

'Erstellt unter Excel2010 , Windows 7
'Code in der Persönlichen Makroarbeitsmappe unter "DieseArbeitsmappe"
Private Sub Workbook_Open()
Call UpdateKundenstamm
End Sub
'Code in der Persönlichen Makroarbeitsmappe in einem allgemeinen Modul
Sub UpdateKundenstamm()
'Neueste Kundenstammdaten-Datei setzen
Dim strDatei As String
Dim strNeu, strDatum As String
Dim strVerzeichnis As String
Dim strName As String
'Verzeichnis mit den Kundenstammdaten -  anpassen !!!
strVerzeichnis = "D:\Test\Daten"
'Dateiname bis zum Beginn des Datums    -  ggf. anpassen !!!
strName = "Kundenstammdaten.xlsx-de-de."
'neue Stammdatendatei(en) suchen
strDatei = Dir(strVerzeichnis & "\" & strName & "*.xlsx")
If strDatei  "" Then
'neueste Stammdatendatei ermitteln
strNeu = strDatei
strDatum = Mid(strDatei, Len(strName) + 1, 8)
Do
strDatei = Dir
If strDatei = "" Then Exit Do
If strDatum  "" Then
VBA.Kill strVerzeichnis & "\Kundenstammdaten.xlsx"
End If
'neue Datei als Stammdatendatei kopieren
VBA.FileCopy strVerzeichnis & "\" & strNeu, strVerzeichnis & "\Kundenstammdaten.xlsx"
End If
End Sub

Sub UpdateKundenstamm() 'Neueste Kundenstammdaten-Datei setzen Dim strDatei As String Dim strNeu As String Dim strDatum As Date Dim strVerzeichnis As String Dim strName As String 'Verzeichnis mit den Kundenstammdaten - anpassen !!! strVerzeichnis = "Q:\rz\bank21-Reporting" 'Dateiname bis zum Beginn des Datums - ggf. anpassen !!! strName = "Kundenstammdaten.xlsx-de." 'neue Stammdatendatei(en) suchen strDatei = Dir(strVerzeichnis & "\" & strName & "*.xlsx") If strDatei "" Then 'neueste Stammdatendatei ermitteln strNeu = strDatei strDatum = FileDateTime(strDatei) Do strDatei = Dir If strDatei = "" Then Exit Do If strDatum "" Then VBA.Kill strVerzeichnis & "\Kundenstammdaten.xlsx" End If 'neue Datei als Stammdatendatei kopieren VBA.FileCopy strVerzeichnis & "\" & strNeu, strVerzeichnis & "\Kundenstammdaten.xlsx" End If End Sub

Sub UpdateKundenstamm() 'Neueste Kundenstammdaten-Datei setzen Dim strDatei As String Dim strNeu As String Dim datDatum As Date Dim strVerzeichnis As String Dim strName As String, intD As Integer, arrDatei() As String Dim Frage As Variant 'Verzeichnis mit den Kundenstammdaten - anpassen !!! strVerzeichnis = "Q:\rz\bank21-Reporting" 'Dateiname bis zum Beginn des Datums - ggf. anpassen !!! strName = "Kundenstammdaten.xlsx-de." 'neue Stammdatendatei(en) suchen strDatei = Dir(strVerzeichnis & "\" & strName & "*.xlsx") If strDatei "" Then 'Stammdatendateien in Liste erfassen und neueste Datei ermitteln Do intD = intD + 1 ReDim Preserve arrDatei(1 To intD) arrDatei(intD) = strVerzeichnis & "\" & strDatei If datDatum strNeu Then VBA.Kill arrDatei(intD) End If Next Erase arrDatei 'Vorhandene Kundenstammdaten-Datei löschen If Dir(strVerzeichnis & "\Kundenstammdaten.xlsx") "" Then VBA.Kill strVerzeichnis & "\Kundenstammdaten.xlsx" End If 'neue Datei als Stammdatendatei kopieren VBA.FileCopy strNeu, strVerzeichnis & "\Kundenstammdaten.xlsx" End If End Sub

Beliebteste Forumthreads (12 Monate)

Nachtrag zu Datei mit festem und variablen Namenst

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nachtrag zu Datei mit festem und variablen Namenst

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

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread