Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Am 1.1. per VBA Ordner 2014 anlegen

Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 10:54:53
Bernd
Hallo zusammen,
Brauche Hilfe bei nachfolgendem Problem, komme einfach nicht weiter.
Und zwar möchte ich das automatisch beim ersten Öffnen der Arbeitsmappe im Ordner "D:\Firma\Schriftwechsel\" ein neuer Ordner mit der aktuellen Jahreszahl (2014) angelegt wird.
Wer kann mir behilflich sein?
Vielen Dank im Voraus!!!
Gruß
Bernd

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 11:01:35
Hajo_Zi
Hallo Bernd,
Option Explicit
Sub Anlegen()
Dim StrPfad As String
Dim strDesktop As String
StrPfad = "D:\Firma\Schriftwechsel\2014\"
strDesktop = Dir(StrPfad, vbDirectory)
If strDesktop = "" Then MkDir StrPfad
End Sub

AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 11:13:16
Bernd
Hallo Hajo,
Danke für deine Hilfe.
Zwei Fragen:
1. bedeutet "strDesktop", dass der Pfad auf dem Desktop abgelegt wird?
2. Wo muss ich den Code eingeben bzw. aus welcher Zeile geht hervor, dass beim ersten Öffnen der Arbeitsmappe im neuen Jahr der besagte Ordner angelegt wird.
Ich lerne sehr viel momentan und verstehe die Codes immer besser, deshalb meine beiden Fragen, da ich nicht alles verstehe.
Gruß
Bernd

Anzeige
AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 11:19:07
Hajo_Zi
Hallo Bernd,
ich benutze vorhanden Code. Es ist eine Variable. Auf dem Desktop wolltest Du nichts anlegen.
Du hast geschrieben beim öffnen, Du schreibst schon zig Beiträge, da bin ich davon ausgegangen das klar ist Open unter DieseArbeitsmappe.
Gruß Hajo

AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 12:08:03
Bernd
Hallo Hajo,
Danke!!!
Gruß
Bernd

AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 11:57:08
UweD
Hallo
so z.B.
Das ganze kann ohne Prüfung 01.01. geschehen...
Ist das Verz. noch nicht da, dann wird es erzeugt, egal wann im aktuellen Jahr
Das Makro in "DieseArbeitsmappe" reinkopieren.
Private Sub Workbook_Open()
Dim Pfad$, Jahr$
Pfad = "D:\Firma\Schriftwechsel\"
Jahr = Year(Date)
If Dir(Pfad & Jahr, vbDirectory) = "" Then MkDir Pfad & Jahr
End Sub

Gruß UweD

Anzeige
AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 12:07:16
Bernd
Hallo Uwe,
kurz und prägnant, für mich als Laie die beste Hilfestellung. Danke!!!
Sollten noch anstatt Ordner "Schriftwechsel" noch andere im laufe der Zeit hinzu kommen, reicht es dann aus im dem ich den Pfad mit "& D:\Firma\XXX\" ergänze, oder wie muss ich dann verfahren?
Gruß
Bernd

AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 12:26:43
UweD
Hallo nochmal.
dann so z.B.
Private Sub Workbook_Open()
Dim Pfad$(), I&, Anz&
Dim Jahr$
Anz = 3 ' ***anpassen
ReDim Pfad(Anz)
Jahr = Year(Date)
Pfad(1) = "D:\Firma\Schriftwechsel"
Pfad(2) = "D:\Firma\Rechnungen\"
Pfad(3) = "D:\Firma\Sonstwas\"
For I = 1 To Anz
If Dir(Pfad(I) & Jahr, vbDirectory) = "" Then MkDir Pfad(I) & Jahr
Next I
End Sub

Gruß UweD

Anzeige
AW: Am 1.1. per VBA Ordner 2014 anlegen
17.09.2013 12:36:31
Bernd
Hallo Uwe,
genau so sollte es werden. Danke auch dafür, dass du meine laienhaften Erklärungen verstehst, das ist nicht bei allen Helfern so, da Fragende oft einer anderen Logik folgen, da sie nicht über das Wissen der Helfer verfügen.
Nochmals ♥lichen Dank!!!
Gruß
Bernd

Abarbeitung von ARRAY-Variablen
17.09.2013 13:01:27
ARRAY-Variablen
Hallo Bernd, hallo UweD,
hier eine überarbeitete Version der ARRAY-Version des Codes :
Private Sub Workbook_Open()
Dim strPfad(), intI As Integer
Dim intJahr As Integer
intJahr = Year(Date)
strPfad = Array("D:\Firma\Schriftwechsel\", _
"D:\Firma\Rechnungen\", _
"D:\Firma\Sonstwas\")
For intI = LBound(strPfad) To UBound(strPfad)
If Dir(strPfad(intI) & intJahr, vbDirectory) = "" Then MkDir strPfad(intI) & intJahr
Next
End Sub
Salut, NoNet

Anzeige
ohne LBOUND/ UBOUND
17.09.2013 13:23:37
Rudi
Hallo,
so geht's auch. 
Private Sub Workbook_Open()
Dim arrPfad(), strPfad
Dim intJahr As Integer
intJahr = Year(Date)
arrPfad = Array("D:\Firma\Schriftwechsel\", _
"D:\Firma\Rechnungen\", _
"D:\Firma\Sonstwas\")
For Each strPfad In arrPfad
If Dir(strPfad & intJahr, vbDirectory) = "" Then MkDir strPfad & intJahr
Next
End Sub

Gruß
Rudi

AW: ohne LBOUND/ UBOUND
18.09.2013 12:41:52
Bernd
Hallo Ihr Beiden,
Danke, Danke. Ihr seid toll!!!!!!
Gruß
Bernd

178 Forumthreads zu ähnlichen Themen

Per VBA Ordner in anderem Laufwerk anlegen
strodti

Hallo liebes Forum,
unter C:\test\Projektordner habe ich eine Exceldatei mit nachstehendem Code, aus der ich für jeden Datensatz der Liste im selben Pfad je einen "Datensatz-Ordner" (z.B. C:\test\Projektordner\Ordner_a) anlegen bzw. kopieren lasse, sowie innerhalb dieser Ordner eine "Vorlag...
24.08.2010 21:28:42
Thread-ID: 1174048
5 Beiträge
Anzeige
Makro erweitern - Ordner aus Blattname erstellen
Ulf

Moin, moin
ich möchte meine Vorlage noch verfeinern, weiß aber nicht wie.
Im Blatt "20µ-50µ" SpalteB wird eine Ser.Nr. vergeben. Es wird ein neues Blatt mit dieser Ser.Nr. erstellt. Soweit alles perfekt.
Jetzt möchte ich, wenn eine Ser.Nr. vergeben wird im Ordner: P:\Operations-Prod...
17.03.2015 10:05:08
Thread-ID: 1415404
4 Beiträge
Ordner automatisch erstellen
Bernd

Hallo und vorab schon mal DANKE.
Ich möchte gerne aus Excel heraus per VBA-Code einen Ordner anlegen.
der Pfad wäre
C:\Users\A690666\Desktop\
und der Ordner soll heissen
SM(Zelle B2)-(Zelle J2)_(Zelle M2)
(in der Klammer soll der Inhalt Text/Zahlen sein vom "Tabellenblat...
28.04.2016 12:37:54
Thread-ID: 1490842
6 Beiträge
Anzeige
Erstellen von Ordnern durch VBA
Ordnern

Hallo Community,
ich hätte eine Frage. Und zwar würde ich gerne per VBA einen Button in Excel erstellen, welches dann immer in jeder Exceldatei dieser Art verfügbar ist. Generell ist in den Exceldateien ein Datenblatt abgebildet.
Das Programm sollte zwei Arrays enthalten, die eine Anz...
04.04.2018 10:37:24
Thread-ID: 1617949
6 Beiträge
pdf sortieren und Ordner erstellen via VBA Button
Tom

Hallo zusammen,
ich moechte ein Makro erstellen, um einen Ordner mit mehreren pdf-Dateien zu sortieren und Unterordner zu erstellen.
Es gehoeren immer 3 pdf-Dateien zusammen und sind wie folgt benannt:
X-12345678910.pdf
Y-12345678910.pdf
Z-12345678910.pdf
X-12345678911.p...
16.07.2019 02:27:17
Thread-ID: 1702667
11 Beiträge
Ordner mit Unterordner erstellen VBA
JimKnopf76

Hallo zusammen,
zurzeit möchte ich mit Hilfe des folgenden Codes, welche ich hier im Archiv gefunden habe, Ordner und Unterordner erzeugen. Allerdings wird lediglich mit dem Zelle B1 Werten ein Ordner erzeugt. Wie sieht eine Schleife, sodass die Werte in Pfad = Range("B1") hochgezählt werde...
18.07.2019 13:39:19
Thread-ID: 1703107
6 Beiträge
pdf sortieren und Ordner erstellen via VBA Teil 2
Tom

Hallo zusammen,
leider kann ich nicht mehr auf meinen alten Beitrag antworten, daher erstelle ich jetzt einen neuen.
Franz (oder auch fcs), erstmal vielen Dank fuer deine Hilfe. Ich hoffe mein Dank erreicht dich auf irgendeine Weise.
Franz hat mir folgenden Code geschrieben:
---...
30.07.2019 01:53:13
Thread-ID: 1704877
2 Beiträge
pdf sortieren und Ordner erstellen via VBA Teil 3
Tom

Hallo zusammen,
Ich habe einen Code mithilfe des Forums (grosses Dankeschoen an Franz bzw. fcs) erarbeitet und verwende ihn seit einigen Wochen.
Mittlerweile sind mir einige Probleme aufgefallen, die ich nicht geloest bekomme.
Ich sortiere mithilfe des Makros mehrere pdf Dateien und...
29.08.2019 05:16:04
Thread-ID: 1710143
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
3
5
10
5
10
5
1
1
3
3
2
1
3
1
4
5
8
13
3
10
5
21
3