Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

x Blankodateien generieren und abspeichern

Forumthread: x Blankodateien generieren und abspeichern

x Blankodateien generieren und abspeichern
Stefan
Hallo Forum,
ich habe eine Tabelle in der in A1 ein Verzeichnispfad steht und ab A2 bis... eine Liste mit Dateinamen. Jetzt möchte ich per Makro neue Blanko Arbeitsmappen erstellen und diese alle im Verzeichnis (A1,...siehe oben) abspeichern.
Für Hinweise und Tipps bin ich sehr dankbar.
Viele Grüße, Stefan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 16:50:03
Original
Hi,
Vorausgesetzt in A1 steht der Pfad einschließlich abschließenden Backslash und die Dateinamen
in den Zellen ab A2 lückenlos einschließlich Extension(z.B. Mappe1.xls) und die Dateinamen
sind Unikate, dann so:
Sub Blanko()
Dim z As Long, lz As Long, rc As Long, Wb As Workbook
rc = Rows.Count
lz = IIf(Cells(rc, 1)  "", rc, Cells(rc, 1).End(-4162).Row)
Application.ScreenUpdating = 0
For z = 2 To lz
Set Wb = Workbooks.Add
Wb.SaveAs Tabelle1.[a1].Text & Tabelle1.Cells(z, 1).Text
Wb.Close
Set Wb = Nothing
Next
Application.ScreenUpdating = -1
End Sub
Ohne Fehlerprüfung, ob die Datei bereits im angegebenen Verzeichnis vorkommt.
mfg Kurt
Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 17:02:03
fcs
Hallo Stefan,
geht etwa so wobei du dich noch entscheiden muss, auf welcher Basis die neuen Blätter erstellt werden sollen.
Im allgemeinen empfhielt es sich eine Mustervorlage zu verwenden, die schon alle Formatierungen und Seiteneinrichtuns-Einstellung enthält, die für alle Dateien identisch sein sollen.
Gruß
Franz
Ein entsprechendes Makro schaut wie folgt aus. 
Sub MakeNewFiles()
Dim wksListe As Worksheet, wbNeu As Workbook, Zeile As Long
Dim strPfad As String, strDatei As String
Set wksListe = ActiveSheet
With wksListe
strPfad = .Range("A1").Text
If Right(strPfad, 1)  Application.PathSeparator Then
strPfad = strPfad & Application.PathSeparator
End If
Application.ScreenUpdating = False
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
strDatei = strPfad & .Cells(Zeile, 1).Text
'neue Datei erstellen
'so wie mit den Einstellungen unter Excel für eine neue Datei
'    Set wbNeu = Workbooks.Add
'oder Datei mit einem Leertabellenblatt
Set wbNeu = Workbooks.Add(Template:=xlWBATWorksheet)
'oder auf Basis einer Mustervorlage
'    Set wbNeu = Workbooks.Add(Template:="C:\Vorlagen\Excel\MusterDatei.Dot")
With wbNeu
.SaveAs Filename:=strDatei, FileFormat:=xlWorkbook, addtomru:=False
.Close
End With
Next
Application.ScreenUpdating = True
End With
End Sub

Anzeige
AW: x Blankodateien generieren und abspeichern
01.09.2009 17:34:14
Stefan
Vielen Dank Euch Beiden! Es Klappt!
;

Forumthreads zu verwandten Themen

mtrans und variabler Zellbezug
Peter

Hallöchen an alle Excler,
dachte bisher, dass ich mich recht gut auskenne in Excel, aber wie immer wird man des öfteren eines besseren belehrt.
Folgende Formel habe ich:
{=SUMMENPRODUKT((T(INDIREKT(""&MTRANS(Aktionen!$A$2:$A$5)&"!A"&ZEILE($1:$100)))=A4) *(N(INDIREKT(""&a...
20.09.2008 13:28:45
Thread-ID: 1011196
3 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 Beiträge
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Anzeige
differenz von konstanter und variabler zelle
konstanter

hallo zusammen,
brauche dringend hilfe von profis.
ich habe eine tabelle, in der ich wöchentliche zahlen von einer konstanten abziehen muß. das sieht ungefähr so aus, dass in zelle a3 eine konstante zahl habe und eine matrix mit wochen (c5;e5;g5;i5;k5 usw) für ca ein halbes jahr habe....
22.01.2009 21:45:16
Thread-ID: 1042742
5 Beiträge
Anzeige
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
6 Textboxen untereinander abstimmen
Andreas

Hi
Habe in einer Userform 6 Textbox für das ausfüllen (Anteilsinhaber) und 6 Textboxen für die
jeweiligen Anteile in %.
Diese Werte schreibe ich in eine Tabelle.
Da die Anteile zusammengerechnet nie über 100 % kommen dürfen, habe ich mit der Gültigkeit versucht, daß die einzel...
28.01.2009 21:00:27
Thread-ID: 1044723
16 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Wert eines Labels (Userform) an Textbox
Robert

Hallo,
komme leider wiedermal nicht weiter und hoffe auf eure Hilfe.
Ich müsste den Wert eines Labels (in einer Userform) an eine TextBox (Steuerelement in Tabelle)
weitergeben.
Geht das überhaupt?
Vielen Dank schon mal..
Viele Grüße
Robert
13.02.2009 15:20:00
Thread-ID: 1050543
5 Beiträge
AND und OR Abfragen
Rolf

Hallo Leute,
Das Archiv gibt zwarschon viel her, aber trotzdem ist es irgendwie noch nicht ganz das wahre... Archiv=False ;)
also, ich habe auf einem UserForm1 verscheidene Option buttons von 1 bis 9, In Gruppen unterteilt: 1-3 und 4-9.
Nun möchte ich in einer If-Abfrage folgendes s...
19.02.2009 14:56:00
Thread-ID: 1052159
8 Beiträge
Anzeige
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Textvariable Textfeld und Rechteck
Klaus

Guten Abend Forum,
mit
bText = ActiveSheet.Buttons(Application.Caller).Caption
bekomme ich bei Klick auf den Button den Text des Buttons in eine Variable geschrieben.
Wie muss diese Zeile lauten für den Text
a) eines Textfeldes
b) eines Rechteckes (in dem z.B. mit =A1...
23.03.2009 18:40:00
Thread-ID: 1063011
4 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