Zähle ab..plus 2 mehr
02.11.2005 11:13:55
achim
Wer kann diese Makro ergänzen?
Zähle erst ab B2 und dann wieviel und packe 2 darauf als gezählt.
(Im Grunde zB 20 Einträge + 2 dazu = 22)
Sub Test()
Sheets("Gruppen").Activate
Set ziel = Workbooks("DienstplanMaster.xls").Sheets("Gruppen_ZwBl1")
Lrow = ziel.Cells(Rows.Count, 2).End(xlUp).Row
anzd = WorksheetFunction.CountA(ziel.Range("B1:B" & Lrow))
Set meister = Workbooks("DienstplanMaster.xls").Sheets("Gruppen")
Range("B3:I3").Select
ce = ActiveCell.Row
Selection.AutoFill Destination:=Range("B" & ce & ":I" & anzd), Type:=xlFillDefault
End Sub
Danke
achim h.