Option Explicit
Sub Projektaufstellungneu()
Rem ***********************************************************************************
Rem Damit die Zelle an das Ende der Tabelle im neuen Tabellenblatt eingefügt wird,
Rem wird zunächst das Tabellenende gesucht.
Rem Zusätzlich soll auch die Formatierung bzw. der Rahmen der Zelle übernommen werden.
Rem Der Inhalt der Zelle nur in Spalte A ans Tabellenende eingefügt wird
Rem und dass die Formatierung im Bereich A:M übernommen wird !
Rem ***********************************************************************************
Const strQuelle As String = "Projektliste"
Const strZiel As String = "Projektaufstellung"
Const strSpalte As String = "A"
Const strbisSpalte As String = "M"
Dim rngQ As Range
Dim rngZ As Range
Set rngQ = Selection
If rngQ.Parent.Name <> strQuelle Then Exit Sub
Set rngZ = Sheets(strZiel).Columns(strSpalte).Cells(Rows.Count).End(xlUp)
If Not IsEmpty(rngZ) Then Set rngZ = rngZ.Offset(1)
rngQ.Copy Destination:=rngZ
Set rngQ = rngZ
Set rngZ = Range(rngQ.Offset(0, 1), rngQ.Offset(0, Asc(strbisSpalte) - Asc(strSpalte)))
rngQ.Copy
rngZ.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
Application.CutCopyMode = False
Rem ***********************************************************************************
Rem warum einfach, wenn kompliziert auch geht ;)
Rem ***********************************************************************************
End Sub