Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel einer Zelle in Text umwandeln

Formel einer Zelle in Text umwandeln
20.10.2005 10:40:29
Florian
Hallo!
Ich ich habe eine Problem!
Ich habe eine Zelle "A1", die eine Formel enthält! Die Formel erzeugt ein Wort, z. B: "Arbeitsvertrag"!
Kann ich über ein Makro veranlassen, dass Excel das Wort, das die Zelle "A1" erzeugt hat, in eine andere Zelle z.B. "B1" als Text schreibt?
Ich möchte, wenn ich die Zelle "B1" aktiviere keine Formel erhalten, sondern nur den Text "Arbeitsvertrag"!
Oder gibt es andere Alternativen als ein Makro!
Danke für eure Vorschläge!
Florian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel einer Zelle in Text umwandeln
20.10.2005 10:50:36
Müller
Hi!
Versuchs doch, indem du mit der rechten Maustaste auf die Zelle A1 klickst, dann kopieren wählen.
Anschließend in die Zelle gehen, in der der Wert soll, z.B B1.
Dort machst du wieder rechte Maustaste - Inhalte einfügen - "Nur wert" bzw. "Wert" je nach Excel Version
Gruß,
Tobias
AW: Formel einer Zelle in Text umwandeln
20.10.2005 10:50:57
heikoS
Hallo Florian,
geht nicht auch
a1 kopieren
in b1: Bearbeiten - Inhalte einfügen - Werte
?
Gruß Heiko
AW: Formel einer Zelle in Text umwandeln
20.10.2005 10:56:32
Rausch
Hi,
schreib in zelle a9 das wort arbeitsvertrag. In zelle a1 die formel =A9
Dann füge das makro ein und weise es einer schaltfläche zu, dann sollte es klappen.

Sub Makro1()
' Makro1 Makro
' Makro am 20.10.2005 von Bugs aufgezeichnet
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

mfg Kurt
Anzeige
noch ne variante
20.10.2005 11:05:12
th.heinrich
hi Florian,
passt dies?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("a1").Value = "Arbeitsvertrag" Then
Range("b1").Value = Range("a1").Value
Else: Range("b1").Value = ""
End If
End Sub

gruss thomas

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige