Hallo,
wenn ich richtig verstehe, soll mit einem Button in Tabelle1 etwas von Tabelle1 nach Tabelle2 kopiert werden? Ich nehme an, "ActiveCell.FormulaR1C1" stammt vom Makrorecorder. Wenn der Wert einfach nur kopiert werden soll, reich es so wie im ersten Beispiel. Select ist hier auch unnötig (das ist in 99% der Fälle so).
Private Sub CommandButton2_Click()
Dim lngRow As Long
With Worksheets("Tabelle2")
lngRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
.Cells(lngRow, 4).Value = Worksheets("Tabelle1").Cells(13, 6).Value
End With
End Sub
Objektnamen, Quell- und Zielzellen musst du evtl. anpassen.
Zu der zweiten Frage: Ich gehe davon aus, dass es 32 Tabellen von Tabelle1 bis Tabelle32 gibt. Wenn dem so ist, geht es ganz einfach (Quell- und Zielzellen nehme ich jetzt mal wie im obigen Code an):
Private Sub CommandButton3_Click()
Dim lngRow As Long
With Worksheets("Tabelle" & Day(Date) + 1)
lngRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
.Cells(lngRow, 4).Value = Worksheets("Tabelle1").Cells(13, 6).Value
End With
End Sub
Wenn du noch Fragen hast oder ich dich irgendwo missverstanden habe, melde ich einfach noch mal.
Gruß
|