Code kuerzen

Forumthread: Code kuerzen

Code kuerzen

08.08.2007 03:32:00

Anja

Hey Leute,
kann mir vielleicht einer von Euch nen Tip geben, wie ich diesen Teil des Codes kuerzer schreiben kann?


Sub test
Sheets(1).Cells(x, y + 1).Value = ""
Sheets(1).Cells(x, y + 2).Value = ""
Sheets(1).Cells(x, y + 3).Value = ""
Sheets(1).Cells(x, y + 4).Value = ""
End Sub

usw. ---> geht bis ca. 60
Danke schon im Voraus Gruss Anja

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code kuerzen

08.08.2007 04:54:00

Luc:-?

AW: Code kuerzen

08.08.2007 04:54:00

Luc:-?

Hallo Anja,
das geht bspw so...


With Sheets(1): .Range(.Cells(x, y + 1), .Cells(x, y + 60)).Clear: End With

...falls du nicht auch x und y flfd ändern willst. Dann würden sich For...Next- bzw For Each...In...Next -Schleifen anbieten.
Gruß Luc :-?

Forumthread: Code kuerzen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread