habe ein Problem mit meinem Code
Sub Testi()
Dim lngZeile As Long
For lngZeile = 2 To 100
Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _
2:$M2);"")"
Next lngZeile
End Sub
das Code soll Indexzahl ausgeben, also wenn Zelle M1 leer ist dann nicht nichts, wenn M5 etwas drin steht dann eine "1" ...usw.
Die Formel ist soweit ok wenn ich sie im Blatt eintrage. Jetzt aber über vba klappts nicht, weil beim ausführen sieht man in der Formel, dass ein Hochkomma fehlt. Habe versucht mit & Chr(34) ein weiteres Hochkomma zu erzeugen, ging aber nicht. Weiß jemand ein Rat?
gruß
Balta