Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel einfügen in Zelle

Formel einfügen in Zelle
04.11.2004 18:01:06
Fritz
Hallo Forumsleute,
brauche Hilfe aus der Patsche
mit dieser Funktion kopiert mir das Makro die gerade dort enthaltene Formel von A1(z.B.=Tabelle1!B10) in eine andere Tabelle
Das Problem ist, dass wenn ich die Formel in eine beliebige Zeile einer anderen Tabelle kopieren lasse nicht mehr diesselbe Verknüpfung da ist.
z.B. wird aus =Tabelle1!B10 das: =Tabelle1!B20 Ist auch logisch.
Aber wie kann ich das umgehen ohne die $ zu verwenden.
Es soll nur die Verknüpfung =Tabelle1!B10 in der Zielzelle stehen.
Range("A1").Select
Selection.Copy
Sheets(tabname).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
MsgBox "Text wurde angelegt!"
Danke für jeden Hinweis
Fritz

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel einfügen in Zelle
04.11.2004 19:02:16
Christoph
Hi Fritz,
ungetestet, müsste aber laufen,
Gruß
Cristoph

Sub Formel()
Dim strFormel As String
Dim tabname As String
'tabname = "Tabelle3" o.ä. muss irgendwo benannt werden
strFormel = CStr(Range("A1").FormulaLocal)
Sheets(tabname).Range("A10").FormulaLocal = strFormel
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige