Zellinhalt bei DoubleClick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public DieZelle As String Public DerWert As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) DieZelle = Target.Address DerWert = Target.Formula Target = "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If DieZelle = "" Then Exit Sub If Range(DieZelle) <> "" Then Exit Sub Range(DieZelle).Formula = DerWert DieZelle = "" End Sub

Hallo Kira,
also wenn jemand -wie auch immer- den Inhalt der Zelle löscht, dann soll der vorige Inhalt wieder in der Zelle angezeigt werden?


Option Explicit
Public DieZelle As String
Public DerWert As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If DieZelle = "" Then Exit Sub
If Range(DieZelle) <> "" Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Range(DieZelle).Formula = DerWert
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "" Then Exit Sub
DieZelle = Target.Address
DerWert = Target.Formula
End Sub

Die ENTF- Taste ist nun praktisch außer Gefecht gesetzt. Wenn es zu sehr stört, dann lässt sich da sicher eine Abhilfe finden.
Gruss- Micha
PS: Rückmeldung wäre nett.

Hallo Micha,
das ist so nicht ganz richtig. Die ENTF-Taste sollte nicht gesperrt sein, da mit ihr gearbeitet werden soll.
Sinn der Sache soll folgender sein: Man hat z.b. eine Tabelle in der von A15-A30 Customer 1-Customer 15 steht. In diese Zellen sollen nun je nach Bedarf Einträge getätigt werden. Klicke ich die Zelle mit einfachem oder doppeltem Klick an ohne einen Eintrag zu tätigen, bleibt z.b. in A15 Customer 1 stehen. Das klappt mit deinem Code so weit super. Erfolgt nun eine Eingabe, bleibt dieser auch bestehen. Klappt ebenfalls. Wird die Eingabe (z.b. "ABC") aber wieder gelöscht (mit Lösch- oder ENTF-Taste), dann soll in A15 wieder Customer 1 stehen. Dabei sollte dann egal sein, wie oft eine Eingabe gemacht wurde und wie ift diese wieder gelöscht wurde. Also wenn die erste Eingabe "ABC" war und die nächste "XYZ", dann soll beim Löschen am Ende nicht "ABC" stehen (was momentan der Fall wäre laut Code), sondern wieder Customer 1. Wenn die Zelle leer ist, soll eben wieder Customer 1 stehen.
Ich hoffe, du verstehst, wie ich das meine und hast eine Idee, wie man den letzten Teil auch noch umsetzten könnte.
Gruß
Kira

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread