Ich möchte gerne eine Funktion erstellen (kein Makro!), die copy & paste ausführt.
Also etwas wie: "=Spiegeln(A1)" soll in der Zelle, in der diese Funktion steht exakt den Inhalt von A1 anzeigen. Klar - ich kann auch "=A1" schreiben, aber das nimmt die Formatierung nicht mit. Ziel soll es sein, wenn z.B. A1 auf fett und rot geändert wird, soll sich das identisch in der "Spiegeln"-Zelle ändern ohne dass man noch Formate übertragen muss.
Folgender Code funktioniert als Makro, nicht aber als Funktion..hat jemand eine Idee, warum das so ist?
Function Spiegeln(rngZelle As Range) As String
Dim Ziel As Range
Set Ziel = Range("B5")
rngZelle.Select
rngZelle.Copy
Ziel.PasteSpecial