Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem: Umsetzung einer Excel-Formel in VBA-Code

Problem: Umsetzung einer Excel-Formel in VBA-Code
09.11.2003 21:09:59
Norbert
Hallo!

Ich benötige in einem VBA-Code die Anzahl verschiedener Zahlen in einer Spalte als Variable. Die Lösung als Excel-Formel ist kein Problem:

=SUMME((HÄUFIGKEIT(E:E;E:E)>0)*1)

Aber wie gesagt, benötige ich das Ergebnis innerhalb eines VBA-Codes. Meine nachfolgende 'Übersetzung' in VBA-Code scheitert aber immer bei WorksheetFunction.Frequency( ...


Private Sub WORKSHEET_ACTIVATE()
Dim nRows As Integer
nRows = WorksheetFunction.Sum((WorksheetFunction.Frequency(Columns(5);Columns(5)) > 0) * 1)
MsgBox nRows
End Sub


Wäre sehr dankbar für Hilfe bei der VBA-Umsetzung der Excel-Formel!

Ciao

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Pack die Anweisung in [eckige Klammern]
09.11.2003 21:32:33
Boris
Hi Norbert,

...damit zwingst zu Excel zu einem "Evaluate" - und somit wird der String
[sum((frequency(E:E,E:E)>0)*1)]
"Ausgewertet" (=Evaluate - dafür stehen die [...])

Anders scheint es nicht zu gehen.


Sub test()
Dim nRows As Integer
nRows = [sum((frequency(E:E,E:E)>0)*1)]
MsgBox nRows
End Sub


Grüße Boris
Klasse, funktioniert!! Herzlichen Dank!! oT
09.11.2003 21:37:23
Norbert
#
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige