Namen, RefersTo
16.09.2003 13:40:24
Nike
ich verusche über eine Combobox
einen Wert in der Spalte A heraussuchen zu lassen, das klappt auch.
Entsprechend dieser Auswahl sollen zwei Namen entsprechende Zellbereiche zugewiesen bekommen.
Leider bekomme ich das RefersTo nicht hin...
Set rngFind = Columns(1).Find(CDate(ComboBox1.Value))
ActiveSheet.Names("DatenT").RefersTo "=" & ActiveSheet.Name & "!" & Range(rngFind.Offset(0, 1), rngFind.Offset(95, 1)).AddressLocal
ActiveSheet.Names("DatenW").RefersTo ActiveSheet.Name & "!" & Range(rngFind.Offset(0, 2), rngFind.Offset(95, 2)).Address
Hilfe / Erklärungen, warum so nicht, wären nett.
Bye
Nike