Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren und fortlaufend nummerieren

Tabellenblatt kopieren und fortlaufend nummerieren
31.08.2006 14:32:22
Michael
Hallo Excel-Gurus,
ich habe mich eines Musters aus dieser Seite bedient. Siehe https://www.herber.de/mailing/124200h.htm
Problem: Ich möchte ein Muster-Tabellenblatt auf Knopfdruck kopieren und fortlaufend numerieren.
Das o.a. Beispiel funktioniert zwar prinzipiell, jedoch fängt bei mir die Durchnummerierung bei dreistelligen Nummern statt bei 001 ab dem Wert 410 (?!?) an. Bei zweistelligen Nummern statt 01 bei dem Wert 10.
Kann mir bitte mal jemand das Herber-Beispiel erklären/mit Kommentarzeilen versehen, damit ich verstehe was im Detail in jedem Schritt passiert?
Besten Dank!
Schöne Grüße
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren und fortlaufend nummeri
31.08.2006 18:06:38
Emilia
Vielleich hilft dir das:
Option Explicit

Sub Sicherung()
Dim strFileName As String
strFileName = "D:\Test\Test\Test\" & Range("B1") & "_" & Range("A1") & ".xls" 'den Pfad bestimmst du
ActiveSheet.Copy
ActiveSheet.Buttons.Delete
ActiveWorkbook.SaveAs Filename:=strFileName
ActiveWorkbook.Close savechanges:=False
End Sub

aus A1 und B1 setzt sich der Mappenname zusammen und mit fortlaufenden Nummern kannst du ja auch als Formel bewerkstelligen die du dann nur in A1 oder B1 setzt.
Das Forum lebt von Antworten Gruß Emi
Anzeige
fortlaufend nummeri
31.08.2006 18:15:05
Emilia
Schau dir das mal an:
mit Formeln
Das auch
mit Makro
Das Forum lebt von Antworten
Gruß Emi
AW: fortlaufend nummeri
01.09.2006 13:09:44
Michael
Hallo Emi,
vielen Dank für die Hilfe. Löst aber leider mein Ausgangsproblem nicht. Das ursprünglich genutzte Makro von Herber (siehe Link) funktioniert nach dem Einbau in mein Dokument, bis auf die Tatsache, dass die Nummerierung bei einem Wert startet, den ich nicht nachvollziehen kann (z.B. 10 statt 01). Ich bräuchte deshalb mal ein paar Inputs, wie das ursprüngliche Makro funktioniert. Die dortigen Befehle sind mir nicht klar.
Schöne Grüße
Michael
Anzeige
AW: fortlaufend nummeri
01.09.2006 13:21:19
Michael
Noch gute Vorschläge / Erklärungen?
AW: fortlaufend nummeri
01.09.2006 20:23:29
Kurt
Hi,
die Nummerierung wird in Namen gespeichert, wenn eine Nummer schon mal vergeben war, wird diese nicht nochmal verwendet.
mfg Kurt

10 Forumthreads zu ähnlichen Themen

Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Anzeige
Tabellenblatt mehrfach kopieren - Namen aus Liste
Lutz

Liebe Ex(cel)perten,
ich möchte gern das mehrfache Kopieren und Umbennen von Tabellenblättern automatisieren.
In der Spalte A der Mustermappe befindet sich eine Liste mit den vorgesehenen Blattnamen der Kopien (in meinem Fall A1:A38). Wünschenswert wäre ein Makro, dass soviel Kopien wie...
19.11.2011 18:23:11
Thread-ID: 1238568
5 Beiträge
Bereich auf selben Blatt mehrfach kopieren
Benjamin

Hallo
Ich hab eine Excel tabelle in der ein bestimmter bereich mit Fomreln und so weiter gefüllt ist.
Nun wollt ich wissen ob es eine möglichkeit gibt, diesen Bereich mittels vba zu markieren und auf dem selber blatt automatisch 27 mal untereinander einfügen zu lassen
13.12.2011 13:30:29
Thread-ID: 1241887
3 Beiträge
Anzeige
Bezug auf anderes Tabellenblatt
Henner

Guten Abend zusammen,
mit folgendem Code fülle ich eine ListBox in einer UF mit den Daten aus einer Tabelle. Die letzte Zeile (Me.ListBox1.RowSource) bezieht sich nun leider auf das aktive Tabellenblatt, soll sich aber ebenfalls auf das Blatt "Audit_DB" beziehen.
Private Sub UserForm_I...
07.04.2016 21:09:02
Thread-ID: 1486738
4 Beiträge
Blatt mehrfach kopieren
Lutz

Hallo Excel-Freunde,ich habe in meiner Datei 2 Blätter. Im Sheet1 befindet sich eine Spalte (K), die von Zeile 4 bis 133 Daten enthält. Mit unten stehendem Makro möchte ich nun das Sheet2 entsprechend der Anzahl der Daten in Spalte K kopieren, in die Mappe einfügen und das jeweils neue Blatt en...
10.06.2003 09:37:41
Thread-ID: 266774
7 Beiträge
Tabellenblatt mehrfach kopieren
Klaus

Hallo zusammen,
ich versuche verzweifelt ein Tabellenblatt mehrfach zu kopieren.
Prinzipiell klappt es auch dank der vielen Beispiele hier.
Nach so ca. 30 Kopien (je nach Seitenvolumen) bricht das kopieren aber ab mit folgender Meldung:
Laufzeitfehler 1004
Die Copy Methode...
10.10.2004 23:08:32
Thread-ID: 498105
9 Beiträge
Tabellenblatt per VBA mehrfach kopieren ?
Selma

Hallo Leute,
wie kann ich per VBA aktives Arbeitsblatt zehn Mal kopieren?
Der Name kopierten Arbeitsblätter soll nach Möglichkeit so sein:
Name des aktives Arbeitsblattes + Kopie #
Beispiel bei Tabelle1:
"Tabelle1 Kopie 1"
"Tabelle1 Kopie 2"
"Tabelle1 Kopie 3"
.....
21.02.2008 10:41:39
Thread-ID: 953734
3 Beiträge
Arbeitsblatt mehrfach kopieren
SIzE_J7
Gibt es jemanden der mir folgende zwei VBA-Codes zusammensetzen kann. Ich will ein vorbereitetes Arbeitsblatt 82x kopieren und aus einer Liste direkt die Namen geben.
Code 1
Sub AddSheets() 'Updateby Extendoffice Dim xRg As Excel.Range Dim wSh As Excel.Worksheet Dim wBk As Excel.Workbook Se...
24.03.2022 14:43:01
Thread-ID: 1876731
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
4
2
4
3
6
8
2
2