Code ohne select ändern

Forumthread: Code ohne select ändern

15.02.2026 18:10:02

Horst

Hallo,
kann mir bitte jemand u.st. Code ohne Select abändern?

Application.Goto Reference:="Anlagen_Ende"
ActiveCell.Offset(0, 21).Select
Range(ActiveCell.Offset(-1, 0), ActiveCell).FillDown
Application.Goto Reference:="Anlagen_Ende"

Besten Dank
Gruß Horst

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code ohne select ändern

15.02.2026 18:46:40

Eifeljoi 5
AW: Code ohne select ändern

15.02.2026 18:56:36

Daniel
AW: Code ohne select ändern

15.02.2026 19:09:16

Horst

AW: Code ohne select ändern

15.02.2026 18:46:40

Eifeljoi 5

Hallo

Ohne Test könnte es so aussehen vielleicht:

Dim c As Range

Set c = Range("Anlagen_Ende").Cells(1)



Range(c.Offset(-1, 21), c.Offset(0, 21)).FillDown

AW: Code ohne select ändern

15.02.2026 18:56:36

Daniel

Probier mal:

Range("Anlagen_Ende").offset(-1, 21).resize(2, 1).filldown

Gruß Daniel

AW: Code ohne select ändern

15.02.2026 19:09:16

Horst

Der Code von beiden funktioniert. Daniels ist kürzer - nehme ich. Danke vielmals!

Forumthread: Code ohne select ändern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread