Zähle ab..plus 2 mehr

Forumthread: Zähle ab..plus 2 mehr

02.11.2005 11:13:55

achim

Hallo Excel Freunde
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.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zähle ab..plus 2 mehr

02.11.2005 11:41:32

Harald
o.T. Danke

02.11.2005 12:01:59

achim
AW: Danke für die Rückmeldung owT

02.11.2005 19:27:51

Harald
AW: Zähle ab..plus 2 mehr

02.11.2005 11:48:51

UweD
O. t. danke

02.11.2005 12:53:16

achim

AW: Zähle ab..plus 2 mehr

02.11.2005 11:41:32

Harald

Hi Achim
vielleicht so ?


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("B2:B" & Lrow)) + 20
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

Gruss Harald

o.T. Danke

02.11.2005 12:01:59

achim

Manchmal ist doch die Lösung einfach. naja..
Danke gruß achim h.

AW: Danke für die Rückmeldung owT

02.11.2005 19:27:51

Harald

Gruß
Harald

AW: Zähle ab..plus 2 mehr

02.11.2005 11:48:51

UweD

Hallo
so z.b.
anzd = WorksheetFunction.CountA(ziel.Range("B2:B" & Lrow)) + 2

Letzte Zeile kannst du so abändern.
- Auf select sollte verzichtet werden
- Ce ist immer 3
Range("B3:I3").AutoFill Destination:=Range("B3" & ":I" & anzd), Type:=xlFillDefault
also gesamtes Makro dann so:


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("B2:B" & Lrow)) + 2
Set meister = Workbooks("DienstplanMaster.xls").Sheets("Gruppen")
Range("B3:I3").AutoFill Destination:=Range("B3" & ":I" & anzd), Type:=xlFillDefault
End Sub

Gruß UweD
(Rückmeldung wäre schön)

O. t. danke

02.11.2005 12:53:16

achim

hallo uwe
auch dir danke
achim h.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zähle ab..plus 2 mehr

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread