Jeder Zelle einer Tabelle automatisch Namen geben
30.07.2014 20:02:38
Barbara
ich würde gerne jede Zelle einer Tabelle mit einem Namen versehen, der aus den Zellen der ersten Spalte und obersten Zeile zusammen gesetzt ist.
Unten ein Beispiel, das sich aber auf einen bestimmten Bereich bezieht, das ich in diesem Forum _
gefunden habe.
Sub ErstelleNamen()
Dim Rng As Range, C As Range
Set Rng = Range("B5:P11")
For Each C In Rng
C.Name = Cells(C.Row, 1) & "_" & Cells(1, C.Column)
Next
Set Rng = Nothing
End Sub
Kann man das so ändern, dass es sich auf eine bestimmte Tabelle bezieht. Sie hat den Namen "Bereich".
Außerdem sollen sich die Namen automatisch aktualisieren, sobald ich in einer namensgebenden Zelle in der ersten Spalte oder Zeile einen anderen Text eintrage. Dabei sollen die verwaisten Namen gelöscht werden.
Es soll eine Meldung kommen, wenn
- der Eintrag zu einer unzulässigen Namensbildung führt (wenn zum Beispiel ein Leerzeichen darin vorkommt). Aber die Namensgebung soll fortgesetzt werden. Denn sonst könnte man nicht die Tabelle vergrößern, weil ja da automatisch ein leerer Zeilen- oder Spaltenkopf entsteht.
- der Name bereits vergeben ist, wobei dieser bestehen bleiben soll. Dann muss man eben was anderes in diese Zelle schreiben.
Vielen Dank.
LG,
Barbara