Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
:-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige