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

Fixieren von Formel

Fixieren von Formel
11.05.2005 20:46:53
Markus
Hallo zusammen,
weiss jemand wie ich moeglichst einfach die Formeln in hunderten von Zellen fixieren kann. Ist das mit einem Macro oder einer Excel-Funktion machbar?

Die Berechnungen sollen danach z.B. so aussehen $B$10
(die Formeln sind alle schon vorgegeben und greifen auf die unterschiedlichsten Zellen zu)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fixieren von Formel
11.05.2005 20:50:23
Hajo_Zi
Hallo Markus,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Fixieren von Formel
11.05.2005 21:12:34
Ralf (Schwabenland)
Hallo Markus,
die Zellen, deren Formel du absolut (oder wieder relativ) setzten willst markieren und dann folgendes Makro laufen lassen:

Sub rel_abso()
Dim c As Range
Select Case InStr(ActiveCell.Formula, "$")
Case 0
For Each c In Selection
c.Formula = Application.ConvertFormula( _
Formula:=c.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
Next c
Case Else
For Each c In Selection
c.Formula = Application.ConvertFormula( _
Formula:=c.Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, _
ToAbsolute:=xlRelative)
Next c
End Select
End Sub

Hoffe es hilft.
Gruß
Ralf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige