Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fortlaufende nummerierung und tabellenname

fortlaufende nummerierung und tabellenname
11.01.2008 00:03:17
C.R.
Hallo,
ich möchte eine automatische fortlaufende nummerierung von einem Tabellenblatt auf das nächste erreichen. Die Nummerierung soll in jeder Tabelle immer in der selben Zelle stehen z.B. B3. Das erste Blatt soll mit 1, das zweite Blatt mit 2 usw. bis zum letzten Blatt mit X nummeriert werden. Ich will auf dem ersten Tabellenblatt die erste Nummer "1" eingeben und dann sollen automatisch auf den anderen Tabellenblättern in B1 die nächsten Nummern fortlaufend stehen. In einem zweiten Schritt soll die Nummerierung automatisch auch der Name für die jeweilige Tabelle auf dem Register werden.
Kann mir jemand helfen, wie ich das realisieren kann? Vielen Dank schon im Voraus.

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fortlaufende nummerierung und tabellenname
11.01.2008 00:24:59
Hans-Joachim
Hallo,
versuch es doch mal so:
Angenommen in Tabelle1 hast Du laufende Nummern in B3 bis B10.
In Tabelle2 gibst du in B3 folgende Formel ein:
=MAX(Tabelle1!B3:B10)+1
Um in Tabelle2 von B3 bis B10 automatisch laufende Nummern zu erzeugen, gibst Du in Tabelle2 in B4 folgende Formel ein:
=WENN(C4="";"";MAX($B$3:B10)+1)
Diese kopierst Du von B4 bis B10.
Hierbei ist vorausgesetzt, dass in C4 bis C10 Einträge vorgenommen werden.
Sobald ein Eintrag in Spalte C hinzukommt, erhöht sich die laufende Nummer in Spalte B automatisch um 1.
Ich hoffe, dass ich Deine Frage so richtig verstanden habe.
Gruß Hans

Anzeige
AW: fortlaufende nummerierung und tabellenname
11.01.2008 18:59:00
C.R.
Hallo Hans,
vielen Dank für deine Anwort, leider hast du mich missverstanden. Ich versuche nochmals mein Problem zu beschreiben:
Ich muss eine Arbeitsmappe , die aus bis zu 300 Tabellenblätter besteht erstellen. Jedes Tabellenblatt soll in der Zelle B3 eine Nummer erhalten. Diese Nummer soll gleichzeitig der Name des Tabellenblattes werden, d.h. unten auf der Registerfahne soll später die Nummer stehen, die in B3 des jeweiligen Tabellenblattes steht.
Da ich nicht von Hand in den 300 Tabellen immer in die Zelle B3 die nächst höhere Zahl schreiben will suche ich nach einer Möglichkeit, mit der ich es erreiche, dass automatisch alle 300 Tabellen jeweils in B3 nummiert werden. Auf der ersten Tabelle soll in B3 die Zahl 1 stehen, auf dem zweiten Tabellenbaltt in B3 die Zahl 2 usw., immer die nächsthöhere Zahl auf dem nächsten Tabellenblatt.
Im zweite Schritt soll dann, wie oben beschrieben, die jeweilige Nummerierung als Name für das jeweilige Tabellenblatt auf der Registerfahne stehen.
Ich denke, dass dies nur über eine Makro lösbar ist. Ich bin aber nicht so tief in VBA um dies selber zu erstellen.
Vielleicht kannst du mir nochmals helfen. Viele Dank.
C.R.

Anzeige
AW: fortlaufende nummerierung und tabellenname
11.01.2008 19:09:34
C.R.
Noch ergänzt, die Frage ist noch offen.
Gruß C.R.

AW: fortlaufende nummerierung und tabellenname
11.01.2008 19:27:56
Jan
Hi,

Sub Blaetter()
Dim b As Integer, ws As Worksheet
Application.ScreenUpdating = 0
For b = 1 To 300
Set ws = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Sheets(Sheets.Count))
ws.[b3] = b
ws.Name = b
Next
Application.ScreenUpdating = -1
End
End Sub


mfg Jan

AW: fortlaufende nummerierung und tabellenname
11.01.2008 21:26:10
C.R.
Hallo Jan,
vielen Dank für deinen Vorschlag, der war schon sehr gut. Ich benötiige jedoch kein Makro, welches mir 300 Tabellenblätter erzeugt, sondern 300 schon vorhandene Blätter durchnummeriert und die Tabellenblätter entspricht der Nummerierung benennt.
Gruß C.R.

Anzeige
AW: fortlaufende nummerierung und tabellenname
11.01.2008 22:16:41
Jan
Hi,

Sub Blaetter()
Dim b As Integer
Application.ScreenUpdating = 0
For b = 1 To 300
Sheets(b).[b3] = b
Sheets(b).Name = b
Next
Application.ScreenUpdating = -1
End
End Sub


mfg Jan

AW: fortlaufende nummerierung und tabellenname
11.01.2008 23:12:00
C.R.
Hallo Jan,
vielen Dank, das war die Lösung! Weißt du vielleicht auch noch, wie ich die in mehreren verschiedenen Excel-Arbeitsmappen enthaltenen Tabellenblätter auslesen lassen kann und automatisch in eine neue Mappe bringe?

AW: fortlaufende nummerierung und tabellenname
11.01.2008 23:28:53
Jan
Hi,
was willst du tun, die Blattnamen auslesen oder die Blätter kopieren?
mfg Jan

Anzeige
AW: fortlaufende nummerierung und tabellenname
11.01.2008 23:44:00
C.R.
Hallo Jan,
die Blätter eins zu eins in eine neue Arbeitsmappe kopieren.

AW: fortlaufende nummerierung und tabellenname
12.01.2008 00:07:00
Jan
Hi,
wenn "Neue Mappe" wörtlich gemeint ist, speichere die datei unter anderem Namen.
mfg Jan

AW: fortlaufende nummerierung und tabellenname
12.01.2008 00:17:17
C.R.
Hallo Jan,
da dachte ich auch dran, aber ich will ja aus mehrerem Excel-Dateien / Arbeitsmappen die einzelnen Blätter kopieren und diese in eine neue Excel-Datei einfügen. Ich will nicht für alle über die Kopierfunktion gehen, sondern würde den Prozess gerne automatisieren, da es schon einige Blätter und Dateien sind.

AW: fortlaufende nummerierung und tabellenname
12.01.2008 18:35:00
C.R.
Hallo Jan,
habe ich ausprobiert, bringt nur eine leere Arbeitsmappe hervor.
C.R.

AW: fortlaufende nummerierung und tabellenname
12.01.2008 19:34:53
Jan
Hi,
geh nochmal zum anderen Beitrag.
mfg Jan

AW: fortlaufende nummerierung und tabellenname
12.01.2008 19:36:43
Christian
Hallo Jan,
da hat wohl jemand den selben Fehler gemacht. Jetzt gehts auch bei mir. Danke für deine Hilfe.

22 Forumthreads zu ähnlichen Themen

Anhand Tabellenblätter fortlaufend nummerieren
Mex

Liebe Excel-Götter,
ich habe ein Muster-Tabellenblatt auf dem sich unter anderem eine Zelle "Anlage" (z.B. in H30) befindet. Das Tabellenblatt wird nach Bedarf kopiert und benennt sich automatisch mit Eingabe einer Kundennummer um. Man erhält mehrere Tabellenblätter, die nun beginnend mit A...
06.07.2009 22:34:32
Thread-ID: 1086788
3 Beiträge
Anzeige
fortlaufende Nummerierung unterbinden
Sandra

Hallo Leute,
obwohl meine Frage noch imemr offen ist, taucht Sie bei "offene Fragen" nicht mehr auf. Daher jetzt noch einmal ein Thread mit dem Link zu meinem Problem.
https://www.herber.de/cgi-bin/forum/call_forum.pl
Gruß
Sandra
17.02.2010 10:39:55
Thread-ID: 1139155
8 Beiträge
laufende nummer nicht automatisch abändern
maschmi

Hallo zusammen,
ich hoffe mir kann jemand helfen.
Ich will in einer Tabelle über die zusammensetzung verschiedener nummern eine laufende nummer für dokumente erzeugen. In Spalte A sind Kundennamen eingetragen. Zu jedem Kundennamen wird in Spalte B automatisch per SVerweis die entspreche...
23.04.2010 13:44:53
Thread-ID: 1153414
3 Beiträge
Anzeige
Automatische Nummerierung der Tabellenblätter
Rei

Guten Tag!
Leider bring ich es nicht hin, in meiner Excel Tabelle nur die markierten Register mit dem folgendem VBA zu nummerieren.
Option Explicit
Sub t() Dim i As Integer For i = 1 To Worksheets.Count Worksheets(i).Name = "Blatt " & i Next i End Sub
Weiss hier jemand ei...
15.05.2015 12:11:58
Thread-ID: 1426342
3 Beiträge
Bild mit laufender Nummer einfügen
Carsten

So, ich hoffe, mein leztes Problem für heute:
Ich habe eine Tabelle mit verschiedenen Daten (Artikelnummer, EAN etc.). Bei einem Doppelklick auf eine Zeile soll ein Bild eingefügt werden. Die Bilddatei ist mit der Artikelnummer in Spalte A benannt. Zudem soll das Bild mit einer laufenden Nu...
26.10.2015 12:27:48
Thread-ID: 1454458
23 Beiträge
Fortlaufende Nummerierung aus gefilterter Liste
Lens

Hallo wertes Forum,
ich habe folgendes Excel Problem. In Spalte B habe ich zahlreiche (ca.500) Daten (Zeitpunkte im Format TT.MM.JJJJ HH:MM:SS). In Spalte C findet sich eine Nr. welche genau einem Objekt zugeordnet werden kann (insgesamt acht verschiedene Nummern). Jedes Objekt kommt n mal...
04.04.2016 16:14:07
Thread-ID: 1485851
3 Beiträge
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
Zeile mit fortlaufender Nummer & UserName einfügen
Basti

Hallo Herber-Forum,
ich benötige für ein kleines VBA Excel Projekt Eure Hilfe.
Aufgabe ist es, eine Liste zum Wissensaustausch zu erstellen.
Über einen Knopf soll am Ende der vorhanden Tabelle1 eine neue Zeile eingefügt werden. Wobei in Spalte A die ID-Nummer (Aufsteigend) und in S...
13.09.2016 20:11:28
Thread-ID: 1514196
4 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
2
24
7
2
2
2
22
2
3
3
3
4
4
8
3
1
1
9
5
4
8
31