ich habe mal wieder ein Problem mit meinem derzeitigen Projekt.
Ich möchte in meinem Projekt dynamisch Bereichsnamen in einzelnen erstellten Tabellenblättern vergeben.
Zu erst wird ein Tabellenblatt auf Basis einer Vorlage generiert, in dieses Soll der User nun über ein UserForm diverse Bereiche definieren und diesen Namen geben können.
Nun habe schon einwenig herumgebastelt und es geschafft das Excel die Bereichsnamen im Namenseditor anzeigt (siehe. Anhang https://www.herber.de/bbs/user/100998.zip ).
Das Problem an der Ganze Geschichte, ist leider das er die angegeben Ranges nicht übernimmt, egal was ich auch tue. Wenn ich die einzelnen Aktionen ausführe bekomme ich keine Fehlermeldung und die Bereichsnamen werden, wie bereits erwähnt im Namensmanager angezeigt.
Hier mal mein bereits geschriebener Code zu diesem Teil:
(Ich habe schon so lange auf diesen Code geschaut als das ich ggfs. schlampige Fehler übersehen habe, nehmt mir dies bitte nicht übel :p)
'#########################################################
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft der Daten
Dim lZeile As Long
Dim Bereich As String
Dim RRange As Range
Set WkSh_Q = ThisWorkbook.Worksheets("Untergruppen_Neu")
lZeile = 2
Do ' Schleifen-Anfang
RangeB = WkSh_Q.Range("A" & lZeile).Value ' Zuweisung des jeweils eingetragenen wertes
Bereich = Worksheets(NameTabellenblattneu + "_Werte").Name & RangeB
Worksheets(NameTabellenblattneu + "_Werte").Names.Add Name:=NameBereich, _
RefersTo:="=" & Bereich
lZeile = lZeile + 1 ' Zeilen-Variable um 1 erhöhen
Loop Until Cells(lZeile, 1) = "" ' Schleife verlassen wenn nächste Zelle leer ist.
'#######################################################
End Sub
Vielleicht könnt Ihr mir ja dabei helfen :)
Im Anhang befinden sich einige Screenshots ;)
https://www.herber.de/bbs/user/100998.zip
Vielen Dank und viele Grüße
Kulle