Hallo,
ich beziehe mich auf diese Forums-Diskussion, auf den ich aber nicht mehr antworten kann:
PasteSpecial: Formeln und Werte, aber keine Verknüpfungen/Formatierungen?!
Aufbauend darauf sieht mein Makro folgendermaßen aus:
Option Explicit
Sub Windreporting()
Dim arr() As String, loSpalte As Long, i As Integer
loSpalte = 2
ReDim arr(100)
For i = 2 To 100
arr(i) = Workbooks("Wind März.xlsx").Sheets("Konsolidierung").Cells(i, loSpalte).Formula
Next i
For i = 2 To 100
Workbooks("Wind Januar.xlsx").Sheets("Konsolidierung").Cells(i, loSpalte) = arr(i)
Next i
End Sub
Jetzt sollen die Formeln der Spalte 2 einmal monatlich in das Sheet Konsolierung einer neuen Datei eingefügt werden (die Datei hat natürlich einen neuen Namen). Wie kann das Makro so angepasst werden, dass es sich auf die zwei gerade offenen Excel-Dateien bezieht?
Danke und Gruß