Bereichsnamen analysieren und fortführen
06.02.2004 21:46:48
Franz W.
ich habe ein Blatt mit mehreren eigenständigen Bereichen untereinander, die alle einen Namen bekommen. Damit die Reihenfolge der Namen in der Liste der Reihenfolge der Bereiche im Sheet entspricht, setze ich an den Anfang der Reihe nach das ABC:
aSollner
bBuerger
cAidenbacher
dXyz
.
.
.
hWaechter (ist z.Zt. mein letzter Bereich)
Nun bastle ich daran, weitere Bereiche automatisiert einzfuegen. Klappt auch soweit, aber nun kommt der Bereichsname: wie komme ich darauf, dass der letzte momentan vergebene Name in diesem Blatt vorne ein "h" dran hat und dass der nächste vorangestellte Buchstabe ein "i" sein muss, damit "iNeuerbereich" rauskommt?
Um die Bereiche - und es sollen nur die im Blatt "Ablesungen" sein zu bearbeiten, setze ich bereits folgende Schleife ein, vielleicht lässt sich das ja irgendwie nutzen:
Sub Namen()
For Each benannteBereiche In ActiveWorkbook.Names
StName = ActiveWorkbook.Names.Item(benannteBereiche.Name)
If Mid(StName, 2, InStr(StName, "!") - 2) = "Ablesungen" Then
End If
Next
End Sub
Ist mein Vorhaben machbar oder muss ich mir ganz was anderes einfallen lassen?
Für Ideen schon mal danke im Voraus
Grüße
Franz