PDA

Vollständige Version anzeigen : Bereich benennen


tsw
17.09.2016, 14:07
Hallo,
ich habe folgendes Problem bei der Benennung eines Bereiches:

Schritt-1. Makro1 aufzeichnen

Sub Makro1()
Range("N5:P5").Select
ActiveWorkbook.Names.Add Name:="b1makro", RefersToR1C1:= _
"=Tabelle3!R5C14:R5C16"
ActiveWorkbook.Names("b1makro").Comment = ""
End Sub

Bei der Aufzeichnung wird auch der Bereich mit dem entsprechenden Namen verknüpft und steht im Namensmanager zur Verfügung.

Name Wert Bezieht sich auf ....
b1makro {"1","2","3"} =Tabelle3!$N$5:$P$5 ....

Der Bereich ist als DropDownListe nutzbar!

Schritt-2: Name löschen im Namens-Manager
Schritt-3: Makro1 ausführen
Schritt-4: Namensmanager öffnen


Name Wert Bezieht sich auf ....
b1makro {...} =Tabelle3!'Z5S14':'Z5S16' ....

Der Bereich ist als DropDownListe nicht nutzbar, da er keine Werte enthält!

Jetzt meine Frage, wie kann ich erreichen, dass durch das Makro oder per vba ein Bereich definiert wird, der auch die Werte enthält??

Danke für Euer interesse

Gruß tsw

Hajo_Zi
17.09.2016, 14:13
es sollte ja nur ein Bereich sein.

Option Explicit

Sub Makro1()
Range("N5:P5").Select
ActiveWorkbook.Names.Add Name:="b1makro", RefersToR1C1:= _
ActiveSheet.UsedRange
ActiveWorkbook.Names("b1makro").Comment = ""
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

tsw
17.09.2016, 15:54
Danke für die schnelle Antwort.
Funktioniert!
Bei der Aufzeichnung des Makro muss dann aber intern einer Fehler
vorliegen, oder ?