Exel 2007

[wolle]

Hallo zusammen und einen guten Rutsch

so mein Problem:

ich möchte in einem Exel Feld ein  Asci Symbol oder Buchstaben hinterlegen.
Bei Anklicken mit der Maus wird das Symbol sichtbar und bei nochmaligem klicken auf das Feld 
wird das Symbol unsichtbar.
 
Vielen Dank im Voraus

[WillWissen]

Hi,

das wird wohl nur mit einem Makro gehen.
Schau dir doch mal diesen Beitrag an; hier geht es zwar um Kontrollkästchen, eventuell kann das Makro aber auf deine Bedürfnisse umgebaut werden.

[schauan]

Hallöchen,

was meinst Du mit Feld? Kennst Du Dich mit VBA etwas aus?

Wenn Du z.B. einen CommandButton einfügst, kannst Du mit folgendem Code die Beschriftung ändern:

Code:

Private Sub CommandButton1_Click()
'Mit dem Commandbutton
With CommandButton1
  'Wenn keine Beschriftung drauf ist, 7 anzeigen, ansonsten Beschriftung entfernen
  If .Caption = "" Then .Caption = Chr(55) Else .Caption = ""
'Ende Mit dem Commandbutton
End With
End Sub

Du könntest aber auch ein Kontrollkästchen einfügen, das z.B. mit A1 verknüpfen und in A2 oder irgendeiner anderen Zelle per Formel die Ausgabe steuern:
=WENN(A1=WAHR;7;"") - siehe dazu auch Günters Hinweis

[wolle]

Hi,

das wird wohl nur mit einem Makro gehen.
Schau dir doch mal diesen Beitrag an; hier geht es zwar um Kontrollkästchen, eventuell kann das Makro aber auf deine Bedürfnisse umgebaut werden.

Hallo
Danke für deine Antwort es funktioniert in diesem heruntergeladenen Beispiel Dokument(Kontrollkästchen alternativ) 
ich kann es aber nicht in mein Dokument übertragen.

noch schöne Tage
Wolle

[RPP63]

Hallo!

ich kann es aber nicht in mein Dokument übertragen.

Dann solltest Du Deine Mappe mal hochladen
Beachte aber, dass daraus hervorgeht, wo Du was haben möchtest.

Zum Hochladen von Arbeitsmappen siehe:
http://www.clever-excel-forum.de/Thread-...ng-stellen

Gruß Ralf

[wolle]

Hallöchen,

was meinst Du mit Feld? Kennst Du Dich mit VBA etwas aus?

Wenn Du z.B. einen CommandButton einfügst, kannst Du mit folgendem Code die Beschriftung ändern:

Code:

Private Sub CommandButton1_Click()
'Mit dem Commandbutton
With CommandButton1
 'Wenn keine Beschriftung drauf ist, 7 anzeigen, ansonsten Beschriftung entfernen
 If .Caption = "" Then .Caption = Chr(55) Else .Caption = ""
'Ende Mit dem Commandbutton
End With
End Sub

Du könntest aber auch ein Kontrollkästchen einfügen, das z.B. mit A1 verknüpfen und in A2 oder irgendeiner anderen Zelle per Formel die Ausgabe steuern:
=WENN(A1=WAHR;7;"")  - siehe dazu auch Günters Hinweis

Hallo und Danke für deine Antwort

mit Feld meine ich die Zelle und mit VBA kenne ich mich nicht aus. (weiß auch nicht was das ist)
Deine Auflistung unter Code kann ich so nicht nicht verwerten wenn es da etwas gibt brauche ich eine Formel die ich
in die Zelle eingeben kann.

zu deiner 2. Ausführung

wie füge ich ein Kontrollkästchen ein und verknüpfe es mit ....
Ich habe auch nach Günters Hinweis gesucht aber Ihn nicht gefunden.

grüße
Wolle

[WillWissen]

Hi Wolle,

und mit VBA kenne ich mich nicht aus. (weiß auch nicht was das ist)

da kannst du die gute alte Tante Gugl bemühen - die hat da gefühlte 2 Millionen Antworten.  ;)

wie füge ich ein Kontrollkästchen ein und verknüpfe es mit ....

Gehe zu Entwicklertools==> im Feld Steuerelemente klicke "Einfügen" an==> Auswahl Kontrollkästchen aus Formularsteuerelemente.

Was willst du verknüpfen?

[wolle]

Hallo
Danke für deine Antwort es funktioniert in diesem heruntergeladenen Beispiel Dokument(Kontrollkästchen alternativ) 
ich kann es aber nicht in mein Dokument übertragen.

noch schöne Tage
Wolle

Hallo 
das dokument ist im Anhang. In der Spalte -ja- soll ein Häckchen und in der Spalte -nein- solle ein x bei
Anklicken in der jeweiligen Zeile erscheinen und bei nochmalgem Anklicken auch wieder unsichtbar werden.

[RPP63]

Hi!
Ich habe es Dir mal eingebaut.
Es reagiert nur auf Rechts- oder Doppelklick, eine einfache Markierung halte ich für zu fehleranfällig.
(ein Rechts- oder Doppelklick erfolgt ja bewusst).
Es wird auch geprüft, was sich in der Nachbarzelle befindet, so dass es nicht möglich ist, beides "anzuhaken".

Code befindet sich im Modul der Tabelle1

Microsoft Excel Objekt Tabelle1

Option Explicit 



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

If Not Intersect(Target, Me.Range("N12:O47")) Is Nothing Then 

  Call MachEs(Target) 

  Cancel = True 

End If 

End Sub 



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

If Not Intersect(Target, Me.Range("N12:O47")) Is Nothing Then 

  Call MachEs(Target) 

  Cancel = True 

End If 

End Sub 



Private Sub MachEs(rng As Range) 

Application.EnableEvents = False 

If rng.Column = 14 Then 

  If rng = Chr(252) Then rng = "" Else rng = Chr(252) 

  If rng.Offset(0, 1) = Chr(251) Then rng.Offset(0, 1) = "" 

Else 

  If rng = Chr(251) Then rng = "" Else rng = Chr(251) 

  If rng.Offset(0, -1) = Chr(252) Then rng.Offset(0, -1) = "" 

End If 

Application.EnableEvents = True 

End Sub 

Datei ist im Anhang, viel Spaß damit.  :19:

Gruß Ralf

[wolle]

Hallo Ralf

vielen Dank für Deine Mühen Respekt das ist wirklich gut.
Ich bin gerade dabei das auf eine andere Arbeitsmappe zu übertragen ist
noch nicht ganz gelungen. Ich probiere noch ein wenig herum, muss aber 
dann in den Urlaub und komme nächste Jahr in KW 1 wieder.
Es wäre schön eine direkten Kontakt mit Dir aufzubauen denn ich habe noch
einige Problemchen zu bewältigen. Für den ersten Kontakt ...
ich wünsche Dir und den Deinen ein gutes  2016

Wolfgang