Formeln in Zeilen kopieren
27.11.2017 08:13:06
Yasar
Ich hätte eine Frage bzgl. eines Makros. Ich hoffe, ihr könntet mir helfen! Ich habe eine Tabelle bzw. Datenbank, in der fünf Formeln eingetragen sind (Datedif).
In Z2:=WENN(N2
Sub Differenz()
Dim Formelzeilen As Long
Dim Formelspalten As Integer
Formelzeilen = ActiveSheet.Range("Z2:AE2").End(xlDown).Row
For Formelspalten = 25 To 31
If Cells(2, Formelspalten).HasFormula Then
Cells(2, Formelspalten).AutoFill Destination:= _
Range(Cells(2, Formelspalten), Cells(lngZeilen, Formelspalten)), Type:=xlFillDefault
End If
Next Formelspalten
End Sub
Ich wäre für jegliche Hilfestellung und Antworten dankbar!!