Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter automatisch erstellen und benennen

Tabellenblätter automatisch erstellen und benennen
24.02.2015 19:51:33
Bonduca
Hallo,
ich habe folgendes Problem:
In Tabelle 1 sind in der Spalte B (ab B4) Bezeichnungen. Die Anzahl dieser kann variieren. Mit diesen Bezeichnungen sollen neue Tabellenblätter automatisch erstellt werden.
In der Beispieldatei habe ich bereits die Tabellenblätter angelegt.
Außerdem wäre es schön, wenn die Bezeichnung auch in A1 des jeweiligen neuen Tabellenblatt auftauchen würde. Das wäre aber nur ein netter Zusatz.
Könnt ihr mir helfen?
Danke, Bon
https://www.herber.de/bbs/user/95971.xlsx

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter automatisch erstellen und benennen
24.02.2015 20:24:59
Andy
Hallo,
ich habe da einen Code den du nur noch anpassen musst.
Gruß Andy
Sub TabNamenFestlegen()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = ActiveSheet
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 2))
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = wks.Cells(iRow, 2).Value
iRow = iRow + 1
Loop
Worksheets(3).Select 'die Tabelle3 ist in demfall ausgewählt
End Sub

AW: Tabellenblätter automatisch erstellen und benennen
25.02.2015 13:44:09
Bonduca
Sorry, ich schaffs leider nicht :/. Tut mir echt Leid.

AW: Tabellenblätter automatisch erstellen und benennen
25.02.2015 14:09:23
Bonduca
Ich hab hier noch einen Code gefunden und den etwas angepasst. Dafür habe ich noch ein Tabellenblatt 3 einfügen müssen, das als Kopiervorlage für die anderen Tabellenblätter dient.
Es legt mir zwar die richtige Anzahl an Tabellenblätter an, sie werden aber leider nicht beschriftet. Hat jemand eine Idee?
PS: Ich musste " 'ActiveSheet.Name = CStr(Cells(2, 1))" aus der Berechnung raus nehmen, da ich da immer eine Fehlermeldung bekam. Hat das vielleicht was mit dem Namen zu tun?

Sub Kundenblaetter_anlegen()
Dim rngMuster As Range, calcOld As XlCalculation, zz As Long, ss As Long
Dim Calc As XlCalculation
Calc = Application.Calculation: Beschleuniger xlCalculationManual
Set rngMuster = Sheets("Tabelle3").Columns("A:K")
With Sheets("Tabelle1")
For zz = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
For ss = 2 To Sheets.Count
If Sheets(ss).Name = CStr(.Cells(zz, 2)) Then
MsgBox "Blatt '" & .Cells(zz, 2) & "' bereits vorhanden.", vbInformation
Exit For
End If
Next ss
If ss > Sheets.Count Then
Worksheets.Add after:=Sheets(Sheets.Count)
rngMuster.Copy Cells(1, 1)
Cells(2, 1) = .Cells(zz, 1)
'ActiveSheet.Name = CStr(Cells(2, 1))
End If
Next zz
End With
Beschleuniger Calc
End Sub
'   Beschleuniger _______ Parameter: Calc-Status ______ gi/12.03.2006
'        Aufruf:
'           Dim Calc As XlCalculation
'           Calc = Application.Calculation: Beschleuniger xlCalculationManual
'           ....Code....
'           Beschleuniger Calc
Sub Beschleuniger(Optional StatCal As Long = xlCalculationAutomatic)
With Application
.Calculation = StatCal
.ScreenUpdating = (StatCal  xlCalculationManual)
.EnableEvents = (StatCal  xlCalculationManual)
End With
End Sub

Anzeige
AW: Tabellenblätter automatisch erstellen und benennen
26.02.2015 13:23:10
Bonduca
Kann mir keiner weiter helfen? Ich bekomme die automatische Beschriftung der Tabellenblätter nicht hin. :(

310 Forumthreads zu ähnlichen Themen

Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Anzeige
Blatt gegen neues Blatt tauschen, Formeln defekt
Kasimir

Hallo Leute,
eventuell wisst Ihr wie ich mein Problem lösen kann. Ich habe eine Datei mit vielen Formeln, die sich auch auf andere Tabellenblätter der Datei beziehen. Nun muss ich ein Tabellenblatt gegen ein anderes austauschen. Mein Problem ist nun, wenn ich das eine Blatt lösche, werden i...
04.03.2009 08:31:47
Thread-ID: 1056166
7 Beiträge
Kopiertes Tabellenblatt aus Vorlage speichern
Bertram

Hallo zusammen,
ich bekomme seit Neuestem beim Speichern einer Datei (mittels VBA) manchmal eine Fehlermeldung. Ich habe zwar schon im Archiv gesucht, aber nix gefunden. Wahrscheinlich liegt's an meinen Suchbegriffen, denn ich hab die Fehlermeldung noch nie vorher gesehen und weiß nicht, wi...
05.03.2009 12:20:42
Thread-ID: 1056776
11 Beiträge
Anzeige
Arbeitsmappeen aus liste erstellen
Clemens

Guten Morgen werte Liste,
Ich sehe mich gerade mit folgendem Office2003 Problem konfrontiert:
mir liegt eine große Liste vor, anhand derer ich Arbeitsmappen und Tabellenblätter erstellen soll.
Konkret sieht die List folgendermaßen aus
Spalte A
Arbeitsmappenname1
Tabelle...
25.05.2009 11:45:08
Thread-ID: 1077111
4 Beiträge
aus Excel Liste Dateien erstellen
andi

Hi ihr,
ich muss folgendes machen für Scheffe:
Eine Excel "Datenbank" mit 1000 Datensätzen. Eine Spalte besteht aus ID (eindeutig) eine andere aus Farben. Nun soll ich aus jeder Zeile einen Dateinamen mit .html generiern - also z.B. 122blau.html. Geht das irgendwie mit einem Makro?
...
21.06.2009 23:44:16
Thread-ID: 1083348
7 Beiträge
Dynamische Auswahlliste erstellen
Kay

Hallo Liste,
Ich brauche mal einen Denkanstoß.
Ich möchte eine Auswahlliste erstellen die nur die Zellen aus der Spalte M enthält die in Spalte N den Wert J haben.
Zellenbereich M2:N150 in Tabelle2
Die Zellen der Spalte M haben folgende Formel.
M2 =A2&“ “&B2&...
19.08.2009 21:01:01
Thread-ID: 1097219
3 Beiträge
Aus liste Strukturierte übersicht erstellen
Timo

Hallo Zusammen,
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Kategorie | Aktivität | Detailbeschreibung
BHB Erstellung BHB BHB für Citrix
Notes Anpassung WF Anpassung des Workflows für Notes 7
BHB Anpassung BHB A...
09.09.2009 22:23:52
Thread-ID: 1101621
2 Beiträge
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 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
20
1
6
10
5
3
6
2
1
10
2
7
3
4
3
7
2
5
1
4
4
5
3
4
2