Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel in VBA dynamisch erstellen und in Zelle sch

Formel in VBA dynamisch erstellen und in Zelle sch
24.06.2008 11:48:00
braleta
Hallo Gemeinde,
wie kann ich im VBA eine Formel dynamisch erstellen und in eine Zelle schreiben, so dass ich in dieser Zelle das Ergebnis finde?
Es geht mir hierbei um das Prinzip.
Herzlichen Dank!
...braleta

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in VBA dynamisch erstellen und in Zelle
24.06.2008 12:04:00
Tobias
Hallo braleta!
Möchtest Du per VBA eine Excel-Formel ein eine Zelle schreiben oder eine VBA-Funktion für Excel schreiben?
Tabelle1

 AB
115
266

Formeln der Tabelle
ZelleFormel
A2=SUMME(A1:B1)
B2=addiere(A1;B1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Public Function Addiere(ersterSummand As Range, zweiterSummand As Range) As Double 'Dieser Code steht in einem Modul, nicht Arbeitsblatt! Addiere = ersterSummand + zweiterSummand End Function


Schönen Gruß, Tobias
http://www.tobiasschmid.de/

Anzeige
AW: Formel in VBA dynamisch erstellen und in Zelle
24.06.2008 15:34:10
braleta
Hallo Tobias,
ich möchte (muss) per VBA eine Formel in eine Zelle schreiben.
Nur ein Beispiel: wenn ich in der Zeile "5" im Bereich "B5:AB5" Werte stehen habe, möchte ich per VBA in die Zelle "A5" die Formel "=zählenwenn(B5:AB5;"WERT") schreiben.
:-)
Danke für jede Art von Hilfe
...braleta :-)

AW: Formel in VBA dynamisch erstellen und in Zelle
25.06.2008 00:21:00
Daniel
HI
das geht so(in den verschiedenen Varianten):
Range("A5").formula = "=CountIF(B5:AB5,""WERT"")"
Range("A5").fomlulaLocal = "=zählenwenn(B5:AB5;""WERT"")"
Range("A5").forumlaR1C1 = "=CountIF(RC2:RC28,"WERT")"
Range("A5").FormulaR1C1Local = "=zählenwenn(ZS2:ZS28;""WERT"")"
wenn du das ganze dynamisch (also angepasst an die tatsächliche Spaltenzahl) benötigst, dann musst du den Formelstring entsprechend zusammenbasteln:
Range("A5").FormulaR1C1Local = "=zählenwenn(ZS2:ZS" & Cells(5,256).end(xltoleft).column & ";""WERT"")"
Gruß, Daniel

Anzeige
AW: Formel in VBA dynamisch erstellen und in Zelle
25.06.2008 11:06:46
braleta
Daniel,
herzlichen Dank, auf diese Lösung bin ich nicht gekommen!
Super, und danke!
braleta

89 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige