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.
