AW: Ablauf verbesssern
13.10.2005 21:39:17
achim
Hallo Harald
Deine Vermutung ist richtig. Die Aktiven Zellen im DienstplanMaster sind nach dem makieren B2:Q2 wobei der Anfasser sich bei Q2 befindet. (also, wo der Mauszeiger vom großen Kreutz sobald Anfasser erreicht zum kleinen Kreutz wird)
Problem!!
Er macht AutoFill nicht nach unten soviel wie vorher gezählt sondern geht nach oben. Komisch meinst du nicht auch?
Ich stelle nochmal den von mir auf deine Anregung überarbeiteten Tread ein.
Sub StartDatenAusMV34()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & "DienstplanMV34.xls"
Workbooks.Open strPfad, Password:="KUFAP"
Windows("DienstplanMaster.xls").Activate
Sheets("DienstplanMaster").Activate
Range("A2:Q3000").Select
Selection.ClearContents
Range("B:B").Find("", LookAt:=xlWhole).Offset(0, 0).Select
ActiveCell.Offset(0, 0).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC2,25)"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC3,25)"
ActiveCell.Offset(0, 2).FormulaR1C1 = "=SUM([DienstplanMV34.xls]Einteiler!RC4)"
ActiveCell.Offset(0, 3).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC5,25)"
ActiveCell.Offset(0, 4).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC6,25)"
ActiveCell.Offset(0, 5).FormulaR1C1 = "=Left([DienstplanMV34.xls]Einteiler!RC7,25)"
ActiveCell.Offset(0, 6).FormulaR1C1 = "=SUM([DienstplanMV34.xls]Einteiler!RC8)"
ActiveCell.Offset(0, 7).FormulaR1C1 = "=SUM([DienstplanMV34.xls]Einteiler!RC9)"
ActiveCell.Offset(0, 8).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC10,25)"
ActiveCell.Offset(0, 9).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC11,25)"
ActiveCell.Offset(0, 10).FormulaR1C1 = "=SUM([DienstplanMV34.xls]Einteiler!RC12)"
ActiveCell.Offset(0, 11).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC13,25)"
ActiveCell.Offset(0, 12).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC14,25)"
ActiveCell.Offset(0, 13).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC15,25)"
ActiveCell.Offset(0, 14).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC16,25)"
ActiveCell.Offset(0, 15).FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC17,25)"
Set ziel = Workbooks("DienstplanMV34.xls").Sheets("Einteiler")
Lrow = ziel.Cells(Rows.Count, 4).End(xlUp).Row
anzd = WorksheetFunction.CountA(Range("D2:D" & Lrow))
Set meister = Workbooks("DienstplanMaster.xls").Sheets("DienstplanMaster")
Range("B:B").Find("", LookAt:=xlWhole).Offset(-1, 0).Select
Range(ActiveCell(), ActiveCell.Offset(0, 15)).Select 'B2 bis Q2 makieren
ce = ActiveCell.Row
'Weiterhin das Problemkind
Selection.AutoFill Destination:=Range("B" & ce & ":Q" & anzd), Type:=xlFillDefault
End Sub