Super, vielen Dank Euch beiden klappt perfekt. Noch zwei weitere Fragen, danach wäre die Datei perfekt:
1. Was muss ich verändern, wenn der Button im Tabellenblatt 1 sein soll die Werte jedoch im Tabellenblatt 2 (nächste freie Spalte in D eintragen soll?) also wie oben auch nur das der Button woanders ist.
With Worksheets("Tabelle1") ' Tabellennamen anpassen
Sheets("Tabelle2").Select
lngRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1 ' 4 - Zielspalte
ActiveCell.FormulaR1C1 = "=Tabelle1!R13C6"
.Cells(lngRow, 4).Value = .Cells(13, 6).Value ' Quelle: F13
End With
Ich habe es so probiert. Klappt auch aber er trägt das immer nur in eine angeklickte Zelle.
2. Wenn ich im Tabellenblatt 1 meine CommansButtons haben soll je nach Datum in ein anderes Tabellenblatt die Werte eingetragen werden. Also z.B. 1.Mai dann in Tabellenblatt 2, 2. Mai in Tabellenblatt 3.
Geht das oder zu kompliziert?
Vielen Dank für Eure Unterstützung!
|