Aus einer Liste Sheets generieren

Hallo :-)
Ich hab eine Herausforderung...
Die Sache ist die:
Ich habe eine Tabelle, in der verschiedene Werte stehen und ich hab eine Vorlage, in die diese Werte müssen.
Und zwar für jeden Namen der in der Ausgangstabelle steht.
Ich weiß nicht, ob ich das korrekt erklären kann...
Ich hänge ohnehin noch eine Bsp.-Datei an.
Grundsituation:
Es existiert ein Sheet "Werte" mit einer Tabelle mit 4 Spalten:
Name, Name2, Nr. und Code
Es existiert ein zweites Sheet "Vorlage", das bereits bestimmte Vorgaben enthält, wo die entsprechenden Werte aber ergänzt werden müssen.
Franz fra 12 556987
Xaver xav 25 223698
Braun bra 98 136984
Maria mar 77 889655
Jetzt soll für "Franz" ein Sheet generiert werden, dass "fra" heißt und in dem die entsprechenden Werte, die zu "Franz" gehören an den vordefinierten Stellen des Sheets abgelegt werden sollen.
Wenn das fertig ist, soll ein Sheet "xav" erstellt werden für Xaver und so weiter...
Ich hab hier 4 Namen genommen - tatsächlich sind das aber sehr viel mehr.
Das Ziel soll sein, dass ich am Ende alle diese Sheets als PDF in einem bestimmtem Ordner abspeichern kann.
Kann mir jemand helfen?
Danke schon im Voraus...
MfG
Daniel
https://www.herber.de/bbs/user/127414.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Blatt_anlegen() Dim loLetzte As Long, i As Long Application.ScreenUpdating = False With Worksheets("Werte") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row For i = 2 To loLetzte Worksheets("Vorlage").Copy after:=ThisWorkbook.Worksheets(Sheets.Count) With ActiveSheet .Name = Worksheets("Werte").Cells(i, 2) .Range("A1, B34:B36") = Worksheets("Werte").Cells(i, 1) .Range("E10") = Worksheets("Werte").Cells(i, 2) .Range("G10,C34:C36") = Worksheets("Werte").Cells(i, 3) .Range("E20,E27") = Worksheets("Werte").Cells(i, 4) End With Next i End With End Sub

Hallo Daniel,
dann halt ein zweites Makro.
Mit dem ersten Makro erstellst du deine Blätter. Anschließend kannst du dann ja an den Blättern deine Änderungen durchführen.
Bist du damit fertig, dann lässt du die Blätter als PDF speichern und löschst dabei die zuvor erstellten Blätter gleich wieder.

Public Sub PDF_erzeugen()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Werte", "Vorlage"
'nix machen
Case Else
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" _
& ws.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End Select
Next ws
End Sub

Hinweis:
-die PDF-Dateien werden im gleichen Verzeich gespeichert in der auch die Excel-Datei ist
-die PDF-Dateien erhalten den gleichen Namen wie das jeweilige Tabellenblatt
-hast du noch weitere Blätter, die nicht als PDF gespeichert werden sollen dann mußt du sie hier

Case "Werte", "Vorlage"

noch zusätzlich mit aufführen
-lässt du das Makro erneut laufen und erzeugst wieder Blätter mit den gleichen Namen, dann werden beim Erzeugen der PDF die bereits vorhandenen PDF kommentarlos überschrieben
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Aus einer Liste Sheets generieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread