|
Hallo,
hier scheint es ja zum Glück einige Profis zu geben.
Ich bin leider ziemlich am verzweifeln.
Für eine Auswertung habe ich eine Mappe mit ca. 100 Blättern. Nun soll in die Blätter eine Berechnung einfließen.
Das mache ich über eine Schleife für jedes Blatt.
For i = 2 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Range("A1").Value = "Verantwortlicher"
ActiveWorkbook.Worksheets(i).Range("B1").Formula = "=ZÄHLENWENN(B2:B1000,A1)"
'ActiveWorkbook.Worksheets(i).Range("B1").Formula = Application.Substitute(ActiveWorkbook.Worksheets(i).Range("B1").Formula, "@", "")
Next
Leider fügt Excel 365 automatisch ein @ Zeichen ein und kann die Formel dann nicht mehr lösen.
Das sieht dann so aus: =@Zählenwenn(B2:B1000,A1)
Über die Replacefunktion bekomme ich das @ auch nicht weg, das geht nur manuell über Suchen und Ersetzen.
Weiß jemand, was das für ein Sch*** ist?
Besten Dank.
|