Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle Namen zuweisen

Betrifft: Zelle Namen zuweisen von: Herr Vorragend
Geschrieben am: 16.09.2020 09:54:03

Servus,

ich möchte durch VBA Zellen automatisch Namen zuweisen. Der Name soll sich aus "Komponente" und einer Nummer zusammensetzen, die immer um 1 erhöht wird, aber je nach Daten einen unterschiedlichen Startwert hat. Leider bekomme ich immer die Fehlermeldung "unzulässige Eigenschaft". Wie kann ich zuweisen, dass der Name der Zelle x angesprochen wird?

Sub NamenVergeben()

Dim nme As Name
Dim Komponente As Integer
Dim i As Integer


With ActiceWorksheet
Komponente = Cells(2, 3).Value
For i = 6 To 24
nme = Cells(42, i) ' --> unzulässige Eigenschaft
nme.Name = "Komponente_" & Komponente
Komponente = Komponente + 1
Next
End With
End Sub

Danke :)

Betrifft: AW: Zelle Namen zuweisen
von: Matthias L
Geschrieben am: 16.09.2020 10:21:10

Hallo,

Der erste fehler müsste eigentlich viel eher kommen!

ActiceWorksheet

Gruß Matthias

Betrifft: AW: Zelle Namen zuweisen
von: Rudi Maintaire
Geschrieben am: 16.09.2020 10:22:23

Hallo,
Sub NamenVergeben()

Dim nme As Name
Dim Komponente As Integer
Dim i As Integer


With ActiceWorksheet
Komponente = Cells(2, 3).Value
For i = 6 To 24
Cells(42, i).Name = "Komponente_" & Komponente
Komponente = Komponente + 1
Next
End With
End Sub

Gruß
Rudi

Betrifft: hier der Code
von: Matthias L
Geschrieben am: 16.09.2020 10:25:06

Option Explicit
Sub NamenVergeben()
Dim nme As Object
Dim Komponente As Integer
Dim i As Integer
With ActiveSheet
Komponente = Cells(2, 3).Value
For i = 6 To 24
Set nme = Cells(42, i)
nme.Name = "Komponente_" & Komponente
Komponente = Komponente + 1
Next
End With
End Sub


Beiträge aus dem Excel-Forum zum Thema "Zelle Namen zuweisen"