Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet Array Formeln per VBA einfügen

Worksheet Array Formeln per VBA einfügen
12.08.2007 11:21:48
Cataal
Guten Morgen Leute,
Habe wieder mal gesucht nach einer Lösung aber nicht gefunden.
Ist es möglich eine Formel über mehrere Arbeitsblätter gleichzeitig per VBA einzufügen. Jedes Arbeitsblatt hat die gleiche Struktur aber unterschiedlich Daten.
Ich dachte mit einem Worksheet Array sollte so etwas möglich sein. Doch der Formel wird nur im Active Sheet eingesetzt
BEISPIEL:
Worksheets(Array(TEST1_SHEET, _
TEST2_SHEET, TEST3_SHEET, TEST4_SHEET, _
TEST5_SHEET, TEST6_SHEET, TEST7_SHEET)).Select
Worksheets(TEST1_SHEET).Activate
Range("A16", Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Select ‘ Dynamic range
Selection.FormulaR1C1 = _
"=SUMPRODUCT(RC3:RC256,TEST8_SHEET!RC3:RC256)"
Vielleicht habt ihr eine Lösung?
Grüsse, Robert

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheet Array Formeln per VBA einfügen
12.08.2007 12:15:20
Gerd
Hallo Robert,
ob der Bereich stimmt u. die Formel stimmt kann ich nicht beurteilen.
Ansonsten so etwa.
Sub a()
Dim vntMySheets As Variant
Dim lngCounter As Long
vntMySheets = Array("TEST1_SHEET", _
"TEST2_SHEET", "TEST3_SHEET", "TEST4_SHEET", _
"TEST5_SHEET", "TEST6_SHEET", "TEST7_SHEET")
For lngCounter = LBound(vntMySheets) To UBound(vntMySheets)
With ThisWorkbook.Worksheets(vntMySheets(lngCounter))
.Range(.Cells(16, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)).FormulaR1C1 = _
"=SUMPRODUCT(RC3:RC256,TEST8_SHEET!RC3:RC256)"
End With
Next
Gruß Gerd

Anzeige
AW: Worksheet Array Formeln per VBA einfügen
12.08.2007 13:17:00
Cataal
Hallo Gerd,
Super, hat bis auf dem Range geklappt.
....End(xlup)) mit 2 und Offset mit 1 Klammer in diesem Fall.
Du hast mir sehr geholfen! Schöne Sonntag wünsche ich dir.
Gruss, Robert

277 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige