automatisch ein X in die Zelle setzen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] automatisch ein X in die Zelle setzen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 11:45

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?

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

Verfasst am: 19.05.2008, 11:52

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ß

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 11:57

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.

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

Verfasst am: 19.05.2008, 12:15

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ß

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 12:21

Klappt wunderbar, besten Dank

Gruß Totte

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 13:01

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 19.05.2008, 13:29

Totte1987 hat Folgendes geschrieben:

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

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

Verfasst am: 19.05.2008, 13:29

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ß

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 13:34

Super, danke :)

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 19.05.2008, 14:01

Totte1987 hat Folgendes geschrieben:

Super, danke :)

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

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

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

Verfasst am: 19.05.2008, 14:08

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".

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 14:13

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 19.05.2008, 14:36

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Totte1987
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 30

Verfasst am: 19.05.2008, 14:41

Klappt.

Und so wie ich das sehe sind beide Bugs behoben.

Danke

sushi1982
Newbie
Newbie

Anmeldedatum: 26.05.2008
Beiträge: 2

Verfasst am: 26.05.2008, 15:21

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

_________________
Komm wir fahren nach Nussloch...da gibt´s Handtaschen...

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel 2003 eine Zelle keine Berechnung	Schiffhexler	Microsoft Excel Hilfe	5	06.01.2009, 14:02
	Ergebnis einer Spalte automatisch auf...	smart-jr	Microsoft Excel Hilfe	6	05.01.2009, 07:14
	Hilfe!! Excel öffnet automatisch sämt...	Moehrchen61	Microsoft Excel Hilfe	4	03.01.2009, 00:07
	Innerhalb einer Zelle suchen und erse...	Exl121150	Microsoft Excel Hilfe	7	08.12.2008, 16:48
	Automatisch verringern	west263	Microsoft Excel Hilfe	3	06.12.2008, 13:36

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de