Tabellenblätter variabel erstellen
13.08.2020 12:48:17
David
habe ein Tabellenblatt ("Anfrage") auf welchem Farben, Farbnummern und Farbzuschnitte eingetragen werden können.
Die Farbnamen stehen in D33:M33, die Nummern in der Zeile darüber D32:M32 und die Infos über die Zuschnitte
(ZS1 - 4) in E, G, I und K94, 96 und 98.
Desweiteren gibt es noch die Tabellenblätter "ÜB", "MAT" und "FERT".
Habe auch mal eine Dummydatei erstellt, welche das ganze veranschaulicht. Diese Datei ist natürlich sehr abgespeckt, aber die wichtigsten Inhalte stehen an der selben Stelle wie im Original später auch.
-> https://www.herber.de/bbs/user/139605.xlsx
Nun folgender Sachverhalt, es soll wie folgt ablaufen:
1. Der Ausgangspunkt ist das Blatt "Anfrage". Hier wird zuerst die Anzahl der Farben
(entweder Farbname oder Farbnummer, geht beides) geprüft (maximal zehn Farben) und die Anzahl der Zuschnitte (maximal vier)
2. Wenn die Anzahl der Zuschnitte und Farben festgestellt wurde, werden die Tabellenblätter ("ÜB", "MAT" und "FERT")
für jede Farbe kopiert und für jeden Zuschnitt. Sprich in der Dummydatei sind es zwei Farben (rot und grün) und jeweils vier Zuschnitte.
Zuerst sollen die drei Blätter für die Farbe rot für jeden Zuschnitt kopiert und erstellt werden, sprich es gibt nachher 12 Tabellenblätter für die Farbe rot (4x "ÜB", 4x "MAT" und 4x "FERT")
Anschließend sollen die Tabellenblätter wie folgt benannt werden:
"Name des Tabellenblattes (ÜB; MAT; FERT) - Farbnummer - Zuschnitt"
Eventuell etwas schwer erklärt von mir, daher hier mal das komplette Beispiel für die Farbe grün der Dummydatei:
"ÜB - 93645 - ZS1", "MAT - 93645 - ZS1", "FERT - 93645 - ZS1"
"ÜB - 93645 - ZS2", "MAT - 93645 - ZS2", "FERT - 93645 - ZS2"
"ÜB - 93645 - ZS3", "MAT - 93645 - ZS3", "FERT - 93645 - ZS3"
"ÜB - 93645 - ZS4", "MAT - 93645 - ZS4", "FERT - 93645 - ZS4"
-> Dieses Spiel sollte nun für die anderen Farben ebenfalls vorgenommen werden.
-> In der Dummydatei sind die bereits vorhandenen Tabellenblätter grün eingefärbt, die Blätter, welche erstellt werden sollen, sind leicht orange hervorgehoben.
3. Es sollen jeweils die -Werte der Zuschnitte aus der "Anfrage" in die entsprechenden Blätter "ÜB" kopiert werden.
Sprich der Wert aus E94 ("Anfrage") soll bei "ÜB - 93645 - ZS1" in E61 kopiert werden, der Wert aus G94 in "ÜB - 93645 - ZS2" usw.
Folgenden Code habe ich bereits (das hat bisher nur die Tabellenblätter entsprechend der
Anzahl der Farbnamen kopiert und erstellt)
Sub kurzerQuellcode()
Application.ScreenUpdating = False
Dim wsAnfrage As Worksheet, wsUeb, wsMat, wsFert
Dim rng As Range
Set wsAnfrage = ThisWorkbook.Worksheets("Anfrage")
set wsUeb = ThisWorkbook.Worksheets("ÜB")
Set wsMat = ThisWorkbook.Worksheets("MAT")
Set wsFert = ThisWorkbook.Worksheets("FERT")
For Each rng In wsAnfrage.Range("D33:M33")
If Not IsEmpty(rng) Then
wsUeb.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = wsUeb.Name & " " & rng.Text
wsMat.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = wsMat.Name & " " & rng.Text
wsFert.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = wsFert.Name & " " & rng.Text
End If
Next rng
Sheets("Anfrage").Select
Application.ScreenUpdating = True
End Sub
Falls noch Unklarheiten oder Fragen sind, gerne melden.
Vorab vielen Dank!
David
