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
-
Dynamische DropDown-Liste mit Text Vorauswahl
In diesem Beitrage zeigen wir, wie sich die Inhalte von DropDown-Felder dynamisch erzeugen lassen. Die Beispieldatei ist wie folgt aufgebaut: Im...
-
Verknüpfungen automatisch aktualisieren
Um die Bezüge zwischen 2 Tabellen zu aktualisieren, kann folgender Code verwendet werden: {code}Public Sub...
-
Eingaben in Tabellenblatt protokollieren
Die folgende Lösung zeigt, wie Sie Eingaben in ein Tabellenblatt protokollieren können. Zum Protokollieren, müssen Sie die Werte nur auf ein eigenes...
-
Daten direkt bei Eingabe ersetzen
In diesem Beispiel zeigen wir, eine Alternative Methode zur AutoKorrektur-Option um Daten direkt bei der Eingabe ersetzen zu lassen. Sehr wir uns...
-
Leere Zeilen aus einer Tabelle entfernen
Mit Hilfe des VBA-Codes aus diesem Beispiel können Leerzeilen aus einem Tabellenblatt entfernt werden. Werden Daten importiert oder über die...