Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Absolute in Relative Verweise ändern (VBA)

Forumthread: Absolute in Relative Verweise ändern (VBA)

Absolute in Relative Verweise ändern (VBA)
20.01.2004 08:38:38
Thomas H.
Hallo NG!
Beschäftige mich erst seit kurzem mit VBA und wollte daher wissen, wie ich folgenden Code umändern muss damit ich absolute auf relative Zellenbezüge umstellen kann?
Danke für eure Hilfe, Thomas H.

Sub absolute_Zellenbezüge()
Dim c As Range
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
End If
Next
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Absolute in Relative Verweise ändern (VBA)
20.01.2004 08:40:25
AndreasS
Option Explicit
Dim conRange As Range
Dim i%

Sub absolut()
On Error Resume Next
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next
End Sub


Sub realativ()
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Next
End Sub

Anzeige
AW: Absolute in Relative Verweise ändern (VBA)
20.01.2004 08:43:05
Mac4
Hallo Thomas,
nur eine kleine Änderung:

Sub absolute_Zellenbezüge()
Dim c As Range
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlRelative)
End If
Next
End Sub

Marc
Danke für eure Hilfe, T.
20.01.2004 08:56:18
Thomas H.
Danke für eure Hilfe, Thomas
:-)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige