das hier funktioniert:
With wkbDaten
.Activate
.Sheets(strReDruck).Select
.Sheets(strReDruck).Shapes("shpRechnung").Select
Selection.Formula = strFormula
End With
warum das nicht?
With wkbDaten
.Sheets(strReDruck).Shapes("shpRechnung").Formula = strFormula
End With
Zur Erklärung: Ich will einem verknüpften Bild unterschiedliche Quellen zuweisenGruß ausm Pott
Udo