Sub Tab1_kopieren()
Dim am As Object
Dim dat$, vorl$ 'Dateiname, Jahr, Monat
rechnmonat = Right(CStr(Year(Now)), 2) + Format(Month(Now), "00")
dat = ThisWorkbook.Path + "\Tab_" + rechnmonat + ".xls"
Sheets("Tab").Select
Range("B6:I61").Select
Selection.Copy
'ab hier soll die Datei die in dat gespeichert ist ausgewählt
'werden.
'ich komme nicht mehr weiter, wie lautet der Befehl ?
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
ActiveWindow.WindowState = xlMinimized
Application.CutCopyMode = False
Range("A4").Select
End Sub
Grußadi