Ordner und Unterordner anlegen, Hyperlinks einfügen, Ordner in Outlook anlegen | Excel VBA
Вставка
- Опубліковано 2 сер 2024
- Ordner und Unterordner anlegen, Hyperlinks einfügen, Ordner in Outlook anlegen | Excel VBA
Kostenloser VBA-Einstiegskurs: vbatrainer.mykajabi.com/offer...
VBA-Coaching: www.vbatrainer.de/
Code zum Video: www.vbatrainer.de/ordnerstruktur anlegen
________
LINKS zu den Excel VBA Grundlagenvideos
► Anfänger Tutorial: www.vbatrainer.de/anfaenger-t...
► Variablen und Datentypen: www.vbatrainer.de/variablen-d...
► Strings manipulieren: www.vbatrainer.de/string-funk...
► For-Next Schleife: www.vbatrainer.de/for-next-sc...
________
Timestamps
0:00 Intro
0:55 Ziel des Videos
1:40 Tabellenblatt bearbeiten und Prozedur anlegen
3:02 Ordner anlegen und Verweise setzen
6:04 Tabellenblatt-Name auslesen
6:57 Unterordner anlegen
7:53 Hyperlink einfügen
10:22 Beliebig viele Unterordner mit Hyperlink anlegen
13:25 Ordner in Outlook anlegen
15:25 Makro zur Schnellzugriffleiste hinzufügen
16:43 Abschied
Danke, endlich habe ich gefunden, nach was ich gesucht habe🙏
Was ich an den Videos richtig klasse finde, ist, dass kaum Leerlauf herrscht; jede Sekunde ist wichtig👍
Hallo Joerg, freut mich, dass dir die Videos gefallen. Danke für dein Feedback :)
Super
Hallo Kai, das Video ist perfekt erklärt. Alles 1:1 sofort verständlich und umsetzbar. Vielen Dank!
Hierzu habe ich zwei Fragen.
1) Es ist doch bestimmt auch möglich den Grundpfad dynamisch mit Zelleninhalten aus dem XL-Worksheet zu verknüpfen. Wie spreche ich die Worksheet-Zellen an?
Beispiel ich habe für jede Schule einen Pfad.
Grundpfad: C:\Schulbudget & ..... im XL-Worksheet stehen die jeweiligen Schulnamen (Zellen A1 bis A106)
2) Unter der jeweiligen Schule wird für ein Ordner pro Jahr angelegt. Das ist ja sozusagen mein Worksheet-Name (2024) danach sollen dann immer pro Schule 4 gleiche Unterordner angelegt werden: Planung 2024, Quartal 2024, Bericht 2024, Korrekturen 2024
Dann beginnt meine Schleife schon direkt vor der Übergabe des Pfades, richtig?
Viele Grüße Natascha
S U P E R G E I L ! ! ! D A N K E 😍
Brauchte n Weile bis ich alles richtig geschrieben hatte - aber nun läuft das 🙂
Genial - genau SOWAS brauchte ich gerade
Hallo Niels, vielen Dank für deinen netten Kommentar.
Es freut mich sehr, dass dir meine Videos gefallen.
Ich wünsche dir weiterhin viel Erfolg bei deinen Projekten.
👌👌👌👍🏾 - Wieder mal super Video gemacht!
Das Thema brauche ich zwar im Moment nicht und hatte es mir auch schon mal angesehen, aber deine Videos sind eigentlich immer ein Genuss; - auch einfach mal so zum angucken.
Das freut mich sehr!
Vielen Dank für deinen netten Kommentar!
Toll!
Super Interessantes Video, gibt es auch die Möglichkeit aus einer bestehenden Tabelle mit z.b. 200 Einträgen eine Ordner Struktur zu erstellen und jeder Ordner hat immer die Gleichen Unterordner.
Ordner 1= Bilder; Videos & einen Dokumente Ordner
Ordner 2= Bilder; Videos & einen Dokumente Ordner
etc.
Hey Kai, sehr schöne Videos die du machst. Dein Vorgehen ist sehr strukturiert und das macht es einfach dem Inhalt zu folgen. Mach gerne weiter so. Hab schon viel von dir lernen können.
Hey baddieday!
Danke für dein Feedback!
Lg, Kai
Guten Morgen Kai,
hier meine aller erster Kommentar.... 🙂
Besten Dank für Deine Videos! Du hast eine tolle Aussprache, Dein Tempo ist perfekt und Du erklärst die Themen echt gut!
Du hattest in diesem Video einen Ordner in Outlook angelegt.. Kann man auch einen Outlook Kontakt anlegen
und das Notizfeld mit Informationen füllen?
Mach weiter so!!
lg aus Monheim am Rhein,
Holger
Kann ich nur großartig zu sagen 😍
Danke dir Dario :)
So, da mach ich doch mal lieber einen 14. Kommentar draus.
Wieder was neues gelernt, Danke für deine Lehrreichen Videos. Mir gefallen die Gui erstellungen und das nachmachen.
MfG
Kai
Hey Kai, vielen Dank für deinen Kommentar. Freut mich, dass dir die GUIs gefallen :)
Hallo lieber Kai, deine Videos haben wirklich eine sehr hohe Qualität! Du erklärst sehr verständlich. Könntest du mal eine Heizkostenabrechnung programmieren (ohne Warmwasserversorgung)? Das wäre genial :-) Beste Grüße von Mario
Ich nehme das gerne in die Ideensammlung mit auf.
Dieses Projekt ist ausbaufähig. Man sollte vielleicht gerade bei den Dateipfaden auf Standardordner von Windows setzen, die man auslesen kann, z. B. "Dokumente". Auch andere Bestandteile sollten nicht "hard-coded" sein. Wenn man dann noch vor der Erstellung prüfen würde, ob der Ordner schon da ist... Smart ist das Anlegen des Outlook-Ordners!
Vielen Dank für dein Feedback!
Hallo Kai. Danke für das hilfreiche Video.
Wir haben standardisierte Ordnernahmen die wir aus mehreren Zellen via * & * in einer Zelle zusammensetzen, also A1 & B1 & C1 Ausgabe in A3.
Kann ich dann für 'Ordner anlegen auch den Ordnername aus A3 nehmen.?
Das wäre spitze.! Danke schon mal.
Hallo Kai,
sehr schön wieder was gelernt zu haben von Dir.
Eine Frage aber noch zu diesem Video, Funktioniert es auch wenn der Ordnername in einer Zelle steht?
Gruß Ron und weiter so !!!
Hallo Ron, freut mich, dass du etwas dazulernen konntest. Ja, du kannst den Ordnernamen auch in eine Zelle schreiben. LG Kai
Hallo Kai,
Danke für das Video, ich finde es gut wie du die Lösung auf verständliche und nachvollziehbare Art runtergebrochen hast.
Bei Gelegenheit werde ich das ausprobieren und testen.
Ich frage mich: Was passiert, wenn ich das Makro ein 2tes mal starte, kommt eine Fehlermeldung, dass die Ordner bereits existieren oder werden die Ordner einfach überschrieben?
Gibt es eine Möglichkeit die durch Excel zu dem in Outlook angelegten Unterordner zu navigieren? Sowas wie ein automatisch angelegen Link in Excel?
Ich will dich aber nicht mit meinen Sachen zu sehr beschäftigen :-!
Hallo Johann,
freut mich, dass es dir gefällt :)
Zu deiner ersten Frage: Derzeit kommt ein Fehler, wenn die Ordner bereits existieren. Falls du das abfangen möchtest, guck am besten jeweils vorher mit einer Kombination aus der If-Bedingung und FSO.FolderExists(), ob der Ordner bereits existiert. Zu beiden Themen habe ich auch schon Themen erstellt :)
Über ein Excel Makro kannst du einen Outlook Ordner direkt öffnen mit folgendem Code:
myolApp.GetNamespace("MAPI").Folders("kaiweissmann@outlook.de").Folders("Inbox").Folders("Projekt 1").Display
Wichtig ist auch dabei, dass du myolAPP wie im Video deklariert hast, die Outlook Bibliothek aktiviert ist und alle Ordner tatsächlich existieren.
Ich hoffe das hilft dir weiter :)
Viele Grüße
Kai
Hallo Kai,
ich finde Deine Erklärungen richtig Super.
Ich habe ein Problem.
Ich möchte Aufkleber erstellen für mehrere gleiche Teile. Auf dem 1. Label soll dann 1 von 3 stehen, auf dem 2. Label 2 von 3 und auf dem 3. 3 von 3.
Wie bekommt man das im VBA Excel gelöst
Lieben Gruß Mario
Hallo Mario, danke für deinen Kommentar :)
Du kannst dazu die For-Next-Schleife nutzen. Hier ein Video zur Schleife: www.vbatrainer.de/for-next-schleife/
LG Kai
Hallo Kai,
super erklärt und daher einfach nachzuvollziehen.
Was muss ich tun, um noch eine Ordnerebene tiefer anzulegen?
Und wie kann kann ich jedem Ordner aus einer Zelle heraus den Namen geben?
Hallo, freut mich, dass es gut erklärt ist :)
Eine Ordnerebene tiefer kommst du, wenn du das an den Pfad anhängst: "\UA-cam"
Infos kannst du aus Zellen mit Range("A1").Value auslesen
LG Kai
Hey Kai,
Kann man Ordner auch in einer O365 Umgebung (Ms Teams, SharePoint) anlegen?
Hallo Kai, klasse Video, hat mir sehr geholfen! Einziges kleines Problem welches ich mit dem Hyperlink habe, ist das immer eine Sicherheitswarnung kommt wenn ich ihn öffnen will. Auch diverse Einstellungen im TrustCenter helfen nicht weiter. Gibt es da vielleicht einen Trick?
Liebe Grüße
Hallo ich habe das gleich problem aber noch keine Lösung im Trust Center gefunden!
Hallo Kai Video ist super. Kann ich noch zur Projektnummer einen beliebigen Text bei der Erstellung hinzufügen (mehr als 31 Zeichen wie aus Tabellenblatt?)
Hallo JKurze, vielen Dank für dein Feedback :)
Ja, du kannst noch einen beliebigen Text anhängen. Das machst du, indem du statt
ActiveSheet.Name
ActiveSheet.Name & "hier beliebigen Text einfügen"
schreibst.
Ich hoffe, das hilft dir weiter. Schreib mir gerne, ob das bei dir geklappt hat :)
LG Kai
@@KaiWeissmann vielen Dank hat super funktiomiert
Super, das freut mich! Danke auch für die Rückmeldung!
Hi Kai, ich habe tatsächlich fast das gleiche Problem, ich musste jetzt allerdings den Ordner abhängig davon benennen, was in einer bestimmten Zelle drin steht. Denn meine Tabelle ist eher eine Datenbank und jeder Ordner entspricht einem Datensatz. Geht das auch?
Hallo Kai,
ich habe folgendes Problem. Meine Kollegen legen ihre Rechnungen in einer gemeinsamen Excel Tabelle ab. Dann verlinken sie die Zelle mit der Rechnungsnummer per Link zu der PDF Rechnung in einem Unterordner. So kann man bequem jede (Original) Rechnung die in der Excel Tabelle eingetragen wurde auch nochmal per Klick öffnen, ohne in Unterordnern danach zu suchen. So weit so gut. Das Funktioniert auch, so lange man die Excel nicht schließt. Klickt man also auf Speichern und schließt Excel, bekommt man beim nächsten Start der Excel Tabelle bei einem Klick auf die verlinkte Zelle die Fehlermeldung: "Die angegebene Datei konnte nicht geöffnet werden" Hast du hier einen Rat für mich?!
Hallo Kai, vielen Dank für Deine Videos. Ich mag sie sehr gerne und komme gut mit bin fast 60, da brauch man etwas länger 😂 Ich muss geschäftlich viele Auswertungen, Arbeitshilfen und -Übersichten mit Excel erstellen. Damit meine Kollegen und ich es einfacher haben arbeite ich hier mit bedingten Formatierungen. Da aber auch immer wieder Zeilen (erledigte Aufträge) gelöscht bzw ausgeschnitten werden verhaut es mir die bedingten Formatierungen. Deshalb meine Frage wie kann ich Bedingte Formatierungen über VBA lösen und sind diese stabiler?
Hallo Kaui,
vielen Dank für das Video. Ich habe eine Frage als VBA neuling.
Ich habe den Code in eine UserForm eingebunden.
Nach auswahl eines OptionButtons und eines CommandButtons wird auf dem Netzlaufwerk der Ordner angelegt.
Mein Problem ist, wenn ich die Funktion mit dem Hyperlink dort einfüge, scheitern alle anpassungserverusche, da ich nicht herrausfinde wie ich den Eintrag in Excel in der Tabelle immer in die LETZE Zeile und in die Spalte H (8Stelle) bekommen?
Es Findet im vorfeld keine Auswahl einer spalte statt wie z. B. in deinem Video mit B2.
Folgende habe ich Versucht:
Private Sub Button_Pfad_1_Click()
Dim ORDNER As New FileSystemObject
Dim PFAD As String
'Dieser Code Öffnet den Ordener
'Dim PFAD As String wird hier aufgerufen
'Ordner für Teilespeziefische FMEAs & FMEDAs
If OptionButton_1.Value = True Then PFAD = "L:\gruppe\Ordner\Daten\Bereich1\1"
If OptionButton_2.Value = True Then PFAD = "L:\gruppe\Ordner\Daten\Bereich1\2"
If OptionButton_3.Value = True Then PFAD = "L:\gruppe\Ordner\Daten\Bereich1\3"
If OptionButton_4.Value = True Then PFAD = "L:\gruppe\Ordner\Daten\Bereich1\4"
'Ordner anlegen
ORDNER.CreateFolder PFAD & "\" & TextBox_Projekt_Nr & "__" & TextBox_Projekt_Bezeichnung
'Bis hier hing klappt alles. Die Ordner werden angelegt
'Hyperlinks einfügen - Dies geht leider nicht.
ActiveSheet.Hyperlink.Add anchor:=ActiveCell.Offset(LAST, 8), _
Adresse:=PFAD & "\" & TextBox_Projekt_Nr & "__" & TextBox_Projekt_Bezeichnung, _
TextToDisplay:=PFAD & "\" & TextBox_Projekt_Nr & "__" & TextBox_Projekt_Bezeichnung
'Getestet habe ich auch schon
ActiveSheet.Hyperlink.Add anchor:=ActiveCell.Cells(LAST, 8), _
Adresse:=PFAD & "\" & TextBox_Projekt_Nr & "__" & TextBox_Projekt_Bezeichnung, _
TextToDisplay:=PFAD & "\" & TextBox_Projekt_Nr & "__" & TextBox_Projekt_Bezeichnung
Leider bringt er immer den Fehler, dass er LAST nicht kennt....
Hast du mir vieleicht einen Tip hierzu?
mfg
Zeitlich schaffe ich es nicht so detailliert in Code reinzuschauen. Ich wünsche dir aber alles Gute mit dem Projekt! LG Kai
Wie umfangreich wäre es das ablaufen des Macros zu verhindern, wenn die Ordner (ganz oder teilweise) schon vorhanden sind?
PS: dein E-Mail-Konto sieht so aus, als wenn es direkt bei Microsoft liegt du gehst leider nicht darauf ein, ob der für MAPI angegebene Name verändert werden muss, wenn es sich um ein "freemail-konto" oder um ein anderes Konto bei einem anderen Provider handelt. Also natürlich nicht, ob dein Name verändert werden muss, sondern ob es ein Einfluss hat ob es ein POP, ein IMAP oder ein Cloud Konto ist.
Hallo Kai, vielen Dank für dieses Video, das hilft mir bei meinem Versuch eine automatisierte Outlook-Ordnerstruktur schon mal sehr. Dennoch bin ich als VBA-Laie noch etwas aufgeschmissen mit meinem Vorhaben. Ich würde gerne eine Outlook Ordner-Struktur per VBA Script auf Basis einer Exceltabelle erstellen.
Die Struktur soll nachher wie folgt aussehen:
Bestand 1
Wirtschaftseinheit A
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Wirtschaftseinheit B
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Wirtschaftseinheit C
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Bestand 2
Wirtschaftseinheit A
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Wirtschaftseinheit B
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Wirtschaftseinheit C
Objekt 1
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Objekt 2
Verwaltungseinheit 1
Vertrag X
Vertrag Y
Verwaltungseinheit 2
Vertrag Z
Vertrag AA
Die ganzen Daten sind in Spalten in der Quellexceldatei nach gleicher Reihenfolge enthalten.
Da ich diese Struktur bereits per Hand angefangen habe aufzubauen, wäre das Sahnehäubchen, wenn das Script erkennt, ob der Ordner bereits angelegt wurde und dann die Anlage des Ordners überspringt.
Ich bin auch deine Antwort gespannt und verbleibe mit den besten Grüßen!
Chris
Deine Videos erklären so komplexe Thema sehr "Einfach" und "Strukturiert" :D
Erst heute habe ich mir gedacht das genau solch eine Funktion super wäre für mich...
Jedoch mit einer Zusatz :D Und dazu hätte ich eine Frage :)
Wäre folgendes möglich:
Beispiel: In Zelle B1 wird eine Auftragsart deklariert (Grundreinigung, Glasreinigung oder oder oder) Darauf hin wird in Zelle A1 automatisch eine Auftragsnummer erzeugt bsp: 2021001.
Soweit habe ich nun schon alles hinbekommen.
Nun hätte ich gerne, dass er sobald in Zelle A1 eine Auftragsnummer steht er einen Ordner erstellt mit genau dem namen der Auftragsnummer und die Zelle dann mit einem Hyperlink zu dem Ordner bestückt :) Aktuell führe ich den letzten schritt Manuel aus, dass würde ich gerne ändern :) Geht sowas mit VBA?
Hallo Maik, erstmal vielen Dank für dein nettes Feedback. Das ist für mich immer eine sehr gute Motivation, das nächste Video zu erstellen :)
Kurz und knapp: Ja, das geht. In dem Fall arbeitest du mit dem Worksheet-Change Event, d.h. sobald etwas in Spalte A eingetragen wird, soll der Code ausgeführt werden. Der Code erstellt dann den Ordner (mit dem Namen der Auftragsnummer) und setzt den Hyperlink.
Mein Tipp ist die Dinge aufzuteilen:
1. Einen Code schreiben, der dir einen Ordner mit dem Namen der Auftragsnummer erstellt und den Hyperlink setzt.
2. Das Worksheet-Change Event zu triggern. Dazu nutze ich eine MessageBox, damit ich sehe, dass das Event wirklich an der richtigen Stelle getriggert wird.
3. Beides zusammenführen :)
Ich hoffe, das hilft dir weiter :) Schreib mir gerne, falls noch Fragen offen sind.
LG Kai
Wie kann ich jetzt den Code in meinem Excel Sheet anwenden? Per Shortcut oder wie? Da brauch ich Hilfe...
Schaue dir dazu am besten mein Video zum Thema Makros ausführen an: ua-cam.com/video/xuXSJOE9Rqg/v-deo.html
Alles Gute bei deinen Projekten.