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

Forumthread: Formel "hochzählen"

Formel "hochzählen"
22.04.2009 15:52:41
Susi
Hi,
ich hab eine zwar etwas umständliche Lösung für mein Problem von heute Mittag gefunden.
Per VBA füge ich nun die Formeln ein meine Tabelle ein.
z.B.
Sub Formel()
[B4].Formula = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!D6"
End
Da sich die Formeln nun aber ca. 300 mal wiederholen müsste, da sich die Zellbezüge ja ändern müssen
z.B:
[B4].Formula = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!D6"
[B5].Formula = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!D7"
[B6].Formula = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!D8"
...
dachte ich mir da müsste es doch eine Möglichkeit mit einer Schleife geben, zumal noch in zwei Spalten so ähnlich viele Formeln rein müssten und ich die nicht alle ins Mako reinschreiben wollte. (wäre auch zu unübersichtliche und bei Änderungen in der Formel würde ich glaube ich die Krise bekommen.
Hat vielleicht jemand ein Idee, wie man die Zellen B4, B5, B6 ... und die Zellen D6, D7, D8 ... irgendwie bis 304 bzw. 306 hochzählen könnte.
Dankeschön.
Gruß Susi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Formel "hochzählen"
22.04.2009 15:58:15
Hajo_Zi
Hallo Susi,
teste es so
Range("B4:B304").Formula = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!D6"

AW: Formel "hochzählen"
22.04.2009 16:11:15
Susi
Cool, funktioniert.
Vielen Dank. Susi
AW: Formel "hochzählen"
22.04.2009 15:59:41
D.Saster
Hallo,
Sub Formel()
Range("B4:B304").FormulaR1C1 = "='" & ThisWorkbook.Path & "\[Mappe1.xls]Tabelle1'!R[2]C[2]"
End
sollte passen.
Gruß
Dierk
Anzeige
AW: Formel "hochzählen"
22.04.2009 16:16:10
Susi
Funktioniert.
vielen, vielen Dank.
Gruß Susi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige