Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

An K. Rola

An K. Rola
13.02.2004 21:26:58
Ernst Dunkel
Guten Abend K. Rola
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: An K. Rola
13.02.2004 21:41:46
K.Rola
Hallo,
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a10:a15]) Is Nothing Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).ClearContents
End If
Cancel = True
End Sub

Gruß K.Rola
Toll
13.02.2004 21:51:58
Ernst Dunkel
Hallo K. Rolla
Funktioniert, vielen Dank.
Gruss aus der Schweiz
Ernst Dunkel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige