Makro verbessern
06.10.2005 20:10:47
achim
Wer kann helfen?
Ich habe zwei Excel Dateien geöffnet.
1. DienstplanMaster.xls
2. DienstplanMV34.xls
Nun starte ich das Makro von DienstplanMaster.xls aus und der erste Teil funzt.
Der zweite Teil ist für mich das eigentliche Problem.
(Gehe nach DienstplanMV34.xls und zähle die Einträge und anschließend gehe nach
DienstplanMaster.xls und mache AutoFill so viele wie vorher gezählt)
Ich habe mich so gut wie ich Kenntnisse habe daran gewagt.(Ich vermute das ein Profi die Augen über die holperhafte VBA Prgrammierung verdrehen wird)
Naja, aller Anfang ist schwer!!
Anbei zum besserem Verständnis der Erste und der Zweite nicht Funzt teil!!!
Sub test1()
Sheet("DienstplanMaster").Select
Range("B:B").Find("", LookAt:=xlWhole).Offset(0, 0).Select
'diese Formel wird in die weiteren Zellen rechts bis zur 15 ausgehend von der Activen Zelle
ActiveCell.Offset(0, 0).Select
ActiveCell.FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC2,25)"
'Danach folgt der Rest dieser SUB
Range("B:B").Find("", LookAt:=xlWhole).Offset(-1, 0).Select
Range(ActiveCell(), ActiveCell.Offset(0, 15)).Select
End Sub
Funzt
Nun der zweite Teil:
Public
Sub test2()
Dim i&, lz&
With Application.Workbooks("DienstplanMV34.xls").Worksheets("Einteiler").Activate
Range("D2").Select
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lz
If .Cells(i, 4) <> "" Then 'D4
.Cells(i, 17) = .Application.Worksbook("DienstplanMaster.xls") _
.Worksheets("DienstplanMaster").Activate.ActiveCells.AutoFill 'B2:Q2
End If
Next
End With
End Sub
Danke für die Hilfe
Gruß achim h.