Neue Sheets aus Bereichsnamen per VBA
21.06.2012 15:09:53
NoNet
Hallo Hans,
das kannst Du per folgendem VBA Code lösen :
Sub TabsAusNamenErstellen()
Dim wsNeu As Worksheet, objN As Name, rngZ As Range, wsAkt As Worksheet
Set wsAkt = ActiveSheet
For Each objN In Names
Set wsNeu = Sheets.Add(after:=Sheets(Sheets.Count))
wsNeu.Name = Left(objN.Name, 31)
wsAkt.Hyperlinks.Add Range(objN.RefersToRange.Address(, , , True)), "", _
wsNeu.Cells(1, 1).Address(, , , True)
Next
wsAkt.Activate
End Sub
Der Code erstellt (aus den alphabetisch sortierten) Namen der aktuellen Mappe jeweil ein eigenes gleichbenamtes Tabellenblatt (sofern die Benamung möglich ist !) und referenziert den Bereich, auf den sich der Name bezieht auf die Zelle A1 des jeweils neu erstellten Blattes !
Beispiel : Aus dem Namen "Test", der sich auf "Tabelle1!E5" bezieht wird ein neues Blatt "Test" erstellt und die Zelle "Tabelle1!E5" wird mit "Test!A1" verlinkt.
Bitte teste das zunächst an einer Kopie Deiner Tabelle und achte darauf, dass keine Hyperlinks oder Zellinhalte überschrieben werden !
Gruß, NoNet
- 1:3
http://www.exceltreffen.de/index.php?page=224