An K. Rola
13.02.2004 21:26:58
Ernst Dunkel
Du hast mir gestern Abend den untenstehenden Code gezeigt, welcher mit einem Doppelklick aus einer Zelle (A10 bis A15), die Inhalte der aktiven Zeile löscht.
Wie müsste der Code ergänzt werden, wenn nur bestimmte Zellen der aktiven Zeile gelöscht werden z.B. Doppelklick auf A 10, Zellen A10 bis D10 löschen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a10:a15]) Is Nothing Then Rows(Target.Row).ClearContents
Cancel = True
End Sub
Mit freundlichen Grüßen
Ernst Dunkel
Anzeige