Office: automatisch ein X in die Zelle setzen

Hallo,

habe folgendes Problem. Und zwar würde ich gerne in meinem Exel Sheet mit der Maus auf eine bestimmte Zelle klicken können, in diese sich dann automatisch ein "X" setzt.

Kann mir da jemand helfen dies umzusetzten?

 

Hallo!

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Value = "x"
End Sub

Den Code z.B in Tabelle1 gibt jeder Zelle beim Doppelklick darauf ein "X".

Gruß

 

Würde das aber gerne auf 3 bestimmte Zellen beschränken.

Also wenn ich auf A3, A5, A7 klicke setzt er automatisch ein "X", bei allen anderen Zellen passiert nichts.

 

Hi!
Weis zwar nicht was das bringen soll aber.. den Code in z.B.
Tabelle1

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Or Target.Address = "$A$5" Or Target.Address = "$A$7" Then
Selection.Value = "x"
End If
End Sub

Gruß

 

Klappt wunderbar, besten Dank

Gruß Totte

 

Ist es denn auch möglich, das wenn schon ein X in der Zelle vorhanden ist, ich dann darauf klicke sich dieses wieder entfernt?

 

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address = "$A$3" Or Target.Address = "$A$5" Or Target.Address = "$A$7" Then

        If Target.Value = "x" Then

            Target.Value = "x"

          Else

            Target.Value = "x"

        End If

    End If

End Sub

Gruß, Michael

 

Hallo!

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Or Target.Address = "$A$5" Or Target.Address = "$A$7" Then
If Selection.Value = "x" Then
Selection.Value = ""
Else
Selection.Value = "x"
End If
End If
End Sub

Gruß

 

Super, danke :)

 

Wobei ich mich frage, was an 2 Varianten, die jeweils einen kleinen Fehler haben, "super" ist... ;-)

a) In meiner Varianten wird irgendwie immer ein "x" gesetzt, auch wenn es vorher schon eins war. Korrekterweise muß also das "x" in der ersten Zeile nach dem "IF" in ein "" geändert werden.

b) Soweit ich Dich verstanden habe, wolltest du das "x" beim Doppelklick auf die (bestimmten) Zellen haben, nicht pauschal nach einem Wechsel der Zellposition. Insofern müßte gook's Code in das Ereignis "Worksheet_BeforeDoubleClick" und nicht in das "Worksheet_SelectionChange".

(gook's code ändert das "x" nämlich auch, wenn Du nur mit den Cursortasten die Zellmarkierung bewegst...)

Gruß, Michael

 

Hm naja er wollte eigentlich mit der Maus auf eine bestimmte Zelle klicken können und somit ein x erzeugt wird. Hab mir nur am Anfang gedacht das das "Worksheet_SelectionChange" zu langsam ist weil es ja bei jeder änderung ausgeführt wird, deshalb meine erste Lösung mit dem "Worksheet_BeforeDoubleClick".

 

Hmm...gut erkannt.Ist mir bis jetzt noch garnicht aufgefallen wenn ich ehrlich bin, da ich nur die Maus-Variante getestet habe. Wenn ich die Codes jedoch jetzt so änder, wie du sagst klappt das irgendwie auch nicht so richtig oder ich hab dich irgendwie falsch verstanden.

Gibt auch noch ein kleinen Bug der mir aufgefallen ist.Sobald ich eine klick auf eine Zelle mache und somit ein X einfüge, kann ich nicht direkt nochmal auf die Zelle klicken um dieses zu entfernen, sondern muss erst auf eine andere beliebige Zelle klicken und dann wieder auf die Zelle wo ich das X entfernen will.
Kann man da auch noch was machen?

Gruß Totte

 

Hallo!

Teste mal dies:
Leere Zellen bekommen ein "x".
Zellen mit "x" werden geleert.
Zellen mit anderem Inhalt werden "normal" behandelt.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$3" Or Target.Address = "$A$5" Or Target.Address = "$A$7" Then
  Cancel = True
  Select Case Target
    Case Is = "": Target = "x"
    Case Is = "x": Target = ""
    Case Else: Cancel = False
  End Select
End If
End Sub

 

Klappt.

Und so wie ich das sehe sind beide Bugs behoben.

Danke

 

Hi,
ich hoffe ihr könnt mir in dieser Hinsicht auch weiterhelfen, denn ich weiß leider nicht, wie ich die von euch angegebene "Programmierung" in Excel eingeben soll. Habe die 2007´er Version. Also wo muss ich im Menü was anklicken und wo muss ich diese "Programmierung" eingeben??

MfG sushi