kürzen

Forumthread: kürzen

kürzen

28.07.2006 19:36:44

DieterG

Hallo Excelfreunde,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: kürzen

28.07.2006 19:51:56

IngGi

AW: kürzen

28.07.2006 19:51:56

IngGi

Hallo Dieter,
das sollte so gehen:

Dim a As Range
For Each a In Selection
If a.Offset(0, -1).Value = "" Then
Range(a, a.Offset(0, 9)).ClearContents
End If
Next a

Gruß Ingolf

Forumthread: kürzen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread