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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen