FormulaLocal
02.05.2013 16:15:24
WalterK
Kann mir jemand sagen warum meine Schreibweise bei FormulaLocal nicht funktioniert?
Sub FormulaTest()
Dim wksQ1 As Worksheet
Dim wksZ1 As Worksheet
Set wksQ1 = Worksheets("Tabelle1")
Set wksZ1 = Worksheets("Tabelle2")
wksZ1.Range("A1").FormulaLocal = "=WENN('" & wksQ1 & "'!A1=1;'" & wksQ1 & "'!A5;"""")"
'''''''''=WENN(Tabelle1!A1=1;Tabelle1!A5;"""")
End Sub
Besten Dank für die Hilfe und Servus, Walter