Liste aus anderer Datei kopieren

Public Sub Titel_click() Pfad = "N:\UBO\Koordination\Personalentwicklung\2021" Datei = "2021_UBO_Weiterbildung_gesamt.xlsm" Sheets("Titel").Select Columns("A:A").Select Selection.Copy Kopierpfad = "N:\UBO\Koordination\Personalentwicklung\PE-Pass" Kopierdatei = thisworkbook.name. "_PE-Pass.xlsm" Sheets("Tabelle2").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Sheets("Tabelle1").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Titel_click() Application.ScreenUpdating = False Set wbQuelle = Workbooks.Open("N:\UBO\Koordination\Personalentwicklung\2021\" _ & "2021_UBO_Weiterbildung_gesamt.xlsm") wbQuelle.Worksheets("Tabelle1").Columns("A").Copy ThisWorkbook.Worksheets("Tabelle2").Range("A1").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats wbQuelle.Close False Application.CutCopyMode = False End Sub

Hallo,

Public Sub Titel_click()
Application.ScreenUpdating = False
On Error Resume Next
'Prüfen ob Quelldatei offen
Workbooks("2021_UBO_Weiterbildung_gesamt.xlsm").Worksheets("Tabelle1").Calculate
If Err.Number = 9 Then
'wenn nein dann öffnen
Set wbQuelle = Workbooks.Open("N:\UBO\Koordination\Personalentwicklung\2021\" _
& "2021_UBO_Weiterbildung_gesamt.xlsm")
Else
'wenn offen dann Quelldatei zuweisen
Set wbQuelle = Workbooks("2021_UBO_Weiterbildung_gesamt.xlsm")
End If
On Error GoTo 0
wbQuelle.Worksheets("Tabelle1").Columns("A").Copy
ThisWorkbook.Worksheets("Tabelle2").Range("A1").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
wbQuelle.Close False
Application.CutCopyMode = False
Set wbQuelle = Nothing
End Sub

Gruß Werner

Public Sub Titel_click() Dim boOffen As Boolean, wb As Workbook, wbQuelle As Workbook Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name = "2019_UBO_Weiterbildung_gesamt.xlsm" Then boOffen = True Exit For End If Next wb If boOffen Then Set wbQuelle = Worksheets("2019_UBO_Weiterbildung_gesamt.xlsm") Else Set wbQuelle = Workbooks.Open("N:\UBO\Koordination\Personalentwicklung\2021\" _ & "2021_UBO_Weiterbildung_gesamt.xlsm") End If wbQuelle.Worksheets("Tabelle1").Columns("A").Copy ThisWorkbook.Worksheets("Tabelle2").Range("A1").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats wbQuelle.Close False Application.CutCopyMode = False Set wbQuelle = Nothing End Sub

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\" '### mit \ am Ende Datei = "2021_UBO_Weiterbildung_gesamt.xlsm" 'Kopierpfad = "N:\UBO\Koordination\Personalentwicklung\PE-Pass" 'Kopierdatei = ThisWorkbook.Name '"_PE-Pass.xlsm" Set WB = Workbooks.Open(Pfad & Datei) ThisWorkbook.Sheets("Titel").Columns("A:A").Copy _ Destination:=WB.Sheets("Tabelle2").Columns(1) WB.Save WB.Close End Sub

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.Open(Datei) ThisWorkbook.Sheets("Titel").Columns("A:A").Copy _ Destination:=WB.Sheets("Tabelle2").Columns(1) WB.Save End Sub

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

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste aus anderer Datei kopieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread