Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel aus Zelle ziehen!

Formel aus Zelle ziehen!
24.02.2006 15:19:33
Andrew
Hallo zusammen!
Gibt es die Möglichkeit eine Formel so aus einer Zelle zu ziehen, dass sie eine Zelle weiter zu lesen ist?
Das heisst:
In Spalte A1 steht =Summe(A1;A2) und in Zelle B1 steht nun SUMME
In Spalte A2 steht =SVERWEIS(A1;B3:D10;2;Falsch) und in Zelle B2 steht SVERWEIS
Da ich 200 Zellen untereinander habe, wäre eine solche Erleichterung super.
Eine Beispieldatei habe ich angehängt.
https://www.herber.de/bbs/user/31386.xls
Für eure Hilfe wäre ich sehr dankbar!
Viele Grüße
Andrew

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel aus Zelle ziehen!
24.02.2006 15:30:38
HermannZ
hallo Andrew;
einen Namen vergeben; z.B. Einfügen - Namen - Definieren Namen eintragen z.B. Formel
unter bezieht sich auf folgende Formel eintragen;
=ZELLE.ZUORDNEN(6;INDIREKT("ZS(-1)";FALSCH)) und OK.
jetzt kannst du im Tabellenblatt wenn die Formel in A1 steht in B1^eingeben =Formel und du erhälst die Formel als Text.
gruß hermann
Super, klappt prima!!! Vielen Dank
24.02.2006 15:39:10
Andrew
Hallo Hermann,
das funktioniert einwandfrei! Vielen Dank für deine Hilfe!
Gruß
Andreas
AW: Danke für die Rückantwort.......oT.
24.02.2006 15:41:36
HermannZ
.
AW: Formel aus Zelle ziehen!
24.02.2006 15:32:11
ChrisL
Hallo Andrew
Formel (resp. Ergebnis) in Spalte A, ausgeschriebene Formel (durch Makro) in Spalte B:

Sub t()
Dim iZeile As Long
For iZeile = 1 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1).HasFormula Then
Cells(iZeile, 2) = "'" & Cells(iZeile, 1).FormulaLocal
End If
Next iZeile
End Sub

Ggf. könnte man "SUMME" und "ZELLE" etc. noch aus den String pflücken, aber vielleicht genügt es dir bereits so.
Gruss
Chris
Anzeige
Großes Dankeschön! Funktioniert einwandfrei!
24.02.2006 16:05:32
Andrew
Hallo Chris,
das funktioniert super! Ein großes Dankeschön an Dich!
Gruß
Andrew
Großes Dankeschön! Funktioniert einwandfrei!
24.02.2006 16:05:36
Andrew
Hallo Chris,
das funktioniert super! Ein großes Dankeschön an Dich!
Gruß
Andrew

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige