Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Matrixformel in VBA realisieren

Forumthread: Matrixformel in VBA realisieren

Matrixformel in VBA realisieren
11.08.2002 02:37:49
Robert B.
Hallo Leute

Ich möchte folgende Matrixformel
über VBA realisieren.

Das heist nicht nur über den Makro Rekorder aufzeichnen
sondern die Tabellenname z.B. Jahr2001 soll mit seinem realen
Namen z.B. Tabelle1 angesprochen werden.
Hierdurch bin ich vom jeweiligen Tabellennamen unabhängig.

Vielen Dank im voraus

Gruß Robert


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Matrixformel in VBA realisieren
11.08.2002 13:32:19
GerdZ
Hallo Robert,

evtl. funktioniert es mit:


ActiveCell.FormulaArray = "=SUM(('" & [Tabelle1].Name & "'!A3:A501=" & Chr$(34) & "erledigt" & Chr$(34) & ")*('" & [Tabelle1].Name & "'!W3:W501=" & Chr$(34) & "Nr-01" & Chr$(34) & ")*1)+SUM(('aktuelles Jahr'!A3:A501=" & Chr$(34) & "erledigt" & Chr$(34) & ")*('aktuelles Jahr'!W3:W501=" & Chr$(34) & "Nr-01" & Chr$(34) & ")*1)"

Gruß
Gerd
Anzeige
Re: Matrixformel in VBA realisieren
11.08.2002 15:33:17
Robert B.
Hallo Gerd,

danke für die Antwort.

Das funktioniert soweit auch.

Da habe ich doch gleich noch eine Frage

Wie stelle ich es an, wenn ich in die Zelle nicht die Matrixformel eingeben möchte sondern nur das Ergebnis daraus.

Gruß Robert

Re: Matrixformel in VBA realisieren
11.08.2002 16:12:31
GerdZ
Hallo Robert,

dafür gibt es mehrere Möglichkeiten.
Du läßt die Matrix-Formel in die Zelle schreiben und ersetzt sie dann durch den errechneten Wert:
z.B.
ActiveCell.Value = ActiveCell.Value
oder
ActiveCell.Copy
ActiveCell.PasteSpecial xlPasteValues

Gruß
Gerd

Anzeige
Re: Matrixformel in VBA realisieren
11.08.2002 18:47:20
Josef B
Hallo Rabert

So wird der Wert direkt in die Zelle A1 geschrieben:
Range("A1") = Application.Evaluate("=SUM(('" & [Tabelle1].Name & "'!A3:A501=" & Chr$(34) & "erledigt" & Chr$(34) & ")*('" & [Tabelle1].Name & "'!W3:W501=" & Chr$(34) & "Nr-01" & Chr$(34) & ")*1)+SUM(('aktuelles Jahr'!A3:A501=" & Chr$(34) & "erledigt" & Chr$(34) & ")*('aktuelles Jahr'!W3:W501=" & Chr$(34) & "Nr-01" & Chr$(34) & ")*1)")

Gruss Josef


Anzeige
Danke Re: Matrixformel in VBA realisieren
11.08.2002 21:21:50
Robert B.
Danke Josef und Gerd

Gruß Robert

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige