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

Matrixformel in VBA realisieren

Matrixformel in VBA realisieren
11.08.2002 00: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


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

Betreff
Datum
Anwender
Anzeige
Re: Matrixformel in VBA realisieren
11.08.2002 11: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
Re: Matrixformel in VBA realisieren
11.08.2002 13: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

Anzeige
Re: Matrixformel in VBA realisieren
11.08.2002 14: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

Re: Matrixformel in VBA realisieren
11.08.2002 16: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 19:21:50
Robert B.
Danke Josef und Gerd

Gruß Robert

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige