Danke für Rückmeldung - und noch ...
03.05.2006 17:14:49
Erich
Hallo Erdogan,
... ein paar weitere (und teilweise kürzere, bessere) Möglichkeiten:
Sub LeertAktiveZeile()
Rows(ActiveCell.Row).ClearContents
'oder
ActiveCell.EntireRow.ClearContents
End Sub
Sub LeertSpaltenCDderAktivenZeile()
Columns("C:D").Rows(ActiveCell.Row).ClearContents
'oder
[C:D].Rows(ActiveCell.Row).ClearContents
'oder
Rows(ActiveCell.Row).Columns("C:D").ClearContents
'oder
ActiveCell.EntireRow.Columns("C:D").ClearContents
'oder
Intersect(Rows(ActiveCell.Row), [C:D]).ClearContents
'oder
Intersect(ActiveCell.EntireRow, [C:D]).ClearContents
End Sub
' Subs funzen auch bei Mehrfachmarkierung (Areas-Schleife ist unnötig)
Sub LeertZeilenAllerMarkiertenBereiche()
Selection.EntireRow.ClearContents
End Sub
Sub LeertSpaltenCDderZeilenAllerMarkiertenBereiche()
Intersect(Selection.EntireRow, Columns("C:D")).ClearContents
'oder
Intersect(Selection.EntireRow, [C:D]).ClearContents
End Sub
Sub LeertSpaltenABDderZeilenAllerMarkiertenBereiche()
Intersect(Selection.EntireRow, Union(Columns("A:B"), Columns("D"))).ClearContents
'oder
Intersect(Selection.EntireRow, [A:B,D:D]).ClearContents
End Sub
Grüße von Erich aus Kamp-Lintfort