Hallo zusammen,
ich habe seit kurzem die Aufgabe eine vorhandene VBA-Programmierung zu überarbeiten und anzupassen. Da ich aber kein Experte auf dem Gebiet bin, bin ich schnell auf ein Problem gestoßen, bei dem ich hoffe, ihr könnt mir helfen.
Bei dem Problem geht es darum, dass aus .xlsm-Dateien Daten mit einer VBA-Programmierung in diese Excel-Datei eingetragen werden sollen. Ich weiß, dass es am einfachsten wäre, den Datei-Pfad genau anzugeben. Allerdings sind die Quelldateien in verschiedenen Ordnern und diese Ordner werden immer wieder verschoben, daher scheidet die Lösung schon mal aus.
Hier mal den Ausschnitt aus dem Code, wie er mir vorliegt.Wenn ich das ganze debugge, wird der Fehler bei der Zeile sDatei = Range ("PFAD_0815").Value & ".xlsm" angezeigt.
Private Sub cmdWerteAktualisieren_Click()
'Variablen deklarieren
Dim sDatei As String 'Speicherort + Dateiname + Endung
Dim sKW As String 'Ausgewählte Kalenderwoche
Dim oQuelle As Object 'SourceBook festlegen
Dim sDateiname As String
'---------
Dim Schrittweite As Double
Dim Länge As Double
'---------
'Bildschirm-Update deaktivieren
Application.ScreenUpdating = False
'---Progressbar
Länge = 0
Schrittweite = Label2.Width / 8
lblLadebalken.Caption = "Daten werden eingelesen!"
'---------
'Ausgewählte Kalenderwoche in Variable schreiben
sKW = Me.cboKalenderwoche.Value
sDatei = Range("PFAD_0815").Value & ".xlsm"
sDateiname = Range("DATEINAME_0815").Value
Die Datei soll lesend geöffnet werden.
Ich hoffe, ihr könnt mir helfen, denn ich sehe den Fehler nicht und auch in den vielen Foren habe ich keine Hilfe dazu gefunden.
Kann der Fehler möglicherweise daran liegen, dass in den Quellordnern inzwischen auch andere Dateien sind, die fast die gleiche Bezeichnung haben? Z.B. heißt die Datei, die ich aufrufen möchte "Datei_0815.xlsm" und die andere "Datei_0815 xyz.xlsm"?
Wenn das das Problem ist, wie kann ich das umgehen?
Danke schon mal im Voraus.