Code kuerzen
08.08.2007 01:32:00
Anja
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