Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Betreff
Benutzer
Anzeige
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 21: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 21: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
AW: Formel mit Makro erstellen - seltsamer Fehler
23.07.2010 21: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 21:52:54
Andreas
Das war's!
Vielen, vielen Dank!!!
Gruß
Andreas
AW:wozu die überflüssige Schleife?
24.07.2010 11: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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige