Hallo zusammen,
folgendes Problem:
In VBA ist untenstehender Code.
Es soll eine Formel kopiert werden.
Beim kopieren wird jedes Mal ein Teil der Anführungsstriche verloren.
In der Formel
=Wenn(A54="";"";zählenwenn(C18:C39;Schichtmodelle!$A$5))
Nach dem Copy-Befehl sieht die Formel so aus:
=Wenn(A54=";";zählenwenn(C18:C39;Schichtmodelle!$A$5))
Es fehlt also jedes Mal ein Teil der Anführungsstriche bei ..A54="";""...
Hat jemand eine Idee ?? Wäre super.
Danke und Gruß
Hans
Nachfolgend ein Auszug aus dem Code:
If ListBox1.Value = "Hilfskraft" Then
Application.ScreenUpdating = False
Cells(52, 3).FormulaLocal = "=Wenn(A52="";"";ZÄHLENWENN(c18:c39;Schichtmodelle!$A$5))"
Cells(55, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;Schichtmodelle!$A$6)"
Cells(58, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;Schichtmodelle!$A$13)"
Cells(64, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;$A$64)"
Cells(65, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;$A$65)"
Cells(66, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;$A$66)"
Cells(67, 3).FormulaLocal = "=ZÄHLENWENN(c18:c39;$A$67)"
For i = 4 To 33
Cells(52, 3).Copy
Cells(52, i).PasteSpecial