Wert aus aktiver Arbeitsblattzelle in VBA-Link
22.11.2016 13:02:07
Winfried
ich habe ein Problem bei der Kombination eines in VBA zu erstellenden Verweises bzw. Links. Hier mein zu verbessernder VBA-Code:
-----------------------------------------------------
Sub Alle_Dateien_in_Ordner_oeffnen()
Dim DatSearch As FileSearch
Dim k As Integer, i As Integer
Set DatSearch = Application.FileSearch
Path = "Z:\Projekte\0824" 'hier anpassen
With DatSearch
.LookIn = Path
.Filename = "*.xls"
.Execute
i = .FoundFiles.Count
For k = 1 To i
Workbooks.Open .FoundFiles(k)
Next
End With
End Sub
-----------------------------------------------------
Dieses Makro öffnet alle Excel-Dateien die sich in dem Verzeichnis "Z:\Projekte\0824" befinden. Alle Projekte sind in der Arbeitsmappe Zeilenweise angeordnet. In der ersten Spalte befinden sich die Projektnummern. Also hier die Zahl 0824. Ich möchte nun das Makro dahingehend verbessern, dass das Makro in der aktiven Zeile die Zelle in Spalte A auswählt und den Wert in den Link überträgt. Also in Path = "Z:\Projekte\0824" muss statt der 0824 eine Variable eingebaut werden. Habe ich nun versucht und kriege es nicht hin. Könnte mir jemand hier im Forum helfen? Das wäre sehr nett!
Vorab vielen Dank!
Winfried