Code:
Sub Tabellenblätter_ergänzen()
'
' Tabellenblätter_ergänzen Makro
'
Dim intI As Integer
'
Range("A2").FormulaR1C1 = "Ergebnisfelder Zeitraum 1"
Range("A8").FormulaR1C1 = "Ergebnisfelder Zeitraum 2/Vergleich"
For intI = 1 To 21
Cells(3, intI) = Choose(intI, "Gas", "Wärme", "Fernwärme", "Strom", "Heizöl", "Wasser", "Kompressor", "Druckluft", "Trockner", "Kompressor Kühlung", "HGT Aktuell", "HGT Referenz", "Wärme bereinigt", "Strom/bereinigt", "Gas/Kennwert", "Wärme/Kennwert", "Fernwärme/Kennwert", "Strom/Kennwert", "Wärme bereinigt/Kennwert", "Druckluft/Kennwert", "Wasser/Kennwert")
Next intI
For intI = 1 To 21
Cells(9, intI) = Choose(intI, "Gas", "Wärme", "Fernwärme", "Strom", "Heizöl", "Wasser", "Kompressor", "Druckluft", "Trockner", "Kompressor Kühlung", "HGT Aktuell", "HGT Referenz", "Wärme bereinigt", "Strom/bereinigt", "Gas/Kennwert", "Wärme/Kennwert", "Fernwärme/Kennwert", "Strom/Kennwert", "Wärme bereinigt/Kennwert", "Druckluft/Kennwert", "Wasser/Kennwert")
Next intI
With ActiveWindow
.SplitColumn = 0
.SplitRow = 15
End With
ActiveWindow.FreezePanes = True
' ActiveWindow.SmallScroll Down:=-6
Range("A17").FormulaR1C1 = "Datum"
For intI = 1 To 21
Cells(17, intI + 1) = Choose(intI, "Gas", "Wärme", "Fernwärme", "Strom", "Heizöl", "Wasser", "Kompressor", "Druckluft", "Trockner", "Kompressor Kühlung", "HGT Aktuell", "HGT Referenz", "Wärme bereinigt", "Strom/bereinigt", "Gas/Kennwert", "Wärme/Kennwert", "Fernwärme/Kennwert", "Strom/Kennwert", "Wärme bereinigt/Kennwert", "Druckluft/Kennwert", "Wasser/Kennwert")
Next intI
Range("A4").FormulaR1C1 = _
"=SUMPRODUCT((R18C1:R10000C1>=Einstellung!R4C2)*(R18C1:R10000C1<=Einstellung!R4C3)*(R[14]C[1]:R[9996]C[1]))"
Range("A4").AutoFill Destination:=Range("A4:AO4"), Type:=xlFillDefault
Range("A10").FormulaR1C1 = _
"=SUMPRODUCT((R18C1:R10000C1>=Einstellung!R8C2)*(R18C1:R10000C1<=Einstellung!R8C3)*(R[8]C[1]:R[9990]C[1]))"
Range("A10").AutoFill Destination:=Range("A10:AO10"), Type:=xlFillDefault
End Sub
=WENN('Datenblatt Layout'!A3="";"";'Datenblatt Layout'!A3) in mein obendstehnden VNB reinzubauen.
Vllt. ist diesbezüglich ein Vorschlag möglich.
Die Dateien bekommen wir in Form einer Excel Tabelle, dass dann pro Projekt einmal eingefügt werden muss.