Ich versuche in einem Excel-spreadsheet mehrere Bereiche mit Namen zu versehen. Diese sollen dynamisch gehalten sein, weshalb ich mit bereich.verschieben arbeiten möchte. Nun muss ich insgesamt 200 namen vergeben und deshalb wollte ich da ein kleines Makro bauen. Mein Plan war, dass ich in einer spalte die Formel als String aufbaue und dann per Makro auslese und so den Namen zu erstellen. Derzeit sieht mein Makro so aus:
Sub Create_Names()
Dim Formul_1 As String
Dim Nam_12 As String
ActiveSheet.Select
Range("a2").Select
Do While ActiveCell ""
Nam_12 = ActiveCell.Value
Formul_1 = ActiveCell.Offset(0, 5).Value
ActiveWorkbook.Names.Add Name:=Nam_12, RefersTo:=Formul_1
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Name Creation Succsessfull! Have A nice Day!")
End Sub
Bei RefersTo:= hängt sich das Programm jedesmal auf, wenn ich die auszulesende Formel mit "=" in der Zelle stehen habe. Lasse ich das "=" in der Zelle weg, schreibt er beim Namen als Bereich die Formel nur in Anführungszeichen und der Zellenbezug funktioniert nicht.
Viele Grüße
Toibaman