title image


Smiley Formel in Zelle erstetzen
Guten Morgen,



ich möchte per macro die Berechnung in einzelnen Zellen ändern,

leider meckert der debugger, da ein prüfparameter in ausführungszeichen gesetzt ist.

Auch die varinate mit Chr(34) klappt nicht.



Geht das nicht, oder was mache ich da falsch?



Bin für jedwede Hilfe extrem dankbar

Liebe Grüße

walther







-----------------------------------------------------------------------------

Option Explicit

Public Sub FDR()







Dim oBlatt As Worksheet

Set oBlatt = ThisWorkbook.Worksheets("ADMIN")

With oBlatt



.Range("C5").FormulaLocal = "=WENN(Daten!$B$87=1,WENN(LS!S26=& Chr(34) & OFF & Chr(34) &,0,LS!G26))"



'--------------------------------------------------------------------



Option Explicit

Public Sub FDR()







Dim oBlatt As Worksheet

Set oBlatt = ThisWorkbook.Worksheets("ADMIN")

With oBlatt



.Range("C5").FormulaLocal ="=WENN(Daten!$B$87=1,WENN(LS!S26="OFF",0,LS!G26))"



'--------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: