Before double click

Forumthread: Before double click

Before double click

12.02.2004 22:18:53

Ernst Dunkel

Guten Abend Forum
Ich möchte mit einem Doppelklick aus einer Zelle (A10 bis A15), die Inhalte der aktiven Zeile löschen.
Wie müsste der untenstehende, fehlerhafte Code richtig sein?

Mit freundlichen Grüßen
Ernst Dunkel


Private Sub worksheet_beforedoubleclick(ByVal target As Excel.Range, cancel As Boolean)
If target.Address = ("A10:A15") Then
Range("A:D").ClearContents  'hier stimmt was nicht
End If
End Sub

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Before double click

12.02.2004 22:22:17

Bert
AW: Before double click

12.02.2004 22:27:52

Ernst Dunkel
AW: Before double click

12.02.2004 22:48:43

Bert
AW: Before double click

12.02.2004 23:01:34

Mike
Zeilen der Aktiven Zell A

12.02.2004 23:23:32

Ernst Dunkel
AW: Zeilen der Aktiven Zell A

13.02.2004 00:05:41

K.Rola
AW: Zeilen der Aktiven Zell A

13.02.2004 00:10:44

Ernst Dunkel

AW: Before double click

12.02.2004 22:22:17

Bert

Bei einem Klick- oder Doppelclickereignis, kann target immmer nur eine Zelle sein,
du kannst nicht auf zwei Zellen gleichzeitig klicken.
Bert

AW: Before double click

12.02.2004 22:27:52

Ernst Dunkel

Hallo Bert
Kannst du mir den Code abändern?

AW: Before double click

12.02.2004 22:48:43

Bert

Ja, aber welches Zelle soll denn Target sein? Und welche Zeile soll dann
gelöscht werden? Die gleiche Zeile wie Target?
Bert

AW: Before double click

12.02.2004 23:01:34

Mike

das sollte eigentlich helfen


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column >= 5 Then
Exit Sub
End If
Target.Clear
End Sub

hier wird die zelle gelöscht, in der ein doppelklick gemacht wird.
gruß
mike

Zeilen der Aktiven Zell A

12.02.2004 23:23:32

Ernst Dunkel

Hallo Bert und Mike
Ich möchte mit einem Doppelklick aus einer Zelle (A10 bis A15), die Inhalte der aktiven Zeile löschen, d.h., wenn der Curser auf A10 steht, sollen alle Zellen der Zeile 10 gelöscht werden.

AW: Zeilen der Aktiven Zell A

13.02.2004 00:05:41

K.Rola

Hallo,


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

Gruß K.Rola

AW: Zeilen der Aktiven Zell A

13.02.2004 00:10:44

Ernst Dunkel

Hallo K. Rola
Funktioniert super! rechtherzlichen Dank für Deine Hilfe.
Gute Nacht
Ernst Dunkel

Beliebteste Forumthreads (12 Monate)

Forumthread: Before double click

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread