1. Tabellenblatt Name: "STool" Datenbereich: "D26-D61" -> Datenquelle
2. Tabellenblatt Name: "OVERVIEW", Datenbereich: Spalte O5 - ....... -> hier soll reinkopiert werden.
Die Aufgabenstellung ist eigentlich sehr simpel. Suche die letzte beschriebene Zelle von Tabellenblatt "Overview" in Spalte A und schreibe dort den Inhalt von STool Bereich (D26-D61) hinein.
Mein Anfang war wie folgt:
Private Sub CommandButton1_Click()
Dim z As Integer
z = Sheets("Overview").Range("A65536").End(xlUp).Row + 1
Sheets("OVERVIEW").Cells(z, 15) = Sheets("STool").Cells(z, 4).Value
End Sub
Kann mir jemand sagen, warum das nicht funktioniert? Und wie es gehen könnte.Vielen lieben Dank und allen ein schönes We!!!
Nic