Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ableitung Nummer aus benannten Bereichen

Ableitung Nummer aus benannten Bereichen
22.03.2023 18:10:27
Peter

Guten Abend
Ich habe in einer Datei verschiedene benannte Bereiche (globale Namen), die alle mit "Note" beginnen und anschliessend eine Zahl angehängt ist.
Z.B. Note1, oder Note 01 oder Note99, etc.
Kann ich mittels einer Abfrage bestimmen, wie der nächste Name lauten kann, ohne einen berstehenden benannten Bereich zu überschreiben?

Wenn es nur "Note1" gibt, müsste die Abfrage "Note2" geben.
Wenn es "Note1" und "Note01" gibt müsste die Abfrage "Note02" geben.
Wenn es "Note1", "Note01" und "Note99" gibt, müsste die Abfrage "Note100" geben

Wer kann mir helfen?

Gruss, Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ableitung Nummer aus benannten Bereichen
22.03.2023 18:50:20
Daniel
Hi

mal unabhängig von den führenden Nullen (das wird aufwendiger)
die ermittlung der nächsten Nummer könnte so funktionieren:

dim nme as Name
dim x as long
dim y as long

for each nme in Thisworkbooks.Names
    if nme.Name like "Note#" Then
        if isNumeric(mid(nme.Name, 5)) then
            x = CLng(mid(nme.Name, 5))
            if x > y then y = x
        end if
    end if
Next
Msgbox "nächter Name: Note" & y + 1
Gruß Daniel

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige