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

$ automatisch einfügen

$ automatisch einfügen
17.05.2005 08:49:04
Tom
Hi,
die ellen im Bereich D9:D36 beziehen sich auf den Bereich D2:F5.
In den Zellen stehen z.B. diese Formeln: =F3
Wie kann ich erreichen, daß im Bereich D9:D36 alle Formeln automatisch mit dem "festen Bezug" versehen werden? Aus =F3 soll dann =$F$3 werden usw. ?
Wer hat ne Idee?
Gruß
Tom

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: $ automatisch einfügen
17.05.2005 08:53:00
Hajo_Zi
Hallo Tom
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 Windows 2000 SP4 und Excel Version 2000 SP3..



"Wer Rechtschreibfehler findet, darf sie behalten!"

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: $ automatisch einfügen
17.05.2005 09:05:01
Tom
Hi Hajo,
das ist ja eine geniale Lösung - genau das habe ich gesucht!
Danke Tom
AW: $ automatisch einfügen
17.05.2005 08:56:27
WernerB.
Hallo Tom,
daraus kannst Du (bei "VBA gut") sicher eine Lösung ableiten:

Sub AbsolutRelativ()
Dim eingabeFormel As String
eingabeFormel = "=SUM(R10:R15)"
MsgBox Application.ConvertFormula( _
Formula:=eingabeFormel, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
'ToAbsulute-Parameter:
'  xlAbsolute         ($R$10:$R$15)
'  xlAbsRowRelColumn  (R$10:R$15)
'  xlRelRowAbsColumn  ($R10:$R15)
'  xlRelative         (R10:R15)
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: $ automatisch einfügen
17.05.2005 08:58:59
UweD
Hallo
hatte dir doch letzte Woche schon eine Lösung angeboten..
Klappt die nicht?
- - - - - -
Hallo
wäre mit folgendem Makro möglich.

Sub absolut()
Dim Z, Myrange As Range
Set Myrange = Range("D6:F1000")
For Each Z In Myrange
If Z <> "" And Z.HasFormula = True Then
Z.Formula = Application.ConvertFormula( _
Formula:=Z.Formula, _
fromReferenceStyle:=xlA1, _
ToAbsolute:=xlAbsolute)
End If
Next
End Sub

Vorher Sicherungskopie anlegen..
Gruß Uwe
AW: $ automatisch einfügen
17.05.2005 09:05:51
Tom
Hi Uwe,
muß wohl untergegangen sein - sorry.
danke auch Dir
Tom
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige