Office: (Office 365) Zellen-Eintrag in Zellen-Name

Aus Zellen-Eintrag einen Zellen-Name erstellen:
Per Makro soll aus einem Zellen-Eintrag (wenn vorhanden) ein Zellen-Name für diese Zelle erstellten (ergänzt um Text davor und dahinter) werden.

Dieser Zellen-Name wird dann im Namensmanager aufgeführt wird und kann somit aus anderen Tabellenblättern oder anderen Excel-Tabellen angesprochen/angesprungen werden kann.

Das Makro soll über das ganze Tabellenblatt, z.B. der kompletten Spalte A, einer Excel-Tabelle laufen (entweder über die komplette Spalte A, oder einen vorher per Cursor markierten Bereich oder einen Bereich z.B.: A6 bis A1000).

Beispiel: Zellen-Eintrag ergänzt um Text davor und dahinter
Zellen-Eintrag in Zelle: 1947 ==> soll zum Zellen-Name: ABC_1947_xyz werden (und steht so im Namensmanager)

 

Hi,

Code:

Sub NamenErstellen()
    Dim rngZelle As Range
    For Each rngZelle In Selection
        If rngZelle <> "" Then
            If rngZelle.Column = 1 Then ThisWorkbook.Names.Add Name:="ABC_" & rngZelle.Value & "_xyz", RefersTo:=rngZelle.Address
        End If
    Next rngZelle
End Sub

---

 

Hola,
und warum fängt hier wieder alles von vorne an?
Zellen-Name über alle Spalten bestimmen | HERBERS Excel Forum
Unbegreiflich....

 

Und warum nicht? Chrossposting ist hier doch nicht unerwünscht.

---

 

Dann finde ich wohl den Verweis bloß nicht.

 

Beitrag gelöscht Crossposting

 

Richtig, und deshalb hätte deinerseits der Link gereicht ohne die Frage des "Warum" zu stellen.

---

 

Zum Glück kann ich selber entscheiden was ich schreibe.

 

Und ich kann die Forenregeln ebenfalls selbst lesen...

---

 

Typisch deutsch, einfache Frage eines Unwissenden, dann wird gleich mit "Crossposting" gedroht (vorher soll ich das Wissen, wenn ich auf der anderen Plattform bisher noch keine Lösung habe). Also ich verlasse diese Plattform; lieber keinen steve1da oder Hajo-Zi. Gleich draufdreschen !!
Berverly: danke für Deine Bemühungen

 

Typisch deutsch:
Ich melde mich hier an.
Ich akzeptiere die Regeln.
Ich verstoße dagegen.
Ich werde unsanft darauf hingewiesen.
Ich heule wie ein Kind.