Absolute in relative Zellbezüge umwandeln und umgekehrt
Die folgenden Makros wandeln vorhandene Zellbezüge in absolute bzw. relative Bezüge um. Zur Umwandlung von relativen Zellbezüge in absolute Bezüge, kann das Makro "absolut" verwendet werden.Alle Zellbezüge eines Tabellenblattes werden damit in absolute Zellbezüge umgewandelt.
Das Makro "relativ" hingegen wandelt absolute in relative Zellbezüge um. Auf diese Weise können Sie die Bezugsart in Ihren Tabellen ganz schnell abändern. Wenn Sie nur einen bestimmten Zellbereich umwandeln möchten, dann übergeben Sie der Variable conRange einfach den entsprechenden Bereich im Format Range("A1:B20").
Option Explicit Dim conRange As Range Dim i% {/codecitation} {codecitation} Sub absolut() 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
Das Makro ist zwingend in ein Modul (nicht in ein Tabellenblatt) einzufügen.
Relevante Artikel
-
Verknüpfungen automatisch aktualisieren
Um die Bezüge zwischen 2 Tabellen zu aktualisieren, kann folgender Code verwendet werden: {code}Public Sub...
-
Kommentare aus Zellinhalten generieren
Das Makro fügt innerhalb der Selektion in jede Zelle einen Kommentar ein. Inhalt des Kommentars ist das aktuelle Datum sowie der entsprechende...
-
Spaltenbuchstabe oder Spaltennummer ermitteln
In manchen Situationen kann es sinnvoll oder notwendig sein, dass aus einer Spaltennummer der Spaltenbuchstabe ermittelt wird oder dass umgekehrt...
-
Einträge nach Zellfarbe sortieren
Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.Maßgebend für das sortieren ist die Farbzahl (Index). Je...
-
Grafiken (Bilder) über eine Wenn-Abfrage einfügen
Das folgende Makro fügt abhängig vom Inhalt der Zelle A1 eine Grafik ab der Zelle D1 ein. Steht in A1 die Ziffer 1, so wird die Grafik excel1.gif...