Werte in andere Exceldatei kopieren-Monat als Vari

Sub AuswahlInZielDateiKopieren()
'----- Anpassen -----
Const ZIEL_PFAD As String = "U:\Test\" 'Verzeichnis der Ziel-Datei
Const ZIEL_MAPPE As String = "Mappe2.xlsx" 'Name der Ziel-Datei
Const ZIEL_BLATT As String = "Jan16" 'Name des Ziel-Tabellenblattes
'----- ENDE -----
Dim WbQ As Workbook, WbZ As Workbook, WsZ As Worksheet
Dim Bereich As Range, Opened As Boolean
Application.ScreenUpdating = False
Set WbQ = ThisWorkbook 'Quell-Mappe = DIESE Mappe (mit Makro(s))
Set Bereich = Selection 'Aktuelle Auswahl auf dem Blatt wird kopiert...
'..wenn mindestens 2 Zellen ausgewählt wurden -->
If Bereich.Cells.Count 

Function MappeOffen(ZielMappe As String) As Boolean
'Prüft ob eine Mappe mit dem übergebenen Namen bereits offen ist
Dim Wb As Workbook
MappeOffen = False
For Each Wb In Application.Workbooks
If Wb.Name = ZielMappe Then MappeOffen = True
Next Wb
End Function

Function BlattVorhanden(ZielBlatt As String, _
ZielMappe As Workbook) As Boolean
'Prüft ob ein Blatt mit dem übergebenen Namen in der über-
'gebenen Mappe vorhanden ist
Dim Ws As Worksheet
BlattVorhanden = False
For Each Ws In ZielMappe.Worksheets
If Ws.Name = ZielBlatt Then BlattVorhanden = True
Next Ws
End Function