Brauche dringend Hilfe bei Zellnamen bellegung als
27.04.2016 01:51:57
Hendl91
Und ich muss von der Spalte A alle Inhalte mit einen Zellbezug vergeben am besten der Name( über 16.000 Einträge daher das Programm). Ich fange erst bei Reihe zwei an
Ich habe auch schon ein Grund Programm geschrieben was klappt aber irgendwie funktioniert es als schleife nicht kann mir vl dabei helfen.
Bin sehr dankbar über jede hilfe
Option Explicit
Public Sub deklarieren()
Dim NewName As Variant ' Übergibt den Namen
Dim NewRange As Range ' legt den zu benenenden Bereich fest
Dim i As Integer
i = 2 'Da ich erst in der zweiten Reihe anfange
While IsEmpty(Cells(i, 1)) = False And i > 1
Set NewRange = ActiveSheet.Cells(i, 1)
NewName = "" & NewRange.Value
ActiveWorkbook.ActiveSheet.Names.Add Name:=NewName, RefersTo:=NewRange, Visible:=True
i = i + 1
Wend
End Sub