Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Formel mit Makro erstellen - seltsamer Fehler

Forumthread: Formel mit Makro erstellen - seltsamer Fehler

Formel mit Makro erstellen - seltsamer Fehler
Andreas
Hallo,
ich bekomme beim Versuch, eine Formel per Makro zu erstellen, immer den "vielsagenden" Fehler "Anwendungs- oder objektorientierter Fehler".
spalte = 20
anzahl = 30
Application.Calculation = xlManual
For i = 5 To spalte
Cells(11, i).Formula = "=ZÄHLENWENN(Z(2)S:Z(" & anzahl + 1 & ")S;1)"
Next i
Application.Calculation = xlAutomatic
Bei der Suche hier im Forum habe ich nichts Passendes zu diesem Problem gefunden.
Kann mir jemand einen Tip geben?
Danke,
Andreas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 23:29:59
Peter
Hallo Andreas,
ist es nicht so, dass innerhalb einer Formel, die mit VBA erzeugt werden soll, die Anführungszeichen doppelt angegeben werden müssen?
Gruß Peter
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 23:33:00
Andreas

ist es nicht so, dass innerhalb einer Formel, die mit VBA erzeugt werden soll, die Anführungszeichen doppelt angegeben werden müssen?
Hallo,
es sind gar keine Anführungszeichen in der Formel. Wenn die Formel zuvor in einer Textvariablen abgelegt wird ändert sich auch nichts.
Gruß
Andreas
Anzeige
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 23:44:11
BoskoBiati
Hallo,
probiere das mal:
spalte = 20
anzahl = 30
Application.Calculation = xlManual
For i = 5 To spalte
Cells(11, i).FormulaLocal = "=ZÄHLENWENN(Z(2)S:Z(" & anzahl + 1 & ")S;1)"
Next i
Application.Calculation = xlAutomatic

Gruß
Bosko
Anzeige
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 23:52:54
Andreas
Das war's!
Vielen, vielen Dank!!!
Gruß
Andreas
AW:wozu die überflüssige Schleife?
24.07.2010 13:52:38
Daniel
so gehts auch und ist viel schneller:
Anzahl = 30
Range(Cells(11, 5), Cells(11, 20)).FormulaLocal = "=ZÄHLENWENN(Z(2)S:Z(" & anzahl + 1 & ")S;1)"
Gruß, Daniel

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige