Hallo,
Ich brauche ein wenig Hilfe, eigentlich denke ich, dass es nur eine Kleinigkeit sein kann, aber nach 45 Minuten in denen ich nicht drauf gekommen bin, bin ich mir nicht mehr sicher ;)
Ich möchte in eine Zelle eine Formel einsetzen und dann in dieser Formel etwas durch den Wert einer Zelle ersetzen. Aktuell sieht mein Makro so aus:
Sub Ctext()
' Ctext Makro
Application.Goto (ActiveWorkbook.Sheets("Tabelle1").Range("C8"))
ActiveCell.FormulaR1C1 = "Summe(Tabelle2!Pizza:Pizza)"
ActiveCell.Select
Cells.Find(What:="Pizza:Pizza", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Replace What:="Pizza:Pizza", Replacement:=.Range("C7"), LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
In C7 steht C:C und das soll jetzt das Pizza:Pizza ersetzen.
Als Fehlermeldung become ich "Fehler beim Kompilieren: Unzulässiger oder nicht ausreichender Verweis."
Woran kann das liegen? Vielen Dank schon mal für Eure Hilfe!
Liebe Grüße,
Kovu |