Daten übertragen je nach Versionsstand

Hallo zusammen,
Ich habe zwei Arbeitsmappen, ein genannt "Kosten" und die andere "Übersicht".
In "Kosten" werden monatliche Ist- und Soll-Kosten eingetragen. Die Ergebnisse landen in den Zellen (21,9) und (21,11).
Die Kosten werden monatlich ergänzt, heißt sie steigen stetig an und setzen sich auch monatlich jeweils durch Einzelkosten zusammen.
Beispiel:
Januar: +3.000 externe Ist-Kosten + 3.000 interne Ist-Kosten = 6.000 Ist-Kosten
Februar: +4.000 externe Ist-Kosten + 2.000 interne Ist-Kosten = 12.000 Ist-Kosten
März: +1.000 externe Ist-Kosten + 3.000 interne Ist-Kosten = 16.000 Ist-Kosten
Nach dem selben Prinzip werden die Soll-Kosten erstellt.
Dem ersten Monat wird dann die Versionsnummer 1 zugeordnet, dem zweiten die 2, usw.
Das Blatt "Kosten" wird immer so fortgeführt, die Kosten werden immer weiter aufsummiert.
Auf dem Blatt "Übersicht" soll nun anhand der Versionsnummer für jeden Monat die Ist- und Soll-Kosten (also den Gesamtbetrag, nicht die Kosten aus denen er sich zusammensetzt, siehe Beispiel) übernommen werden.
Auf der Übersicht stehen bereits Versionsnummer und der jeweilige Monat, das wird automatisch per Bezug vom anderen Blatt übernommen, ich habe auch einen Button auf dem Blatt "Übersicht", mit dem der ganze Abgleich ausgelöst werden soll wie aber bekomme ich den Rest hin.
Auf der Übersicht landen die Ist-Werte in Spalte E - die Soll-Werte in Spalte F - die Versionsnummer in Spalte B
Danke vorab.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jan,
also Du möchtest eine VBA-Makro, um zu vermeiden, 3 Werte per Hand zu übertragen?
Von mir aus:

Sub Makro1()
Dim Zeile As Long
    Zeile = 6 + Sheets("Kosten").Range("B2").Value
    With Sheets("Übersicht").Range("E6")
        .Cells(Zeile, "E") = Sheets("Kosten").Range("I21").Value
        .Cells(Zeile, "F") = Sheets("Kosten").Range("K21").Value
        .Cells(Zeile, "G") = Sheets("Kosten").Range("I48").Value
    End With
End Sub

Jetzt kommt aber die Frage: "VBA kenne ich kaum, geht es auch ohne?" Nein, weil die Quellzelle sind immer dieselbe, d.h. aus 3 Werten sollten 36 Zellen befüllt werden, bei dem, abhängig der aktuelle Version, nur 3 sich anpassen sollen und die anderen ihre bisherige Ergebnis behalten sollten.
Es gibt keine Excel-Formel, die das vorige Ergebnis seiner Berechnung in der aktuellen Berechnung einbeziehen kann, spricht, es werden mit Formeln immer alles 36 Zellen aktualisiert. Es sei denn, man programmiert diese Formel selber, was wieder VBA wäre.
Im allgemein ist es selten gut beraten, Datenhaltung und Datenpräsentation zu vermischen. Auch wenn es eben den "sweet spot" von Excel ist. Gut und sauber strukturierte Daten lassen sich leicht lesen und in einer präsentationsorientierte Blatt darstellen. Schön, aber dumm gestreute Werte lassen sich selten einfach und sicher zu einen sauberen Zusammenfassung bringen.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Daten übertragen je nach Versionsstand

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread