Übersichterstellung ohne Pivot

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Frage ist, wie es möglich ist eine Übersicht zu erstellen ohne ein für Pivot nötige Struktur zu haben.
Der File-Upload der Beispieldatei in .zip funktioniert leider nicht.
Also eine kurze detailliertere Erklärung des Problems:
- ca. 40 Datenblätter mit gleicher Struktur
- Für die Übersicht relevante Zellen sind von $C$1 bis $C$12, $H$14, $B$15, $C$15, $E$15 und $T$15
Aufgabe: Erstellung einer automatisierten Übersicht
Mit meinen sehr limitierten Makrokenntnissen funktioniert es nicht. Dachte ich könnte jede erste Zelle der Datenblätter in die Übersicht verlinken und dann einfach die Zellbezüge pro Zeile ändern. Allerdings wird immer die gleiche Zeile geändert und nicht die Nächste. Ich bin mir nicht Sicher, ob ein schlauer Fuchs dies Problem schnell lösen kann, oder ob es doch so komplex ist. Aber hier hab ich da eigentlich großes Vertrauen!
So oder so, bin ich für jede Hilfe dankbar!
An dieser Stelle danke an Klaus. Die Start:Stop-Funktion kannte ich nicht. Hilft bei dem Problem aber auch nicht wirklich.

Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+q
Range("B7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R1C3"
Range("C7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R2C3"
Range("D7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R3C3"
Range("E7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R5C3"
Range("F7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R7C3"
Range("G7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R6C3"
Range("H7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R8C3"
Range("I7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R9C3"
Range("J7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R10C3"
Range("K7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R11C3"
Range("L7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R12C3"
Range("M7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R15C2"
Range("N7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R15C3"
Range("O7").Select
ActiveCell.FormulaR1C1 = "='Datenblatt ''1 M.'!R15C5"
Range("E7").Select
Selection.NumberFormat = "General"
Range("J7").Select
Selection.NumberFormat = "0.00"
Range("K7").Select
Selection.Style = "Currency"
End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread