Makrozeilen zusammenfassen : Copy Befehl
15.05.2013 13:50:56
Toumas
und wieder stehe ich vor dem nächsten Problem.
ich habe vorhin ein Makro von Hajo bekommen, welches die Zeile :
.Range("B9:Q31").Copy Workbooks("XXXXXXXX.xlsm").Sheets("XXXXX").Range("B9")
enthält.
Nun habe ich mein Makro so umgeschrieben, dass meine Dateien mit festen Namensteil und variablen Datumsteil geöffnet werden um dort im betroffenen Sheet, die vorhandenen Inhalte rauskopiert. (und ich war schon froh, es so hinzubekommen, dass die Datei mit variablen Teil geöffnet wird ;-)
Dabei habe ich (bisher in anderen Makros) die Version :
Sheets("Sheet aus dem es kopiert werden soll").Select
Range(Cells(6, 2), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 8)).SpecialCells(xlCellTypeVisible).Copy
(danach die hässliche Select-Variante mit dem Paste-Befehl)
verwendet.
Nun dachte ich mir, ich könnte "einfach" diesen Befehl, wie in der ganz oben aufgeführten Codezeile verbinden. Rausgekommen ist das hier dabei :
.Range(Cells(6, 2), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 8)).SpecialCells(xlCellTypeVisible).Copy Workbooks("XXXXXXX.xlsm).Sheets("XXXXX").Range("A2")
und natürlich funktioniert es nicht so wie gedacht....
Hat mir jemand einen Tipp ?
vielen Dank im Voraus
Viele Grüße
Toumas
Das ganze Makro, falls das notwendig ist sieht so aus :
Sub Datei_mit_TagesDatum_öffnen()
Workbooks.Open Filename:= _
"\\AAAAA\BBBBB\CCCCC\DDDDD\EEEEE\FFFFF\GGGGG\HHHHH\DATEI" & Format(Date, "dd.mm.yyyy") & _
_
".xls"
' Datei mit festen Namensteil und tagesaktuellen Datumsteil wird geöffnet
Workbooks("MeineDatei.xlsm").Sheets("Postverteilung").Unprotect "123"
With Sheets("SHEET aus dem es kopiert wird")
.Unprotect "123"
.Range(Cells(6, 2), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 8)).SpecialCells( _
xlCellTypeVisible).Copy Workbooks("MeineDatei.xlsm).Sheets("Sheet in das es Kopiert werden soll" _
).Range("A2")
.Protect "123"
End With
Workbooks("DATEI" & Format(Date, "dd.mm.yyyy") & ".xls").Close True
End Sub