Frage : Ein Arbeitsblatt mit Namen des Zellenwertes hinzufügen

In den Zellen A3 bis A10 möchte ich einen Namen eintragen, wenn es einen Vorsprung mit diesem Namen tun nichts Ende des Programms, wenn ein, Arbeitsblatt nicht mit dem herzustellen name. gibt

Antwort : Ein Arbeitsblatt mit Namen des Zellenwertes hinzufügen

Dieses, es versuchen schlingt durch A3: A10 und herstellen alle Blätter 10, die nicht bereits existieren.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

VorAddWorksheets ()

    I als ganze Zahl verdunkeln

    Für i = 3 bis 10
        Wenn nicht WorksheetExists (Blätter („Sheet1“). Zellen (i, 1).Value) dann
            Sheets.Add
            ActiveSheet.Name = Blätter („Sheet1“). Zellen (i, 1).Value
        Sonst
        Beenden wenn
    Zunächst

Enden-Unterseeboot

Allgemeine Funktion WorksheetExists (ByVal WorksheetName als Schnur) wie Boolesch

Auf Störungs-Zusammenfassung zunächst
WorksheetExists = (Blätter (WorksheetName). Namens <> "")
Auf Störung Goto- 0

Enden-Funktion
 
Book2.xls (19 KBs) (Akten-Art Details) 
Beispiel
 
Weitere Lösungen  
 
programming4us programming4us