HERBERS Excel-Forum - die Beispiele

Thema: Tabellenblatt kopieren und dreistellig fortlaufend numerieren

Home

Gruppe

Allgemein

Problem

Wie kann ich auf Schaltflächendruck ein Tabellenblatt kopieren und für dieses eine dreistellige fortlaufende Numerierung vergeben? Bereits vergebene Namen dürfen sich auch dann nicht wiederholen, wenn die Blätter inzwischen gelöscht wurden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub NeuesBlatt()
   Dim wks As Worksheet
   Dim nme As Name
   Dim iNme As Integer
   Dim sNme As String
   For Each nme In ThisWorkbook.Names
      sNme = Right(nme.Name, 3)
      If Len(sNme) = 3 And IsNumeric(sNme) Then
         If CInt(sNme) > iNme Then
            iNme = CInt(sNme)
         End If
      End If
   Next nme
   With ThisWorkbook
      .Worksheets("Muster").Copy after:=.Worksheets(.Worksheets.Count)
   End With
   ActiveSheet.Name = "A" & Format(iNme + 1, "000")
   Set nme = ActiveWorkbook.Names.Add( _
      Name:="WKS" & Format(iNme + 1, "000"), _
      RefersTo:=Range("A1"), _
      Visible:=False)
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt

Excel Arbeitsblatt verkleinern/vergrößern Arbeitsblatt schützen Kommentare aber noch möglich
Arbeitsblatt speichern Arbeitsblatt als E-Mail versenden
Arbeitsblattname in Zelle anzeigen Arbeitsblatt in neuer Arbeitsmappe speichern
Einfügen v. Werten in ein anderes Arbeitsblatt Namen von Arbeitsblatt in Zelle übernehmen
Arbeitsblatt schützen Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Dateneingabe u. Arbeitsblatt kopieren
Hyperlink auf Bereich in Arbeitsblatt Ereignis Arbeitsblatt sperren abfangen
Zugriff auf ein Arbeitsblatt per Kennwort VBA-Code von einem Arbeitsblatt ins nächste ausfüh
Arbeitsblatt ohne Select speichern wenn arbeitsblatt vorhanden makro ausführen
wenn arbeitsblatt vorhanden makro ausführen "Seite einrichten" eines Arbeitsblattes übern
Scrollen im Arbeitsblatt bei Formelbearbeitung allgemein
Neue Daten in ein anderes Arbeitsblatt übertragen Arbeitsblatt als rtf-Datei abspeichern - Wie?
Daten aus anderem Arbeitsblatt suchen und einfügen bestehendes Problem Arbeitsblatt erstellen
Arbeitsblattname in ein Feld schreiben Arbeitsblattwechsel durch Formular unterbinden
Neues Arbeitsblatt erstellen, falls nicht vorhande Arbeitsmappe öffnen, Arbeitsblatt suchen, Text ein
Ansicht nach Arbeitsblatt wechsel Combobox abhängig von offenem Arbeitsblatt
combobox rowsource aus anderem arbeitsblatt Automatisches Speichern einer Arbeitsblatt-Kopie
Checkbox in Arbeitsblatt Zellen in neues Arbeitsblatt kopieren
allgemein: VBA lernen? Indirekt - Funktion für anderes Arbeitsblatt
Hide-Methode-Allgemeine Frage Übergabe eines Arbeitsblattes VBA
Arbeitsblattliste-Hyperlinks erstellen-Formatieren Formelassistent allgemein
Arbeitsblatt-Menüleiste ausgeblendet Macro nur auf jeweiligem Arbeitsblatt
Archivieren externer Dateien in Arbeitsblatt allgemeingültig Blattschutz aufheben
Arbeitsblatt activesheet.name im arbeitsblatt
Arbeitsblatt kopieren mit Namensbezügen