bei nachfolgendem makro wuerde ich gerne, das der wert aus einer zelle in einer tabelle gezogen wird (ist die tabelle, die das makro enthält)....
ich möchte das das verzeichnis [Const verz = "D:\Eigene Dateien\"] aus der zelle B4 in tabelle1 gezogen wird.
vielen dank für jeden tip....
Sub DateienVerarbeiten()
Dim i As Long
Dim Blatt As Worksheet
Const verz = "D:\Eigene Dateien\"
On Error GoTo fehler
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Range("A1").Value = "TEXTNEU"
Next Tabelle
ActiveWorkbook.Close savechanges:=True
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub