Bedingte Makro durchführung auf diversen Sheets
19.12.2014 08:23:50
Toni_R
Folgedes Makro hab ich von Euch und funktioniert hervorragend:
Sub Hole_Externe_Daten()
Dim Pfad As String, Datei As String
With ActiveSheet
Pfad = .Range("A2").Text
Datei = .Range("A1").Text
With .Range("N20:AA293")
.FormulaArray = "='" & Pfad & "[" & Datei & ".xlsm]Template_Individual'!$P$12:$AA$ _
285"
.Calculate
.Value = .Value
End With
End With
End Sub
Geht das irgendwie?
Vielen Dank im Voraus für Eure Hilfe.
Bin noch immer dankbar für die tolle Unterstützung.
Beste Grüsse,
Toni