Ich möchte eine Formel aus der Zelle A1 in alle Zellen bis A200 einfügen.
Habe ich nur die Möglichkeit dies durch Ziehen zu machen, oder giebt es die Möglichkeit
zu sagen trage die Formel von A1 bis A200 ein?
Danke
Ingo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim varRow
If Target.Row = 2 And Target.Cells.Count = 1 And Target.FormulaR1C1 <> "" Then
varRow = InputBox("Bis zu welcher Zeile?", "Zeilennummer eingeben")
If varRow = CStr(False) And Not IsNumeric(varRow) Then Exit Sub
varRow = varRow * 1
Set Bereich = Range(Target, Cells(varRow, Target.Column))
Application.EnableEvents = False
Bereich.FormulaR1C1 = Target.FormulaR1C1
Application.EnableEvents = True
End If
End Sub
Gruß Tino
If Target.Row = 2 And Target.Cells.Count = 1 And Target(1).FormulaR1C1 "" Then
Gruß Tino