Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA neue Arbeitsmappe erzeugen

Forumthread: VBA neue Arbeitsmappe erzeugen

VBA neue Arbeitsmappe erzeugen
11.07.2014 00:50:43
Uwe
Hallo,
habe folgendes Problem
Meine Arbeitsmappe "Ursprung" hat 123 Register
In Tabelle1 stehen Daten, welche für Tabellen 3 bis 123 notwendig sind.
In Tabelle2 Spalte B Zeile 6 bis 126 stehen die 120 Namen der Tabellen 3 bis 123.
Die Zellen der Tabellen 3 bis 123 werden über SVERWEIS individuell mit Daten aus Tabelle1 versorgt.
Ich benötige ein Makro, welches x neue Arbeitsmappen erzeugt.
Z.B. heißt in "Ursprung" die 3. Tabelle Messung1.
Die neue Arbeitsmappe soll Messung1.XLS heißen.
In der neuen Arbeitsmappe Messung1.XLS soll dann wiederum
die Tabelle "Messung1" aus "Ursprung" stehen.
Aber nur mit den Ergebnissen aus den SVERWEISEN,
keine Bezüge nach "Ursprung", Schriftfuß etc. soll aber bleiben.
Weil nicht immer alle Arbeitsmappen erzeugt werden sollen,
muss in "Ursprung" "Tabelle2" in Spalte C Zeile 6 bis 126
mit x die zu erzeugende Arbeitsmappe angewählt werden.
Die neuen Arbeitsmappen sollen im gleichen Verzeichnis von "Ursprung" abgelegt werden.
Falls eine neu zu erzeugende Arbeitsmappe bereits existiert,
soll eine MSG-Box zum überschreiben Ja / Nein kommen.
Habe versucht aus einzelnen Beiträge mir etwas zusammenzubauen, bin aber gescheitert.
Vielen Dank für eure Hilfe
mit freundlichen Grüßen
Uwe

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA neue Arbeitsmappe erzeugen
11.07.2014 07:53:34
Martin
Hallo Uwe,
ich hoffe, dass ich alles korrekt verstanden habe:
Sub WorkbookExport()
Dim i As Integer
Dim wbkOpen As Workbook
Dim strFileName As String
With ThisWorkbook
For i = 6 To 126
If .Worksheets(2).Cells(i, 3) = "x" Then
'Dateiname von Tabellenblatt
strFileName = .Worksheets(i - 3).Name & ".xls"
'Dateien mit dem Namen schließen
For Each wbkOpen In Workbooks
If wbkOpen.Name = strFileName Then
wbkOpen.Close SaveChanges:=False
Exit For
End If
Next
'Tabelle kopieren
.Worksheets(i - 3).Copy
'Formels durch Werte ersetzen
With ActiveSheet.UsedRange
.Cells = .Cells.Value
End With
'neue Arbeitsmappe speichern
On Error Resume Next
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & strFileName
On Error GoTo 0
'falls neue Datei geschlossen werden soll
'ActiveWorkbook.Close
End If
Next i
End With
End Sub
Viele Grüße
Martin

Anzeige
AW: VBA neue Arbeitsmappe erzeugen
11.07.2014 08:27:24
Uwe
Hallo Martin,
das Makro "Export" funktioniert einwandfrei.
vielen Dank.
Eine Sache habe ich noch vergessen:
In Arbeitsmappe "Ursprung" befindet sich ein Makro mit dem Namen "Makro1"
dieses Makro wird auch in den neuen Arbeitsmappen benötigt.
Kannst Du mir bitte Dein Makro entsprechend erweitern?
nochmals vielen Dank
Uwe

Anzeige
AW: VBA neue Arbeitsmappe erzeugen
11.07.2014 09:17:41
Martin
Hallo Uwe,
bitte wechsle in den VBA-Editor (Alt+F11) und exportiere das Modul mit dem benötigten Makro1. Anschließend passt du in folgendem Makro noch den Dateipfad zu dem exportierten Modul an (Zeile strImportModul = "c:\..."):
Sub WorkbookExport()
Dim i As Integer
Dim wbkOpen As Workbook
Dim strFileName As String
Dim strImportModul As String
'Dateipfad für Makromodul anpassen
strImportModul = "C:\Programme\Microsoft Office\OFFICE11\Modul1.bas"
With ThisWorkbook
For i = 6 To 126
If .Worksheets(2).Cells(i, 3) = "x" Then
'Dateiname von Tabellenblatt
strFileName = .Worksheets(i - 3).Name & ".xls"
'Dateien mit dem Namen schließen
For Each wbkOpen In Workbooks
If wbkOpen.Name = strFileName Then
wbkOpen.Close SaveChanges:=False
Exit For
End If
Next
'Tabelle kopieren
.Worksheets(i - 3).Copy
ActiveWorkbook.VBProject.VBComponents.Import (strImportModul)
'Formeln durch Werte ersetzen
With ActiveSheet.UsedRange
.Cells = .Cells.Value
End With
'neue Arbeitsmappe speichern
On Error Resume Next
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & strFileName
On Error GoTo 0
'falls neue Datei geschlossen werden soll
'ActiveWorkbook.Close
End If
Next i
End With
End Sub
Viele Grüße
Martin

Anzeige
AW: VBA neue Arbeitsmappe erzeugen
11.07.2014 12:30:15
Uwe
Hallo Martin
habe Dich nicht verstanden.
Das Makro steht doch in "Ursprung"
anbei meine Datei
https://www.herber.de/bbs/user/91472.xlsm
Die neuen Dateien sollen nur Makro1 und natürlich das Register enthalten.
mfG
Uwe

Anzeige
AW: VBA neue Arbeitsmappe erzeugen
11.07.2014 14:00:32
Martin
Hallo Uwe,
du hattest geschrieben: 

In Arbeitsmappe "Ursprung" befindet sich ein Makro mit dem Namen "Makro1"
Du sollst einmalig das Modul mit dem darin enthaltenen Makro in eine externe Datei exportieren:
Userbild
Das von mir geschriebene Makro soll dein Makro1 dann immer aus der exportierten bas-Datei in die jeweils neu angelegte Arbeitsmappe importieren.
Viele Grüße
Martin
Anzeige
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Neue Arbeitsmappe aus AddIn erstellen
wernernico

Hallo,
ich hab da mal wieder ein kleines Problem...
Ich habe ein AddIn, das neben Code auch mehrere Tabellenobjekte enthält. Nun möchte ich ein neues WorkBook erstellen, das die Tabellen aus dem AddIn enthält. Ich habe es bisher auf folgende Weise probiert:
Set Tempbook = DieseArbei...
06.10.2008 09:55:00
Thread-ID: 1014338
3 Beiträge
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 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
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Daten per VBA in neue Datei übertragen
Russi

Hallöle!Ich habe mehrere Excel-Dateien, die alle gleich aufgebaut sind. Dort führe ich verschiedene Terminlisten (Spalte A Datum/Uhrzeit, Spalte B Termingrund, Spalte C Termindauer etc)Ich möchte diese Daten aus diversen Excel-Dateien bequem per VBA in einer neuen Excel-Datei in einer Tabelle z...
18.06.2002 14:48:52
Thread-ID: 129569
7 Beiträge
Daten durch VBA filtern und in neue Datei kopieren
Julia

Hi,
ich habe das Problem, dass man in Pivottabellen aus irgendeinen Grund den Filter nicht teilweise sperren kann. Soll heißen ich habe eine Buchhaltungsdatei die sämtliche Rechnungen etc. enthält. Eine Spalte gibt die Abteilung an und eine die Unterabteilungen. Jeder Abteilungsleiter soll...
04.07.2013 14:09:38
Thread-ID: 1321094
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige