Button: Neue Arbeitsmappe gem. Vorlage

Hallo liebe Forengemeinde,
kurz zu mir: Matthias aus Wien und dankbar für jede Hilfe, da ich leider noch nie mit Makros zu tun hatte.
Mir stellt sich folgendes Problem:
Arbeitsmappe A hat folgende Struktur:
Fortlaufende Nummer - Datum - Titel (Link Sharepoint) - Name - Datum 1 - Datum 2 - Datum 3 - Datum 4
Nun soll, sobald in der jeweiligen Zeile mit der fortlaufenden Nummer "Datum" "Titel" und "Name" befüllt wurden, in Arbeitsmappe A ein Button gedrückt werden, dessen Makro folgendes ausführen soll:
Bei Drücken des Buttons:
- Abfrage ob ein neues Excel File erstellt werden soll. (Ja/Nein)
- Wenn ja: Erstellung von Arbeitsmappe B gemäß Template/Vorlage X.
- Außerdem: Automatische Befüllung ausgewählter Zielzellen der Vorlage / Arbeitsmappe B mit den jeweils oben genannten Variablen "Datum", Titel, Name
- Gleichzeitig: Erzeugen eines Links zu Arbeitsmappe B in Arbeitsmappe A unter der Variable "Titel" (Titel wird mit Link hinterlegt)
- "Datum 1 bis 4" sollen von Arbeitsmappe B (Leerfelder, bis Datum eingetragen wird) automatisch in Arbeitsmappe A in die jeweilige Zeile zurückgespielt werden.
Ich hoffe, es ist halbwegs verständlich dargestellt.
Bin wie gesagt über jede Hilfe äußerst dankbar!
Falls ihr generell Tipps / Links zum Einlesen/Einlernen von Visual Basic habt bitte lasst mir diese zukommen :)
Glg Matthis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Klaus,
danke vorweg für Deine schnelle Rückmeldung / Hilfestellung! :)
Um nicht ganz untätig zu sein bzw. das Gefühl zu haben Euch "auszunutzen", habe ich mich gestern mal ein wenig mit div. Codefolgen beschäftigt.
Nochmal zur Erklärung, ich habe 3 Dateien:
Übersichtsdatei
Templatedatei
Arbeitsdatei
Anbei die drei Dateien, soweit bin ich bisher gekommen:
- Template Datei wird kopiert
- Template Datei wird gemäß Zelle X umbenannt und dient anschließend als Arbeitsdatei
- Daten aus Übersichtsdatei werden in Arbeitsdatei kopiert.
Mir fehlt noch folgendes:
- Der eine Makro Button soll für jede neu hinzugefügten Zeile in der Übersichtsdatei (Laufende Nr,Titel, Bearbeiter, Betreuer,....) eine neue Arbeitsdatei aus dem Template generieren und gem. dem neuen Titel umbenennen. (Evtl. auch eine Kontrolle einbauen, falls unabsichtlich ein zuvor verwendeter Titel angegeben wird, damit keine bereits durchs Makro erstellte Arbeitsdatei überschrieben wird). Derzeit ist im Makro Code leider eine Fixzelle (Titel) hinterlegt.
- Sobald die Arbeitsdatei erstellt wurde, soll der Titelname in der Übersichtsdatei zum Hyperlink umgewandelt werden.
- Wenn in Zelle Q2 ein Datum eingetragen wird, soll dieses automatisch in Zelle F3 der Übersichtsdatei erscheinen.
- Daten aus Übersichtsdatei werden zwar in Arbeitsdatei kopiert, derzeit sind aber eben auch da Fixzellen eingetragen. Der Code soll respektive aber immer weiterspringen in die nächste Zeile / sobald ein neues YB erstellt wird.
- Ist es außerdem möglich die Daten aus der Übersichtsdatei (Titel, Datum, Bearbeiter) mit der neu generierten Arbeitsdatei generell zu verlinken, sodass bei einer potentiellen Änderung von Titel, dies automatisch in der Übersichtsdatei/Arbeitsdatei angepasst wird?
Der Makrocode müsste mir dann also generell eine Verlinkung erstellen nach dem ganzen Kopieren.
Anbei die Files
https://www.herber.de/bbs/user/143067.xlsx
https://www.herber.de/bbs/user/143068.xlsm
https://www.herber.de/bbs/user/143069.xlsx

Sub Kopieren() 'Abfrage Datei erstellen MESSAGEBOX Dim iClick As Integer iClick = MsgBox( _ prompt:="Ja oder nein?", _ Buttons:=vbYesNo, _ Title:="Neues YellowBelt erstellen?") If iClick = vbYes Then 'Kopieren und Umbenennen: Template in neuen Ordner & Benennen gemäß Titel Zelle Dim tFolder As String Dim newFileName As String Dim myRow As Long myRow = ActiveCell.Row tFolder = "h:\herber\" newFileName = "MyFile_" & Cells(myRow, 1).Value & ".xlsx" 'Laufende Nummer 'Werte rüber ziehen Range(Cells(myRow, 2), Cells(myRow, 4)).Copy Sheets("Muster").Range("L2").PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("Muster").Copy 'Neues Workbook erstellen, ist automatisch aktiv ActiveWorkbook.SaveAs Filename:=tFolder & newFileName ActiveWorkbook.Close Range("F" & myRow).Value = Now 'Datum einfügen Range("H" & myRow).FormulaR1C1 = "=HYPERLINK(""" & tFolder & newFileName & """,""" & _ newFileName & """)" 'MessageBox Meldung, dass YellowBelt erstellt wurde MsgBox "YellowBelt erstellt" ElseIf iClick = vbNo Then End If End Sub

Beliebteste Forumthreads (12 Monate)

Button: Neue Arbeitsmappe gem. Vorlage

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button: Neue Arbeitsmappe gem. Vorlage

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread