kürzen
28.07.2006 17:36:44
DieterG
wie lässt sich folgende Prozedur abkürzen?
Dim a As Range
For Each a In Selection
If a.Offset(0, -1).Value = "" Then
a.ClearContents
a.Offset(0, 1).ClearContents
a.Offset(0, 2).ClearContents
a.Offset(0, 3).ClearContents
a.Offset(0, 4).ClearContents
a.Offset(0, 5).ClearContents
a.Offset(0, 6).ClearContents
a.Offset(0, 7).ClearContents
a.Offset(0, 8).ClearContents
a.Offset(0, 9).ClearContents
End If
Next a
Danke für die Hilfe
Gruß Dieter