Namen für Zelle vergeben per schleife
01.11.2012 12:20:03
Regina
habe eine lange Liste und möchte den Inhalt aus jeder Zelle in der spalte A als Namen Vergeben.
analog EINFÜGEN -NAMEN - DEFINIEREN
habe es aufgezeichnet, bekomme es aber nicht für die Schleife hin.
Kann jemand helfen?
Sub namen_einfügen()
' namen_einfügen Makro
Dim i As Long
Dim Inhalt As String
Dim ende As Long
ende = Range("A65536").End(xlUp).Row
For i = 4 To ende
If Cells(i, 1) "" Then
Inhalt = "_" & Cells(i, 1)
'hier anwendungs- objektdefinierter Fehler
Cells(i, 1).Name.Add Names:=Inhalt, RefersToR2C1:="=Kommentare!R2C1"
End If
Next
End Sub
Vielen dank im voraus
Regina