relative Bezüge in absolute Bezüg ändern per Makro
04.08.2015 18:33:16
Rose
Ich hoffe Ihr könnt mir bitte helfen!
Folgendes Problem: Ich habe eine Tabelle erstellt, die automatisch den Personen die an einer bestimmten Sportgruppe teilnehmen die vorgesehene Uhrzeit wiedergibt. Folgenden Formeln habe ich dafür verwendet:
=WENN(ISTNV(SVERWEIS('Sportgruppen Gefangene'!$F12;Sportplan!$J$29:$K$40;2;0));""; SVERWEIS('Sportgruppen Gefangene'!$F12;Sportplan!$J$29:$K$40;2;0))
=WENN(ISTNV(SVERWEIS('Sportgruppen Gefangene'!$F13;Sportplan!$J$29:$K$40;2;0));""; SVERWEIS('Sportgruppen Gefangene'!$F13;Sportplan!$J$29:$K$40;2;0))
=WENN(ISTNV(SVERWEIS('Sportgruppen Gefangene'!$F14;Sportplan!$J$29:$K$40;2;0));""; SVERWEIS('Sportgruppen Gefangene'!$F14;Sportplan!$J$29:$K$40;2;0))
usw...
Zum Verständnis:
In der Liste Sportgruppen wird der Person ihre persönliche Sportgruppe zugeordnet an der sie teilnimmt. Der Sportplan beinhaltet an welchen Tagen welche Sportgruppen stattfinden und die jeweiligen Uhrzeiten.
Einige Zellenbezüge sind relativ (oben fett markiert) diese sollen aber per Makro in absolute umgeändert werden, da es für die Ordnungsgemäße Funktion der Tabelle unabdingbar ist, da ich mit Filtern arbeite und sich sonst alles verschiebt und nichts mehr stimmt. Ich habe schon mehrere Versionen von Makros die man im Netz finden konnte ausprobiert.
Wie z.B.
Sub KonvertiereRelativZuAbsolut()
Dim Zelle As Range
For Each Zelle In Selection
With Zelle
If .HasFormula Then .Formula = _
Application.ConvertFormula(.Formula, _
xlA1, xlA1, xlAbsolute, Zelle)
End With
Next Zelle
End Sub
Der umgekehrte Fall funktioniert lustiger Weise, also mit einem Makro alles in relative umzuwandeln.
Es handelt sich dabei um 3 Spalten und Einträge bis zur 570. Zeile. Also per Hand alles mit F4 zu ändern eine Menge Arbeit!
Das nächste Problem was die Sache noch erschwert ist, dass ich diese Tabelle aus Datenschutzgründen leider nicht veröffentlichen darf!
Werde aber soweit es geht versuchen gewünschte Informationen zur Verfügung zu stellen!
Ich hoffe trotzdem das Ihr mir irgendwie helfen könnt!
Mfg Bastian