wie kann man eine kopierte Formel per VBA in andere Zellen einfügen?
M.a.W. ich möchte mir den Weg über "Inhalte einfügen - Formeln - Enter" ersparen, indem ich ein Makro hinter einen Button lege.
Gruß Heiko
Sub FormelKopieren()
Dim BereichQ As Range, BereichZ As Range
On Error Resume Next
Set BereichQ = _
Application.InputBox("Bitte Formel-Zelle mit der Maus markieren", _
"Formel-Zelle", , , , , , 8)
If BereichQ Is Nothing Then
MsgBox "Nichts selektiert !" & vbCr & vbCr & "Makro-Abbruch !", _
0, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Set BereichZ = _
Application.InputBox("Bitte Ziel-Zelle mit der Maus markieren", _
"Ziel-Zelle", , , , , , 8)
If BereichZ Is Nothing Then
MsgBox "Nichts selektiert !" & vbCr & vbCr & "Makro-Abbruch !", _
0, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
BereichZ.Formula = BereichQ.FormulaR1C1
On Error GoTo 0
Set BereichQ = Nothing
Set BereichZ = Nothing
End Sub