Typenunverträglichkeit bei Funktion Formula

Sub NW_berechnen() Dim letztezeile As Long With Worksheets("Marktanalyse") letztezeile = Worksheets("Marktanalyse").UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Größten NW finden Worksheets("Auswahl_Ergebnis_1").Cells(14, 3).Formula = "=wenn(anzahl2(" & .Range(.Cells(3, 29), _ .Cells(letztezeile, 29)) & ")>=1;KGRÖSSTE(" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)) & " ;1);"")" End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

.Cells(14, 3).FormulaLocal = "=wenn(anzahl2(" & .Range(.Cells(3, 29), _ .Cells(letztezeile, 29)).Address & ")>=1;KGRÖSSTE(" & .Range(.Cells(3, 29), .Cells(letztezeile, _ 29)).Address & " ;1);"""")"

Hi
1. falsche Formelsprache
wenn du die Formel mit .Formula in die Zellen schreibst, muss sie in englisch geschrieben werden, dh englische Funktionsnamen, Komma als Parameter- und Punkt als Dezimalzeichen.
wenn du die Formel wie gewohnt in landestypischer Schreibeweise in die Zellen schreiben willst, dann musst du .FormulaLocal verwenden.
2. Array anstelle Einzelwert
ich gehe mal davon aus, dass du hier:
...(" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)) & ")...
nicht alle Werte aus diesem Bereich als Array in die Formel eintragen willst (das würde auch überhautp nicht funktionieren und ist für den Fehler 13 verantwortlich)
hier muss die Zelladresse des Zellbereichs als Einzelwert-Textstring eingegragen werden, dh:
...Anzahl2(" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)).Address & ")...
3. Tabellenblattname fehlt
gleiche stelle wie 2. hat folgenden Fehler: durch die Punkte deutest du an, dass hier der Zellbezug auf das bei WITH definierte Tabellenblatt erfolgen soll. Das funktioniert hier aber so nicht, du musst den Tabellenblattnamen mit in die Formel aufnehmen:
...Anzahl2('" & .Name & "'!" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)).Address & ")...
4. Anführungszeichen der Formel nicht gedoppelt
Wenn du in VBA einen Textstring angibst, der selbst Anführungszeichen enthalten soll, dann müssen die Anführungszeichen, die zum Text gehören, immer doppelt hingeschrieben werden. An dieser Dopplung kann dann der Interpreter diese zum Text gehörenden Anf.Zeichen von denen unterscheiden, die den Teilstring begrenzen: ...& " ;1);"""")"
das wären mal die vier Fehler, die beim schnellen drüberschauen so auffallen.
der Fehler Nr. 2 ist für die Fehlermeldung verantwortlich (Array anstelle Einzelwert)
Gruß Daniel

Worksheets("Tabelle1").Cells(14, 3).FormulaLocal = "=wenn(anzahl2(" & "'Tabelle2'!" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)).Address & ")>=1;KGRÖSSTE(" & "'Tabelle2'!" & .Range(.Cells(3, 29), .Cells(letztezeile, 29)).Address & " ;1);"""")"

Beliebteste Forumthreads (12 Monate)

Typenunverträglichkeit bei Funktion Formula

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread