Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 1 Or Target.Column = 2 Then
If Target.Row > 1 And Target = "" Then
If Target.Offset(-1) <> "" Then formelnschreiben
End If
End If
End Sub
Sub formelnschreiben()
Dim arSp, itm, rng As Range, i As Long, bolisformula As Boolean
Dim stextformula As String
Dim lrow As Long
arSp = Split("G,H,I,K,M,O", ",")
lrow = ActiveCell.Row
Application.EnableEvents = False
On Error GoTo ERRORHANDLING
For Each itm In arSp
Set rng = Intersect(UsedRange, Columns(itm))
If rng Is Nothing Then Exit Sub
For i = rng.Rows.Count To 1 Step -1
If rng(i, 1).HasFormula Then
stextformula = rng(i, 1).FormulaLocal
stextformula = Replace(stextformula, CStr(rng(i, 1).Row), CStr(lrow), , 3)
Cells(lrow, itm).FormulaLocal = stextformula
Exit For
End If
Next
Next
ERRORHANDLING:
Application.EnableEvents = True
End Sub