Scibt-Ausführung
schaju
Habe mal mein Scribt erhalten, wollte es erneut anwenden leider funktioniert es nicht richtig
kann mir jemand behilflich sein?
Folgender Fehler zeigt es an
ich nehme dieses Script und setze es entsprechend in eine Excel-Datei ein
mit alt+F11
passe die varAdresse und strPfad und strTabelle an speichere und starte das Scribt.
es öffnet dann das Fenster "werte aktualisieren", breche ab und es erscheint =#BEZUG! und nimmt keinen Bezug auf die Felder der zu öffnenden Datei...
Option Explicit
Option Base 1
Public
Sub Verzeichnis()
Dim intIndex As Integer, strTabelle As String, intSpalte As Integer
Dim strPfad As String, strDatei As String, varAdresse As Variant
varAdresse = Array("E30", "H30", "D33")
strPfad = "D:\Eigene Dateien\Eigene Tabellen\" (anpassen)
strTabelle = "Tabelle1" (anpassen)
With Application.FileSearch
.LookIn = strPfad
.FileType = 4
.Execute
For intIndex = 1 To .FoundFiles.Count
strDatei = Mid(.FoundFiles(intIndex), Len(.FoundFiles(intIndex)) - InStr(1, StrReverse(.FoundFiles(intIndex)), "\") + 2, InStr(1, StrReverse(.FoundFiles(intIndex)), "\") - 5)
Cells(intIndex + 1, 2) = strDatei
For intSpalte = 1 To 3
Cells(intIndex + 1, intSpalte + 2) = hole_Werte(strPfad, strDatei, strTabelle, CStr(varAdresse(intSpalte)))
Next
Next
End With
End Sub
Mit Gruss
schaju