08.11.2019, 08:37
Hallo,
ich habe die Lösung doch noch gefunden:
Sub fortlaufendeWerte()
' Makro Fortlaufende Werte in Zelle Schreiben
Sheets(1).Select
Range("X2").Select
ActiveCell.FormulaLocal = "=Zählenwenn(M:U;W2)"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2:X500"), Type:=xlFillDefault
Range("X2:X500").Select
End Sub
ich habe die Lösung doch noch gefunden:
Sub fortlaufendeWerte()
' Makro Fortlaufende Werte in Zelle Schreiben
Sheets(1).Select
Range("X2").Select
ActiveCell.FormulaLocal = "=Zählenwenn(M:U;W2)"
Range("X2").Select
Selection.AutoFill Destination:=Range("X2:X500"), Type:=xlFillDefault
Range("X2:X500").Select
End Sub