Spaltennamen - Anzahl beschränkt ? Problem

Hallo VBA Profis, ich habe folgende Datei in dieser haben ich in meheren tabellen "Namen" für spalten vergeben.
Habe mir ein script geschrieben das mir die Namen vergibt also einträgt.
Aber aus irgendeinem Grund klappt das nicht so richtig.es stehen nur immer in einem sheet Namen für spalten und nicht in alle.Mein Gedanke war, gibt es vieleicht eine Anzahlsbeschränkung für Namen oder was mache ich falsch ?
Vielen dank für nen Tipp besten grüße Christian !


Sub neu()
For x = 3 To 18
Worksheets("Invest 2006").Select
namee = Worksheets("Invest 2006").Cells(3, x)
namee = WorksheetFunction.Substitute(namee, "/", "_")
namee = WorksheetFunction.Substitute(namee, " ", "_")
namee = WorksheetFunction.Substitute(namee, ".", "_")
namee = WorksheetFunction.Substitute(namee, "-", "_")
ActiveWorkbook.Names.Add Name:=namee, RefersToR1C1:=ActiveSheet.Columns(x)
Next
For x = 3 To 18
Worksheets("Invest 2007").Select
namee = Worksheets("Invest 2007").Cells(3, x)
namee = WorksheetFunction.Substitute(namee, "/", "_")
namee = WorksheetFunction.Substitute(namee, " ", "_")
namee = WorksheetFunction.Substitute(namee, ".", "_")
namee = WorksheetFunction.Substitute(namee, "-", "_")
ActiveWorkbook.Names.Add Name:=namee, RefersToR1C1:=ActiveSheet.Columns(x)
Next
For x = 3 To 18
Worksheets("Invest 2008").Select
namee = Worksheets("Invest 2008").Cells(3, x)
namee = WorksheetFunction.Substitute(namee, "/", "_")
namee = WorksheetFunction.Substitute(namee, " ", "_")
namee = WorksheetFunction.Substitute(namee, ".", "_")
namee = WorksheetFunction.Substitute(namee, "-", "_")
ActiveWorkbook.Names.Add Name:=namee, RefersToR1C1:=ActiveSheet.Columns(x)
Next
For x = 3 To 18
Worksheets("Invest 2009").Select
namee = Worksheets("Invest 2009").Cells(3, x)
namee = WorksheetFunction.Substitute(namee, "/", "_")
namee = WorksheetFunction.Substitute(namee, " ", "_")
namee = WorksheetFunction.Substitute(namee, ".", "_")
namee = WorksheetFunction.Substitute(namee, "-", "_")
ActiveWorkbook.Names.Add Name:=namee, RefersToR1C1:=ActiveSheet.Columns(x)
Next
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SetNames() Dim i%, j%, s$ For j = 6 To 9 For i = 3 To 18 With Worksheets("Invest 200" & j) s = .Cells(3, i).Value s = Replace(s, "/", "_") s = Replace(s, " ", "_") s = Replace(s, ".", "_") s = Replace(s, "-", "_") ActiveWorkbook.Names.Add Name:=s, RefersToR1C1:=.Columns(i) End With Next i Next j End Sub

Beliebteste Forumthreads (12 Monate)

Spaltennamen - Anzahl beschränkt ? Problem

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread