Office: Text aus und einblenden

Tag zusammen, ich fange jetzt an mich für excel zu interessieren und finde für mein problem keine lösung.

Ich habe eine Tabelle erstellt mit Fragen und Antworten. Ich möchte das die Antworten ausgeblendet sind und wenn die Zelle markiert ist das die Antworten erscheinen. Bitte um hilfe.

Wenn jemanden mir helfen kann ich bin wirklich Anfänger also bitte wie für kinder erklären :roll:

Habe eine kleine probe auch hohgeladen da könnt ihr sehen (hoffe ich) wie ich es meine :!:

 

Hi erstmal,

also ich hab mir dein Excel Tabellenblatt mal runtergeladen und mir dein Problem angeschaut, allerdings bin ich nicht auf die einfache Lösung gekommen wenn dann nur mit dem VB Modul mit Textbox und Optionfeld allerdings ist diese möglichkeit sehr Aufwendig..... :-?

Vielleicht kann dir noch jemand anders einen Besseren Tipp dazu geben

In dem Sinne vile Glück noch..... :-)

 

ich bin lernfähig (glaube ich), musste ich mit dem VB Modul jede zelle einzeln bearbeiten, es sind ein paar hundert fragen und antworten.

 

Ja eigentlich musste damit dann jede Frage bearbeiten das ist wirklich nicht gerade die schnellste Lösung ich würde an deiner Stelle nochmals auf einen anderen Vorschlag warten bevor du diese möglichkeit in Anspruch niehmst .......

 

Hallo,
ich habe leider auch eingentlich keine entgültige Lösung, aber versuch es mal mit einer Wenn-Funktion. Ich habe es hingekriegt, dass deine Antwort angezeigt wird, wenn in einer anderen Zelle ein x geschrieben wird.
Die Lösung für die erste Antwort würde dann so lauten:
=WENN(C3=C2;"Wenn er mit dem Fuß gestoßen wurde und sich ins Spielfeld bewegt hat.";" ")
In C2 muss dann ein x geschrieben werden, und wenn dann in C3 auch in x geschrieben wird, dann wird der Text angezeigt.
Leider ist das auch nicht einfach übertragar.

Aber vielleicht kommst du damit selber auf eine Lösung.

 

Hallo Gez,

ich habe dein Problem über ein Makro gelöst. Die Datei findest Du im Anhang.

Du kannst das Makro aber auch in Deine Datei kopieren, indem Du mit der rechten Maus auf den Reiter "Tabelle1" unten klickst und "Code anzeigen" anwählst.
Kopiere den Text dann in das neu geöffnete Fenster ("VBA-Editor") und speichere die Datei ab. Danach kannst Du den "VBA-Editor" schliessen.

'Startet bei Anklicken einer neuen Zelle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Wenn ausgewählte Zelle in Spalte 4 dann
If Target.Column = 4 Then

'Schriftfarbe aller Zellen in Spalte = Hintergrundfarbe der Zelle D3
Target.EntireColumn.Font.Color = Range("D3").Interior.Color
'Schriftfarbe der Zielzelle wird schwarz
Target.Font.Color = RGB(0, 0, 0)

End If
End Sub


Schönen Gruß
*Pablo*

 

Pablo,
ich bedanke mich recht herzlich bei dir. Das ist meine lösung :roll: