Option Explicit
Public Sub Titel_click()
Dim strPath As String
Dim strFile As String
Dim strFilename As String
strPath = "N:\UBO\Koordination\Personalentwicklung\2021\"
strFile = "2021_UBO_Weiterbildung_gesamt.xlsm"
If Right$(strPath, 1) <> "\" _
Then strPath = strPath & "\"
strFilename = strPath & strFile
Dim wksSrc As Excel.Workbook
Dim wkbDest As Excel.Workbook
Dim wksDest As Excel.Worksheet
Dim rngDest As Excel.Range
Set wksSrc = ThisWorkbook.Worksheets("Titel")
Set wkbDest = Workbooks(strFile)
Set wksDest = wkbDest.Worksheets("Tabelle2")
Set rngDest = wksDest.Columns(1)
Call wksSrc.Columns(1).Copy(rngDest)
wkbDest.Save
End Sub