VisualBasic script / Excel: Formel in eine Zelle einfügen geht nicht

mr_shaba

Admiral Special
Mitglied seit
11.11.2001
Beiträge
1.240
Renomée
2
Hallo

Ich versuche gerade eine Formel per VisualBasic script/macro in eine Zelle im Excel einzufügen, jedoch bekomme ich immer einen Fehler bei der Ausführung. Muss zugeben dass ihc eigentlich kein Entwickler bin, aber versuche mich solangsam einzuarbeiten.

Zelle sollte folgendes enthalten:
Code:
=(62-COUNTIF(B21:AF22;""))/2

meine Zeile im script lautet wie folgt:
Code:
ActiveSheet.Cells(1, 8).Formula = "=(62-COUNTIF(B21:AF22;""""))/2"

Fehlermeldung: Run-time error '1004': Application-defined or object-defined error
Die Excel Hilfe sagt nicht gerade viel darüber aus.

Wenn ich die Formel von Hand in die Zelle einfüge dann funktioniert diese auch.

Führe ich mein script ohne dem "=" in der Formel aus,
Code:
ActiveSheet.Cells(1, 8).Formula = "(62-COUNTIF(B21:AF22;""""))/2"
dann setzt er die formel nur als text in die Zelle. Ein nachträgliches dazusetzen eines "=" geht und die formel funktioniert auch.

Eine einfachere Formel wie
Code:
ActiveSheet.Cells(1, 8).Formula = "=(62-12)/2"
geht hingegen auch per einsetzten via script.


Lediglich das direkte Einfügen der kompletten Formel geht per script nicht. Was mache ich da falsch? Ist es wegen den doppel " und wenn ja wie kann man das anderst machen? Ich versteh das einfach nicht.

Würde mich über eure hilfe freuen, bin schon fast am verzweifeln. :-[
 
niemand hier der mir nen tip geben kann?
 
Versuchs mal hiermit:
ActiveSheet.Cells(1, 8 ).Formula = "(62-COUNTIF(B21:AF22,""""))/2"
Also statt eines Semikolons ein Komma in der Formel eingeben. Excel unterscheidet leider zwischen Makro und ExcelSheet - so wie man im Makro die englischen Funktionsnamen benutzen muß statt der deutschen, muß man eben auch Komma statt Semikolon in den Funktionen verwenden.
Hoffe das hilft
Jens
 
Code:
ActiveSheet.Cells(1, 8 ).Formula = "(62-COUNTIF(B21:AF22,""""))/2"

Nur noch eine Kleinigkeit:

Code:
ActiveSheet.Cells(1, 8 ).Formula = "[COLOR="Red"]=[/COLOR](62-COUNTIF(B21:AF22,""""))/2"

Wenn das = eingefügt ist, funktioniert es!
 
Zuletzt bearbeitet:
Zurück
Oben Unten