Office: Excel Formel als VBA Code in eine Variable speichern

Armado · 2. Juli 2017

Hallo,

ich versuche vergeblich diese Formel in VBA umzusetzen, sodass ich die ermittelte Anzahl in eine Variable speichern kann:

=SUMMENPRODUKT((A4:A10000"")/ZÄHLENWENN(A4:A10000;A4:A10000&""))

Vielen Dank!

:)

Luschi · 4. Juli 2017

Hallo Armado,

hier mal eine Anleitung zur Selbsthilfe: Code:

- gewünschte Formel in Zelle schreiben
- Formelzelle mit Zellcursor markieren
- Tastenkombination Alt+F11 (Vba-Editor) aufgerufen
- wenn im Vba-Editor das Fenster 'Direktbereich' nicht sichtbar ist
- dann mit Tastenkombination Strg+g sichtbar schalten
- im Direktbereich folgendes Statemant schreiben:
- ? activecell.formulalocal
- und Entertaste drücken
- Ergebnis:
=SUMMENPRODUKT((A4:A10000"")/ZÄHLENWENN(A4:A10000;A4:A10000&""))
- Vba-Code für Formel in Zelle 'K1':
Range("K1").FormulaLocal = "=SUMMENPRODUKT((A4:A10000"""")/ZÄHLENWENN(A4:A10000;A4:A10000&""""))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

PS: Die Verdopplung der Anführungsstriche ist Plicht, da die Formel für Vba ein Textwert ist (String)!

Armado · 4. Juli 2017

Hallo Luschi,

ich verstehe nicht genau was das bringen soll.
Was ich brauche ist sowas in VBA was aber funktioniert:

variable1 =SUMMENPRODUKT((A4:A10000"")/ZÄHLENWENN(A4:A10000;A4:A10000&""))

und dann mit dem ermittelten Wert arbeiten zu können.

Es soll nicht über Umweg die Formel einer Zelle genommen werden. Das muss doch irgendwie gehen, oder?

Danke!

Hans Hofmann · 4. Juli 2017

Guckst Du
WorksheetFunction.SumProduct()
Schwer vorstellbar was die Formel macht....
ZÄHLENWENN(A4:A10000;A4:A10000&"") ?

Armado · 4. Juli 2017

Hallo Hans Hofmann,

soweit war ich auch. Den ersten Teil mit SumProduct hatte ich auch schon, aber ich brauche die Zusammensetzung aus SumProduct und Countif. Wobei Countif innerhalb der SumProduct also ein Teil davon ist.

So in etwa:

variable = WorksheetFunction.SumProduct((Range("A4:A1000")"") / (WorksheetFunction.Countif(Range"A4......

aber das funktioniert nicht.

Das erwartete Ergebnis ist, dass ich in dem Zellbereich die Anzahl der unterschiedlichen Textstrings ermitteln will. Beispiel

A1 = Hallo
A2 = Du
A3 = Hallo
A4 = Sie

Ergebnis = 3

Ist es klarer geworden was ich vor habe?

Danke

lupo1 · 4. Juli 2017

variable1 = [Sumproduct((A4:A10000"") / CountIf(A4:A10000, A4:A10000 & ""))]

ungetestet

Luschi · 4. Juli 2017

Hallo Armado,

so klapt es jetzt bei mir: Code:

Sub test1()
Dim d As Double, formel As String

formel = "=SUMPRODUCT((A4:A10000"""")/COUNTIF(A4:A10000,A4:A10000&""""))"
d = Application.Evaluate(formel)
MsgBox d
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Armado · 4. Juli 2017

Hallo Lupo,

genau das hatte ich gesucht. Das heißt im Klartext für mich, dass Formeln aus Zellen direkt mit einer eckigen Klammer 1:1 verwendet werden kann.

Klasse genau das habe ich gesucht.

Vielen lieben Dank!

Armado

Armado · 4. Juli 2017

Danke euch allen für die schnellen und guten Tipps *wink.gif*

Hans Hofmann · 4. Juli 2017

Und eine direkte VBA Function

Code:

Function Extrakt(Bereich As Range)
Dim a As New Collection, b
On Error Resume Next
For Each b In Bereich
If b > "" Then a.Add b.Value, "!" & b.Value
Next
Extrakt = a.Count
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Excel Formel als VBA Code in eine Variable speichern

Excel Formel als VBA Code in eine Variable speichern

Excel Formel als VBA Code in eine Variable speichern

Excel Formel als VBA Code in eine Variable speichern

Excel Formel als VBA Code in eine Variable speichern

Excel Formel als VBA Code in eine Variable speichern - Similar Threads - Excel Formel VBA

Zugriff auf andere Excel Datei ohne aktives Öffnen

Hilfe bei VBA-Programmierung

VBA Lösung für Excel Formel

Excel VBA oder nur Excel Formel

Excel Formel in VBA "übersetzen"

VBA Formel die automatisch die Zelle nach dem Namen zusammenrechnet

Excel Formel in VBA