|
Hallo zusammen,
ich möchte eine Liste aus einer anderen Datei kopieren.
Beide Dateien sind auf jeden Fall geöffnet.
Folgenden Code habe ich schon:
Public Sub Titel_click()
Dim Pfad As String, Datei As String, Sp As Integer
Dim WB As Workbook, Kopierpfad As String, Kopierdatei As String
Pfad = "N:\UBO\Koordination\Personalentwicklung\2021\"
Datei = "2021_UBO_Weiterbildung_gesamt.xlsm"
Set WB = Workbooks(Datei)
ThisWorkbook.Sheets("Titel").Columns("A:A").Copy _
Destination:=WB.Sheets("Tabelle2").Columns(1)
WB.Save
End Sub
Nun zeigt er aber die Fehlermeldung: Index außerhalb des gültigen Bereichs
Was muss ich ändern?
Danke
Bea
|