Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen einer Mappe bis Ende nummerieren

Forumthread: Tabellen einer Mappe bis Ende nummerieren

Tabellen einer Mappe bis Ende nummerieren
13.01.2008 12:41:00
Paul
Hallo
kann mir jemand bei folgender Fragestellung helfen:
ich will die Arbeitsblätter einer Datei automatisch von 1 bis X durchnummerieren. Die Anzahl der Arbeitsblätter weiß ich im Vorfeld nicht, aber es sind sehr viele. Die Arbeitsblätter sind aber schon mit Daten vorhanden.
Der so entstandene Name des jeweiligen Arbeitsblattes soll dann in der Zelle C10 erscheinen.
Ist es möglich dies mit einem Makro mit Eingabemaske für den Start der Nummerierung zu machen und das Ende, also die Berechnung der Nummern vollzieht Excel selbst ?
mfg
Paul

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen einer Mappe bis Ende nummerieren
13.01.2008 12:54:53
Micha
Hallo Paul,
meinst du sowas....?

Sub tab_umbenennen()
Dim sh As Worksheet
Dim datei As Workbook
Dim i As Integer
i = InputBox("Erste Nummer?", "Frage", 1)
Set datei = ActiveWorkbook
For Each sh In datei.Worksheets
sh.Name = "NR_" & i
sh.Cells(10, 3) = "NR_" & i
i = i + 1
Next
End Sub


Anzeige
AW: Tabellen einer Mappe bis Ende nummerieren
13.01.2008 13:15:49
Paul
Danke Micha, genau das habe ich gemeint. Vielen Dank, du hast mir sehr geholfen.

AW: Tabellen einer Mappe bis Ende nummerieren
13.01.2008 14:16:00
Paul
Hallo Micha,
dein Code hat mich noch auf eine Alternative gebracht. Ich habe auf jeder Tabelle in B10 eine ganz individuelle Bezeichnung stehen. Du hast in deinem Code sh.Name = "NR_" & i eingebaut. Ist es auch möglich statt "NR_" hier einen Bezug auf B10 zu machen, um sie dort die individuelle Bezeichnung heraus zusiehen. Meine Tabellen hätten dann den Namen plus Zahl. Das wäre echt gut
Gruß Paul

Anzeige
AW: Tabellen einer Mappe bis Ende nummerieren
13.01.2008 14:42:20
Peter
Hallo Paul,
Michas Code etwas angepasst:


Option Explicit
Sub Tab_Umbenennen()
Dim WkSh    As Worksheet
Dim WkBk    As Workbook
Dim iLfdNr  As Integer
  iLfdNr = InputBox("Erste Nummer?", "Frage", 1)
  Set WkBk = ActiveWorkbook
  For Each WkSh In WkBk.Worksheets
     WkSh.Name = WkSh.Cells(10, 2).Value & "_" & iLfdNr '  "NR_" & iLfdNr
     WkSh.Cells(10, 3) = WkSh.Name                      ' "NR_" & iLfdNr
     iLfdNr = iLfdNr + 1
  Next WkSh
End Sub


Gruß Peter
Anzeige
AW: Tabellen einer Mappe bis Ende nummerieren
13.01.2008 14:52:19
Paul
Hallo Peter,
vielen Dank für deine Anregung. Ich habe nach eine kleine Änderung vollzogen. Jetzt steht in C10 die laufende Nr. und der Name der Tabelle setzt sich aus B10 und C10 zusammen. Vielen Dank. so wollte ich es haben.
Gruß Paul
Option Explicit

Sub Tab_Umbenennen01()
Dim WkSh    As Worksheet
Dim WkBk    As Workbook
Dim iLfdNr  As Integer
iLfdNr = InputBox("Erste Nummer?", "Frage", 1)
Set WkBk = ActiveWorkbook
For Each WkSh In WkBk.Worksheets
WkSh.Name = WkSh.Cells(10, 2).Value & "_" & iLfdNr '  "NR_" & iLfdNr
WkSh.Cells(10, 3) = iLfdNr
iLfdNr = iLfdNr + 1
Next WkSh
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Anzeige
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Ab von Tabelle8 bis Ende mache
Tabelle8

Hallo,
Ich würde gerne einen Kopiervorgang automatisieren.
Und zwar habe ich viele Tabellenblätter in einer Mappe, und es soll ab dem 8 Tabellenblatt bis zum letzen jeweils die gleiche Sub aufgerufen werden.
Ich kriege die Schleife mit dem hochzählen der Blätter nicht hin.
Wer k...
30.01.2010 13:56:48
Thread-ID: 1134370
10 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Zeilen bis ende löschen
gerhard

Hallo zusammen
bitte um Makro hilfe...
wie kann ich in Spalte A die Zelle in dem der Wert 1650 steht alle nachfolgenden Zeilen bis Ende löschen?
Vielen Dank für Eure Hilfe
Gruß G.
15.11.2010 13:18:48
Thread-ID: 1186841
3 Beiträge
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge
Spalten bis zum Schluss ausblenden
Matthias

Hallo miteinander,
wie ich per VBA einzelne oder auch mehrere Spalten ausblenden kann ist für mich klar.
Ich möchte jedoch, dass sämtliche Spalten bspw. ab Spalte AC aufwärts ausgeblendet werden und damit im Normalfall auch nicht mehr erreichbar sind. Wie bekommt man das hin?
Grupp...
20.08.2012 10:25:45
Thread-ID: 1275682
3 Beiträge
Zellen löschen bis ende
Kurt

Guten Morgen,
hatt gerade im Forum gestöbert, leider nicht das Richtige
gefunden.
Ich möchte die 1. Leerzelle in der Spalte A selektieren und von da aus alle
Zeilen bis Ende (65000) löschen.
mfg Kurt
29.11.2012 10:19:29
Thread-ID: 1288543
3 Beiträge
Anzeige
Automatisch markieren, bis folgende Zelle leer
Hermann

Hallo,fuer folgendes Problem suche ich einen VBA - Code:Ich moechte gerne ab einer bestimmten Zeile Zellen solange markieren (z.B. ab A6), bis eine leere Zelle kommt. Mit den markierten Zellen moechte ich dann naemlich ein Diagramm erstellen. Es kann auch sein, dass ich mehrer Reihen markiern m...
20.06.2002 22:52:01
Thread-ID: 130328
3 Beiträge
Anzeige
Spalten per VBA nach unten kopieren
Dierk

Guten Tag,
ich hätte eine Bitte. Ich suche einen Automatismus für folgende Fragestellung.
Ich habe in Spalte 1 das Datum stehen. In den folgenden Spalten jeweils die Umsätze einen Abt.
Datum 1 2 3
1.1.13 0 0 0
2.1.13 50 34 55
3...
28.08.2013 14:06:49
Thread-ID: 1328655
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige