Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
1084to1088
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
Inhaltsverzeichnis

Matrixformel mit vba-schleife

Matrixformel mit vba-schleife
Fred
hALLO ZUSAMMEN
Ich habe da ein Problem und weissnicht ob das lösbar ist.
Ich benutze eine Matrixformel um Werte in Zelle A1 zu Summieren. Ist es möglich Diese Formel mittels VBA-Schleife auszuführen und zwar so, das wenn ich das Makro starte alle vorhandenen Arbeitsblätter durchlaufen werden , und der Wert in Tabelle "gesammt" in A1 aufsummiert wird.
{=SUMME(WENN(LINKS(D4:D35;1)="2";C4:C35;0))}
Ich hoffe Ihr könnt mir helfen.
Viele Grüße Fred

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

Betreff
Benutzer
Anzeige
AW: Matrixformel mit vba-schleife
09.07.2009 13:56:08
AndrRo
Hallo Fred,
1.) deine Formel geht auch ohne Matrix: =summenprodukt((Links(D4:D35;1)="2")*(C4:C35))
2.) VBA: Dieser Code durchsucht im jeden Blatt den Bereich D4:D35 nach den erstenzeichen =2 und addiert die spalte links daneben auf.
Sub test()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
summe = 0
For Each blatt In ActiveWorkbook.Sheets
For Each zelle In Sheets(blatt.Name).Range("D4:D35")
If Left(zelle,1) = "2" Then summe = summe + zelle.Offset(0, -1)
Next zelle
Next blatt
Sheets("Gesammt").Range("A1") = summe
Application.Calculation=xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
gruss
AndrRo
Anzeige
AW: Matrixformel mit vba-schleife
09.07.2009 14:14:06
Fred
Hallo AndrRo
vielen Dank funzt prima
Grüße Fred

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige