Range Bezüge in VBA von fix auf relativ umstellen
fix
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namensdefinition geschrieben:
ActiveWorkbook.Names.Add Name:="rgGPT", RefersTo:=rgGPTMember_Source
Die Namensdefinition referenziert also auf: $G$5:$G$34
Frage: Wie kann ich bei der Erstellung des Ranges oder beim Erstellen der Namensdefinition die fixen Bezüge in relative umwandeln. Also: G5:G34
Mir fällt nichts Schlaues ein. Ich war schon im Forum, habe aber vermutlich Tomaten auf den Augen.
Vielen Dank für Eure Hilfe.
Grüße, Andreas Hanisch