Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:02:49

Silke

Hallo Leute
ich habe in dem Bereich C10 bis C30 Formeln drinnen stehen.
Wenn man eine der Zellen anklickt soll aus der Formel in der angeklickten Zelle ein Text mit dem Wert der Formel werden.
Also in Zelle B10 steht Hans und in Zelle C10 steht =B10.
Wenn man C10 anklickt soll aus der Formel Hans werden.
Hoffe mir hilft jemand.
Liebe Grüße
Silke

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:09:14

Hajo_Zi
AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:38:46

Silke
Ändern: Target = Target(1)

28.11.2019 23:35:42

Luc:-?
AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:31:38

Werner
Funktioniert wunderbar .. Danke ... owT

29.11.2019 21:33:58

Silke
Gerne u. Danke für die Rückmeldung. o.w.T.

29.11.2019 23:33:45

Werner

AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:09:14

Hajo_Zi

Hallo Silke,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'* H. Ziplies                                  *
'* 21.06.15                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
' Füllfarbe
' für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("C10:C30")                ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
Target = Target
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:38:46

Silke

Hallo Hajo
Vielen Dank.
Was mache ich wenn es sich um verbundene Zellen handelt
Leider sind bei mir jeweils C, D und E zu einer Zelle verbunden.
Bei einer einzelnen Zelle funktioniert es wunderbar
Bei den drei verbundenen ist der Inhalt beim Anklicken leer
Gruß
Silke

Ändern: Target = Target(1)

28.11.2019 23:35:42

Luc:-?

Ansonsten auch Werners AW beachten, ggf besser BeforeRightClick verwenden.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

AW: Wenn Zelle angeklickt wird soll aus Formel Text werden

28.11.2019 20:31:38

Werner

Hallo Silke,
da würde ich an deiner Stelle lieber den Doppelklick nehmen. Da ist die Gefahr, dass man eine falsche Zelle erwischt nicht so groß, weil man den Doppelklick dann doch eher bewußt ausführt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C10:C30")) Is Nothing Then
Cancel = True
Target.Value = Target.Value
End If
End Sub

Gruß Werner

Funktioniert wunderbar .. Danke ... owT

29.11.2019 21:33:58

Silke

Gerne u. Danke für die Rückmeldung. o.w.T.

29.11.2019 23:33:45

Werner