täglichen Wert zur Auswertung automatisch in extra Tabellenblatt übertragen

Question

Hallo,

ich wollte dass in meiner Tabelle per Control Button ein sich täglich
ändernder Wert (durch eine Formel) von Tabellenblatt 1 in Tabellenblat
2 eingetragen wird.

Die Zelle G6 in Tabelle 1 soll übertragen werden. In Tabelle 2 ist ein
Kalender hinterlegt. Es soll also nach dem heutigen Tag gesucht
werden und der Wert aus Tabelle 1 in Tabelle 2 Spalte C eingetragen
werden.

Ich habe leider keine Ahnung in VBA und hab deshalb den Button mit
den folgenden Code nur so einrichten können, dass er Datum und
Wert zwar in ein extra Tabellenblatt einträgt allerdings habe ich dann
Probleme das ganze in einem Diagramm auszuwerten.

Private Sub CommandButton1_Click()
Worksheets("Hilfstabelle2").Rows("50:50").Insert Shift:=xlDown
Range("G6").Copy
Worksheets("Hilfstabelle2").Range("P50").PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Range("R1").Copy
Worksheets("Hilfstabelle2").Range("O50").PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Ich bin kein Excel-Profi, vielleicht hat also jemand eine Lösung für das
ganze.

Answer 1

Hallo,

mit dieser Beschreibung wird dir wohl keiner richtig helfen können.
Wie sieht denn der Kalender in Tabelle2 aus? Stehen die einzelen Tagesdaten z.B. in Spalte A untereinander?

Vielleicht kannst du ja mal eine Beispieltabelle auf einen Hoster deiner Wahl (z.B. [url=http://www.filehorst.de/]hier[/url]) hochladen und den Link dann hier posten.

Gruß

M.O.