Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter mittels Vorlage automatisch erstellen

Blätter mittels Vorlage automatisch erstellen
20.02.2018 13:18:59
sascha
Hallo zusammen,
ich hab hier eine Mappe für unsere Instandhaltungsplanung. Auf jedem Blatt wird die Wartung und Reparatur für eine Maschine geplant. Im Blatt "Aktuelles Halbjahr" werden alle Maschinen zur Übersicht in vorm eines Gant-Diagrammes abgebildet.
Zum vereinfachen beim Erstellen der Blätter wäre es super, wenn die Blätter sich nach dem Blatt "Vorlage" automatisch erstellen und die Namen aus der Liste "Aktuelles Halbjahr Spalte F, Zeile 7 vergeben werden.
Wenn schon ein Blatt mit dem Namen vorhanden ist, soll es einfach übersprungen werden.
Mit VBA hab ich bisher nur über den Makrorecorder gearbeitet und kenne mich sonst nicht damit aus.
Hier ist die abgespeckte Datei:
https://www.herber.de/bbs/user/119934.xls
Vielen Dank im Voraus.
Sascha

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter mittels Vorlage automatisch erstellen
20.02.2018 16:09:19
Rainer
Hallo Sascha,
füge das in ein Modul ein:
Sub Blätter_Erstellen()
Dim sht As Worksheet
Dim shtNew As Worksheet
Dim shtVorlage As Worksheet
Dim LastRow As Long
Set sht = Sheets("Aktuelles Halbjahr")
Set shtVorlage = Sheets("Vorlage")
i = 7 'Erste Zeile
While sht.Cells(i, 6)  ""
shtVorlage.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set shtNew = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
On Error Resume Next ' Fehler kommt, wenn Blatt existiert
shtNew.Name = sht.Cells(i, 6)
If Err.Number  0 Then
Application.DisplayAlerts = False
shtNew.Delete
Err.Clear
Application.DisplayAlerts = True
End If
i = i + 2       '2 Zeilen springen
Wend
End Sub
Gruß,
Rainer
Anzeige
AW: Blätter mittels Vorlage automatisch erstellen
21.02.2018 10:36:31
Sascha
Hallo Rainer,
vielen Dank für die Hilfe. Es funktioniert so wie es funktionieren soll.
Irgendwann werd ich es schaffen mich mal mehr mit VBA zu beschäfftigen.
Gruß und schönen Tag noch,
Sascha
AW: Blätter mittels Vorlage automatisch erstellen
22.02.2018 09:19:58
Sascha
Hallo Rainer,
ich hab da noch eine Frage zu deinem Code:
While sht.Cells(i, 6) ""
shtVorlage.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set shtNew = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
On Error Resume Next ' Fehler kommt, wenn Blatt existiert
shtNew.Name = sht.Cells(i, 6)
(i, 6) steht ja dafür, das die Namen für die Blätter in der 6 Spalte stehen.
Ist es möglich die Blattnamen aus den Spalten 3 und 4 zu erzeugen? Vielleicht sogar mit einem Trennzeichen? In etwas so wie:
Spalte 3 = 6040; Spalte 4 = 08; Blattname = 6040-08;
Gruß Sascha
Anzeige
AW: Blätter mittels Vorlage automatisch erstellen
22.02.2018 14:17:21
Rainer
Hallo Sascha,
ja klar geht das:
shtNew.Name = sht.Cells(i, 6)

musst du ersetzen durch 
shtNew.Name = sht.Cells(i, 3) & "-" & shtNew.Name = sht.Cells(i, 4)
Gruß,
Rainer
AW: Blätter mittels Vorlage automatisch erstellen
23.02.2018 07:25:31
Sascha
Hallo Rainer,
wenn ich den Code wie von dir vorgeschlagen ändere, erstellt excel mir nur ein neues Blatt mit dem Namen "Falsch".
So sieht der Code aus:
While sht.Cells(i, 6) ""
shtVorlage.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set shtNew = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
On Error Resume Next ' Fehler kommt, wenn Blatt existiert
shtNew.Name = sht.Cells(i, 3) & "-" & shtNew.Name = sht.Cells(i, 4)

Muss ich in der ersten Zeile auch die 6 ändern?
Gruß Sascha
Anzeige
AW: Blätter mittels Vorlage automatisch erstellen
23.02.2018 07:53:10
Rainer
Hallo Sasche,
nein, ich denke nicht. Die erste Zeile prüft nur, ob das Feld leer ist. Wenn das erste leere Feld gefunden wird, dann ist die Tabelle zu Ende.
Ich habe einfach einen Copy&Paste Fehler gemacht. Ich sollte nicht mehr vom Handy aus tippen...
So ist es richtig:
shtNew.Name = sht.Cells(i, 6)
musst du ersetzen durch
shtNew.Name = sht.Cells(i, 3) & "-" & sht.Cells(i, 4)
AW: Blätter mittels Vorlage automatisch erstellen
23.02.2018 10:16:37
Sascha
Jetzt funktioniert es.
Vielen Dank.
AW: Blätter mittels Vorlage automatisch erstellen
23.02.2018 11:46:15
Rainer
Danke für die Rückmeldung und viel Spaß damit.
Lass was hören wenn du weitere Hilfe brauchst.
Rainer

300 Forumthreads zu ähnlichen Themen

Tabellenblätter automatisch erstellen
Bernhard

Hallo,
ich würde gerne Tabellenblätter in einem Excel-Sheet automatisch erstellen und durchnummieren.
Im ersten Sheet habe ich manuell bereits "Berechnung" eingegeben, Sheet 2 hat die Bezeichnung "3". Sheet 3 soll dann die Bezeichnung "4" erhalten usw.
Ich würde gerne Tabellenblätte...
20.09.2010 10:44:26
Thread-ID: 1178519
3 Beiträge
Anzeige
Neues Blatt automatisch anlegen und ausfüllen
Philipp

Moin.
Ich habe ein kleines problem. Ich baue grade für meine firma eine Liste für uns intern.
Folgendes:
Ich habe eine Übersichtsseite in der Namen kosten daten usw angezeigt werden, wenn ich jetzt in zelle A8 einen neuen namen eintrage, möchte ich das ein neues blatt erstellt wird...
25.11.2014 10:44:38
Thread-ID: 1394369
7 Beiträge
Tabellenblätter automatisch erstellen und benennen
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ß...
24.02.2015 19:51:33
Thread-ID: 1411292
5 Beiträge
Anzeige
Kalenderblatt automatisch per Hyperlink erstellen
Schiermeier

Hallo zusammen,
ich habe da mal eine Frage, ob so was in Excel funktionieren könnte und wenn ja dann wie man es umsetzt.
Ich habe ein Tabellenblatt auf dem untereinander alle Monate in Jahren aufgeteilt stehen und für jedes Jahr ein Kalenderblatt was versteckt ist und mit einem Hyperlin...
11.11.2016 11:49:55
Thread-ID: 1524227
15 Beiträge
Tabellenblätter automatisch erstellen und füllen
Daniel

Hallo zusammen,
im alten Thread kann ich keine Antwort erstellen, darum die Frage nochmal neu und konketer formuliert.
Ich kann das auch gerne noch spezifizieren:
Ich habe eine Excelliste mit einer Tabelle1. Die Daten sind wie folgt dort eingetragen:
Mannschaft1 Spieler1
Man...
19.07.2019 09:23:38
Thread-ID: 1703183
7 Beiträge
Tabellenblatt automatisch nach Liste erstellen.
Gerold

Hallo,
gibt es eine Möglichkeit nach einer vorgegebenen Liste
mit Namen (Beispiel:Hans,Michael,Franz) automatisch einzelne Tabellenblätter zu erstellen.Für Eure Hilfe im voraus schon mal besten Dank.



26.12.2002 09:44:41
Thread-ID: 196469
3 Beiträge
Tabellenblatt automatisch erstellen
Gerold Dornbusch

Hallo,
gibt es eine Möglichkeit anhand einer Namensliste automatisch
für jeden Namen ein eigenes Tabellenblatt zu erstellen.Für Eure Hilfe im voraus schon mal besten Dank.

26.12.2002 11:26:55
Thread-ID: 196488
5 Beiträge
Beim speichern neues Arbeitsblatt erstellen
Peter S.
Hallo Excelaner, ich bearbeite jeden Tag die gleiche Tabelle.
Nun möchte ich wenn die Bearbeitung fertig ist diese Tabelle unter dem aktuellen Datum als Tabellenblatt speichern.
Kann man das so machen,da das aktuelle Datum in Zelle C4 besteht das dieses benutzt wird. Also Tabelle1 bearbeitet...
22.01.2004 11:54:25
Thread-ID: 368762
9 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
6
6
4
6
14
6
2
4
8
8
1
3
9
2
3
18
20
1
6
10
5
3
6
2