Arbeitsblatt aus anderer Mappe kopieren
01.03.2015 13:56:03
wolfgang
Ich möchte gerne ein Arbeitsblatt aus
einer anderen Mappe in meine aktive Mappe
kopieren.
in einer UserForm werden in zwei Listboxen
von beiden Arbeitsmappen die Arbeitsblätter
angezeigt.Mit dem Klick Ereignis kann ich auch
das gewählte Arbeitsblatt Kopieren und in der
Arbeitsmappe einfügen.
Nur : und das ist meine Frage; warum wird noch
ein leeres Arbeitblatt mit eingefügt ?
Nachfolgen mein Code:
Private Sub lst_WksZumKopieren_Click()
Dim wks As String
Dim QuelleWB As Workbook, ZielWB As Workbook
Dim QWS As Worksheet ' Quelle Worksheets
Set QuelleWB = Workbooks(2)
Set ZielWB = Workbooks(1)
wks = lst_WksZumKopieren.Value
Set QWS = QuelleWB.Worksheets(wks)
QWS.Copy ZielWB.Worksheets.Add(After:=ZielWB.Sheets(ZielWB.Sheets.Count))
End Sub
Anzeige