Dateien aus Ordner und Unterordner auslesen | Excel VBA

[@kolavithonduraski5031]

die Animationen die immer eingeblendet werden, sind der Hammer 👍 sehr gut zum Verständnis 💡

[@KaiWeissmann]

Hey Kolavit! Danke für dein Feedback! Die Mühe lohnt sich also 😊😇 Lg, Kai

[@wolfgangweiler177]

Von Dir zu lernen, macht einfach Spaß. Du sprichst klar und verständlich und man kann Dir immer folgen, wo Du gerade hinklickst. Vor allem, Du bleibst immer ohneabzuschweifen beim Thema!

[@christianmaurer337]

Mal wieder super Thema und super erklärt. Ich finde es gut, dass du mit uns Zusehern die Makros entwickelst und jeden Schritt auch mit Bildern erklärst. Man merkt sofort, dass du dich in deine Zuseher hineinversetzt und sie dort abholst, wo sie stehen: in der Regel am Anfang. Danke dafür, mach weiter so.

[@detlevptaszek939]

Danke für die Zeitersparnis des Suchens nach Lösungen! Schon nach einer Woche des Studiums der Videos bin ich in meinem Projekt enorm vorangekommen. Vor allem ist es mir relativ einfach, genau das zu finden, was ich als Baustein benötige.

[@KaiWeissmann]

Vielen Dank für deinen Support! Es freut mich, dass du gut vorankommst mit deinem Projekt. Ich wünsche dir weiterhin alles Gute damit!

[@jackyl1976]

Perfekte Lösung für das letzte Video. Vielen herzlichen Dank für die Ergänzung. Wie immer TOP!

[@KaiWeissmann]

Hey Daniel! Danke für dein Feedback! Lg, Kai

[@detlevptaszek939]

Waaahnsinn, danke für den Hinweis in der Mail an mich, das ist genau das, was ich bei mir einbauen kann, um auf alle abgelegten Angebote und Rechungen in separaten Ordnern direkt aus EXCEL zuzugreifen

[@tubemyweb]

Vielen Dank für deine super Anleitung, die Einblendungen und Schritt-Für-Schritt-Erläuterungen (mit kurzem Hintergrund). Bisher hatte ich hierfür gegooglet und kopiert. Jetzt ging es mit der 64-Bit-Version nicht mehr. Dieses VBA ist viel kürzer, verständlich (für einen absoluten VBA-Anfänger) und es läuft 😄 Für uns ein tolles 23 min-Video mit Lerneffekt ... für dich mit Animation und Schnitt 🤔 💯× DANKE 👍

[@KaiWeissmann]

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.

[@hs3009]

Besten Dank für das erneut sehr gute und interessante Video👍. Ich freue mich bereits auf das nächste. Nochmals besten Dank und alles Gute.🍀

[@KaiWeissmann]

Hey H S! Sehr gerne. Lg, Kai

[@PeterLenzky]

Nichts zu danke. ich habe zu danken für die ganzen Tipps! 👍

[@erichmayr3051]

Kompliment, sehr gut und logisch aufgebaut 👍

[@KaiWeissmann]

Freut mich! Danke für dein Feedback :)

[@sid42000]

Geniales Video! Super erklärt, einfach zum Mitschreiben. Finde das makro wahnsinnig hilfreich!

[@KaiWeissmann]

Freut mich sehr, dass dir das Video gefällt. Vielen Dank für dein Feedback!

[@MarioGuidugli]

Super erklärt, was ich bräuchte, die Dateien auslesen nach Typ. also z.B. Auflistung aller Dateien in Ordner mit Unterordner mit der Endung *.xlsm oder *.docx. Vielen Dank und mach weiter so

[@viktorkr8936]

Hallo Mario. Hast du dazu eine Lösung gefunden?

[@MarioGuidugli]

@@viktorkr8936 Leider noch nicht. LG

[@MrJacob1928]

Kai du bist einfach der Hammer..👍

[@KaiWeissmann]

Danke für dein Lob!

[@gerdmuster4541]

Danke für deine Videos!

[@KaiWeissmann]

Hey gerd! Sehr gerne. Lg, Kai

[@franksteinhaus2373]

Das habe ich schon immer gesucht. Danke

[@KaiWeissmann]

Sehr gerne!

[@johnwayne8059]

Sehr gut!👍👍👍 Und jetzt nochmal rekursiv!😎😁😇🤟😎

[@anibunny9917]

DANKE, hier wurde ich fündig

[@KaiWeissmann]

Sehr gerne!

[@nachmacher82]

Absolut geil. Vielen Dank.

[@KaiWeissmann]

Hey Nachmacher! Sehr gerne. Lg, Kai

[@robertusmaximus5105]

Hey Kai, ich bin zwar kein kompletter Neuling was VBA betrifft, aber Dein Kanal hat mich im Vergleich zu allen anderen bisher am meisten weitergebracht. Das fängt bei der Authentizität Deiner Person schon an - sprich man merkt einfach das Du Ahnung hast und diese mit Freude mit anderen teilst. On top kommt die visuelle Darstellung Deiner Videos samt idiotensicherer Erklärung, warum & weshalb Du nun genau diesen Schritt gemacht hast. Die Herangehensweise an ein VBA-Projekt habe ich mir bereits ab geschaut und freue mich auf viele weitere Videos von Dir. Dein Kanal lebt mit der Community und mal sehen wann ich eine Frage/Idee zu einer Umsetzung habe 😅 Vielleicht hast du auf Deiner Website ja mal ein „Themenspeicher“, bei dem jeweils gevotet werden kann, welches Thema als nächstes hier erscheint 🤓 Mach weiter so und viel Erfolg sowie frohes Schaffen...

[@KaiWeissmann]

Hallo Robertus, vielen Dank für deinen ausführlichen Kommentar. Es freut mich sehr, dass dir die Videos gefallen. Die Idee eines Themenspeichers finde ich sehr gut! Danke dafür. Ich wünsche dir weiterhin viel Erfolg bei deinen VBA Projekten! LG Kai

[@mrtk5366]

Danke Kai top Video.

[@KaiWeissmann]

Hey MrTk! Sehr gerne. Lg, Kai

[@michaelgleichenhagen8233]

Wie alle deine Videos super gut erklärt und gemacht. Mach einfach weiter so.

[@KaiWeissmann]

Hey Michael! Danke für dein Feedback! Lg, Kai

[@BrigittaKratochwil]

Hi Kai, Danke, bin Neuling, aber hab es mit Deiner Hilfe selber nachstellen können. Super aufgebaut. Gute Arbeit von Dir. Dir macht lehren Spass. Was ich aber anzumerken hätte: a) sind am ausgewählten obersten Knoten auch Dateien abgelegt, so werden die nach jedem Unterordner noch einmal angeführt = falsche Anzahl an Dateien. Ist eine Ordnerstruktur mit Umlauten angelegt, ist die Reihung nicht so, wie sie im Explorer dargestellt ist. Aber grundsätzlich eine gute Hilfe. Gruß Brigitta👍

[@Steschi]

Super Tutorial. danke!

[@KaiWeissmann]

Hallo Steschi, danke für dein Feedback!

[@SylviaLenz1962]

Hallo Kai, super Video und tolle Erklärung. Jetzt hast du mich angesteckt. Es gab zwar die eine oder andere Verzweiflung🤔, aber hat mit meiner Ordnerstruktur super geklappt . Gruß Sylvia

[@KaiWeissmann]

Das freut mich 👍

[@thomasfranz1652]

Hallo Kai, wie immer sehr verständlich und gut nachvollziehbar erklärt. Als Ergänzung hätte ich mir hier gewünscht, wie man den 'Fortschrittsbalken' integriert. Das wäre eine Super Erweiterung.

[@KaiWeissmann]

Hey Thomas Franz! Danke für dein Feedback. Ich versuche meine Videos so kurz und überslichtlich wie möglich zu gestalten. Da wäre der Fortschrittsbalken vielleicht etwas zu viel gewesen (mit allen Details). Aber vielleicht kann ich in zukünftigen Videos (sofern es passt) bestehende Codes aus anderen Videos einbinden und eben nur für die aktuelle Anwendung anpassen. Ich nehme das mal als Idee mit. Lg, Kai

[@MaRi-jf2cl]

Vielen Dank 👍, dass war wieder ein sehr nützliches, interessantes und vor allem auch verständlich dargebotenes Video. Bei mir hat es die Werte immer in Tabelle 1 eingetragen, obwohl ein neues Blatt erstellt wurde, aber das bekomme ich hin, nur heute nicht mehr 😅

[@KaiWeissmann]

Hey Ma Ri! Sehr gerne. Alles Gute beim Problemlösen! Lg, Kai

[@ninnick-nick]

Super 👌👌👌👍🏾 - wie immer ...

[@KaiWeissmann]

Danke dir :)

[@ninnick-nick]

Danke!

[@KaiWeissmann]

Gerne und dir vielen vielen Dank für die Unterstützung!

[@kschr2869]

Super Video und wie immer toll erklärt. Funktioniert so etwas auch in einer Office365 Umgebung (also direkt auf dem SharePoint oder in MS Teams) ?

[@JuergenSchlossmann]

Hallo Kai, bin total begeistert, wie toll und leicht verständlich du VBA in deinen Videos erklärst! Vielen Dank dafür! Ich habe noch eine Frage bezüglich der Erstellung von Ordnerverzeichnissen. Ich habe den Code deines Videos für die Erfassung von Ordnerstrukturen übernommen und mache dabei die Erfahrung, dass der Arbeistspeicher schnell überläuft und Excel dann nicht mehr ansprechbar ist. Kann das daran liegen, dass sich die Sub 'UnterordnerAuslesen(Pfad As String)' immer wieder selbst aufruft?? Oder gibt es in vba eine Grenze, wie oft sich eine Sub selbst aufrufen darf? Freue mich über jede Antwort!

[@dadsche100]

Hallo Kai, vielen Dank für deine Videos! Durch diese kann ich als VBA Neuling auch geniale Sachen umsetzen. Die Animationen zwischendurch machen es einfach sehenswert und nicht zu trocken.😅 Ich verwende diese Anleitung als Dokumenten Matrix. Bei mir steht jeder Unterordner für einen speziellen Bereich. Ist es möglich die Dateien eines Unterordners in einem eigenen Tabellenblatt anzuzeigen? Mach weiter so! Gruß Christian

[@berni60]

Super erklärt, wie oder was muss ich bei dem Beispiel verändern um nur die Ordner Namen auszugeben?

[@karinmm6221]

Hallo Kai, obwohl es mich schon seit Jahren interessierte, EXCEL-VBA kennenzulernen, hatte ich es bisher nie geschafft (Zeit, andere Hobbys, ...); es war alles sehr einfach erklärt und leicht nachzuvollziehen. Vielen Dank für diese SUPER-Demonstration. 👍👏 Was mich darüber hinaus noch interessiert ist die Ermittlung des Erstellungsdatums der einzelnen Dateien, denn das Erstellungsdatum der Ordner selber ist ja weniger interessant und ändert sich mit dem Verschieben der Ordner / Kopieren auf ext. Festplatte z.B. Mit Datei.DateLastModified habe ich bei meinen vielen Fotos gleichzeitig das Aufnahmedatum (Änderungen an den Fotos speichere ich unter einem neuen Namen), jedoch gilt das nicht für Dokumente (z.B. in WORD erstellt). Haben Sie einen Hinweis für mich, wie ich das Erstellungsdatums ermitteln lassen kann? Ich würde mich darüber sehr freuen. 👍☺ Viele Grüße und ein gesundes neues Jahr Karin

[@proneu9812]

Super erklärt. Bei mir ist nach der zweiten Prüfung Excel ausgestiegen und habe bei F5 das Makro-Fenster angezeigt. Leider war dort nichts zu sehen. Schade. Habe den Versuch hier abgebrochen

[@detlefwinkler2916]

Moin Kai, Super Lösung. Stellst Du diese zum Download bereit? Perfekter Aufbau des Video und super verständlich erklärt. Top, weiter so VG Detlef

[@KaiWeissmann]

Hey Detlef! Danke für dein Feedback! Die Datei wird derzeit nicht als Download zur Verfügung gestellt. Lg, Kai

[@fragglegabo8427]

Hallo Kai, Super Videos, ich liebe deinen Kanal! Super nachvollziehbar und nachbaubar! Kannst du vielleicht mal ein Userlogin machen, so das je nach User, Tabellenblätter sichtbar sind oder auch nicht. Das wäre echt super 😉 Vielen Dank im Voraus Gruß Bernd 🙃

[@KaiWeissmann]

Hey Bernd! Danke für dein Feedback und den Videovorschlag. Nehme das gerne in die Ideensammlung mit auf. Lg, Kai

[@johnwayne106]

Super Video. Kann man das irgendwo downloaden?

[@KaiWeissmann]

Hey John! Danke für dein Feedback. Der Code steht derzeit nicht als Download zur Verfügung. Lg, Kai

[@wolf-hagenmuhlberger3091]

Hallo Kai, Eine tolle Anleitung. Sehr sinnvolles Projekt. Insgesamt finde ich deine erläuterte Art der Vermittlung vonVBA hervorragend. Leider erhalte ich eine Fehlermeldung bei der Ausgabe des Hyperlinks. Ich habe Dir eine E-MAIL geschickt über die Adresse Deiner Webseite. Beste Grüße Hagen

[@KaiWeissmann]

Hey Hagen! Danke für dein Feedback! Ich habe dir auf deine E-MAIL geantwortet. Lg, Kai

[@FollowerY]

Hey Kai, vielen Dank für deine Videos. Ich schau mir deine Videos voll gerne an. Könntest du bitte einen Tipp geben, wie man man die Metadaten bzw. Kategorien , Versionen einer Excel Datei per VBA ansprechen kann? Vielen Dank

[@maxkilcher994]

Hallo Kai Super nur muss man das selber alles nochmals schreiben? Gibt es eine Möglichkeit den Code Copy/Paste zu übernehmen . Evtl sehe ich vnicht, wo ich die Beispiele herunterladen kann. Die Erklärungen sind echt top.

[@KaiWeissmann]

Ja, ich stelle nicht alle Codes / Tools zur Verfügung. In diesem Fall musst du den Code selber schreiben.

[@maxkilcher994]

@@KaiWeissmann Dankeschön für die Antwort. Etwas schade aber auch OK für mich. Ich habe mindestens nichts falsch gemacht. Die Erklärungen sind echt gut. Dankeschön

[@stevek6311]

Hey Kai, Super Video! Hat mir wirklich geholfen. Gibt es auch die Möglichkeit statt des Ordners einzelne Dateien auszuwählen? Und kann man die Informationen des PDF auslesen? Wie der Autor?

[@BattleFrogeLP]

Viel Dank für das Video, genau sowas habe ich schon lange gesucht. Gibt es eine Möglichkeit einen bestimmten Unterordner, der immer gleich heißt auszuschließen?

[@KaiWeissmann]

Hey BigLego! Es freut mich, dass dir mein Video hilft. Das ist natürlich machbar. Denke jetzt spontan an eine If Bedingung vor dem Call UnterordnerAuslesen. Hoffe das hilft dir. Lg, Kai

[@franzfruhwirth2112]

Hallo Kai, besten Dank für deine hervorragende Erklärung .... dieses Tool ist perfekt. Wäre es zusätzlich möglich, auch "leere" Ordner in der Struktur auszulisten ? Besten Danke für Deine Rückmeldung ! Liebe Grüße

[@KaiWeissmann]

Zum Thema Ordnerstruktur anlegen siehe mein Video: kzbin.info/www/bejne/nn_aq2SbebmCmac Ich hoffe das hilft dir weiter.

[@franzfruhwirth2112]

@@KaiWeissmann Hallo Kai, danke für die rasche Rückmeldung .. in deinem Beispiel (Dateien aus Ordner und UOrdnern auslesen) werden jene Verzeichnisse aufgelistet, bei denen darin mindestens eine Datei enthalten ist. Es wäre für meine Aufgabenstellung wichtig, auch Verzeichnisse OHNE Inhalt in der Struktur auszulesen .... ?? Besten Dank für deine Unterstützung. Liebe Grüße

[@emilwalter3260]

Hallo Kai zu erst ohne viiel Gerede, du machst tolle Videos und sie sind sehr Informativ. Ich habe dein Projekt selber nach gemacht. Ich habe bloß eine Frage wie kriege ich es hin das ich nur bestimmte Dateiformate auslesen lassen wie zum Beispiel .pdf und docx dieses würde ich gerne mal sehen wollen. Es wäre lieb wenn du mir dabei helfen könntest! LG

[@KaiWeissmann]

Am besten mit einer If Bedingung, die die Dateiendung prüft. Z.B. If right (Pfad, 3) = pdf or right (Pfad, 4) = docx then Hoffe das hilft dir weiter.

[@CharlyWyss]

Sehr gut erklärt und nachvollziehbar 👍 Hast du auch eine Lösung für den Umgekehrten Weg. Also Ordner , Unterordner usw. auf c:/ aus einer Excel Baumstrucktur zu erstellen

[@KaiWeissmann]

Vielleicht hilft dir mein Video zur Ordnerstruktur anlegen weiter: kzbin.info/www/bejne/nn_aq2SbebmCmac

[@romanglantschnig2866]

Hallo Kai. Danke für deine Super Videos. Ich hätte bezüglichen des auslesen eine frage: Ist es möglich, wenn ich alle Dateien mit System benannt habe zb.(Rechnung_Olymp_19.01.2022_Pers_Kleidung _89,85€), dass ich mir die Dateinamen in der Excel Tabelle hinter dem Hyperlink aufsplittern lasse, im Zuge des Auslesens? Danke Lg

[@NichtNochEinVideo]

Vielen Dank Kai. Es ist sehr einfach deinen Ausführungen zu folgen; großes Lob. Ich habe noch eine Frage. Bei mir kommt es manchmal vor, dass in manchen Ordnern keine Dateien sind, totzdem möchte ich eine vollständige Verzeichnisstruktur bei der auch diese Ordner aufgeführt sind. Ist das möglich? Und wenn ja wie?

[@KaiWeissmann]

Vielen Dank für dein Lob. Vielleicht hilft dir mein Video zum Thema Ordnerstruktur weiter: kzbin.info/www/bejne/nn_aq2SbebmCmac

[@LukasBührer-x6k]

Hallo Kai, ist es auch möglich die Ordner Mit auflisten zu lassen ? Ich bin leider noch relativ neu was VBA angeht und kämpfe damit eine Lösung zu Finden :)

[@allycanoe]

Hallo Kai, erstmal vielen Dank für das Video. Ich bin ebenfalls ein Neuling. Ich konnte alles nachstellen und es hat auf den ersten Blick auch funktioniert. Bei der Nachprüfung sind aber nicht alle Dateien aufgelistet worden. Also habe ich mich auf die Suche nach einer Begründung begeben. Meine Ordnern haben sehr viele Unterordner, deshalb habe ich mit weiter unten liegenden Unterordnern mit dem Auslesen angefangen. Das hat mich nicht viel weitergebracht. Ich habe dann die fehlenden Dateien nach gepflegt und mir ist dabei aufgefallen, dass bei den fehlenden Dateien der Zugriff nicht möglich ist, entweder Dateinamen oder Pfade zu lang. Gibt es noch eine Möglichkeit, diese Dateien irgendwie mit aufzulisten?

[@jannikbernsteiner2148]

Hallo Kai, ich hab die Funktion die Unterordner zu durchlaufen nachgebaut allerdings bekomme ich die Fehlermeldung, dass ich die Objektvariable Unterordner definieren soll. Das tust du doch auch nicht bei 20:00. Wieso muss ich ein Objekt vom Typ Folder definieren? Und als was?

[@KaiWeissmann]

Hallo Jannik, ich würde vermuten, dass sich VBA damit auf die Codezeile Dim Unterordner As Folder bezieht. Ich hoffe du kannst das Problem beheben! LG Kai

[@holgerhessling9481]

Servus Kai, Dein Beispiel listet alle Dateien auf, also *.*. Wie kann ich beispielsweise nur Dateien mit der Endung *.txt in dieser Art auflisten?

[@vasilybelkin786]

Hallo Holger, diese Aufgabe kann man am einfachsten durch Power Query lösen. VBA würde ich hier niemals einsetzen.

[@phpvbacoder9000]

Mit fso.GetExtensionName(deinedatei) bekommst du die Endung und kannst mit if prüfen ob txt rauskommt. Wenn ja danach das Schreiben der Ergebnisse durchführen. Ohne das fso geht es auch: strFileExtension = Right(strFile, Len(strFilePath ) - InStrRev(strFilePath, "."))

[@holgerhessling9481]

Vielen Dank Ihr beiden!! Ich habe vor einiger Zeit mit dem fso versucht, Dateien einer bestimmten Endung zu zählen. Das fso unterstützt einen dabei eher gar nicht und ist an manchen Stellen elend langsam. Meine Frage hier war eher der Versuch zu hören, ob es doch eine geschickte Möglichkeit gibt. Eure Antworten haben mir gezeigt, daß es die wohl tatsächlich nicht gibt; mit dem fso alleine. In einem "Mischbetrieb" von fso und dem alten DIR konnte ich das Maximum an Geschwindigkeit heraus holen. So sieht das dann bei mir aus: Public Function AnzahlDateienInOrdner(sPfad As String, Optional sFilter As String = "*.*") As Long Dim fso As Scripting.FileSystemObject Dim sFile As String Dim lCount As Long Set fso = New Scripting.FileSystemObject If fso.FolderExists(sPfad) Then lCount = 0 sFile = Dir(sPfad & sFilter) Do While sFile "" lCount = lCount + 1 sFile = Dir Loop AnzahlDateienInOrdner = lCount End If End Function

[@TheShadowOfYours]

WinAPI +VBA, Funktionen : FindFirstFile, FindNextFile mit de Attribute *. TXT, wobei ein Auflistungsobjekt mit einem gefundenen TXT durch eine endlose Schleife (die unterbrochen werden muss, falls nichts gefunden ist) geaddet wird.

[@mirijampasquini4457]

Hallo Kai, vielen Dank für dieses tolle Makro. Es hat mir in einer Kritischen Situation wirklich gut geholfen und das als absoluter VBA Anfänger. Ich hätte aber noch eine Frage. Im Augenblick läuft das Makro bis es auf eine Datei stößt die gesperrt ist für den User (ich selbst bin als Admin unterwegs). Wie kann ich das so umstellen, daß das Makro diese Datei dokumentiert als gesperrt dokumentier aber dann weiter läuft? Könntest Du mir da weiter helfen? Oder mit einen Tipp geben wie ich das anpassen kann. Viele Grüße Mia

[@Nicksgizmo]

Hallo kai, vielen Dank für deine tollen Videos. Nicht nur, dass man ihnen step-bystep sehr gut folgen kann, du erklärst auch super, dass man mehr und mehr anpassen kann. In deinem Beispiel hier wäre für mich aber noch folgendes offen. Wie könnte ich mir die Dateien dann ohne Dateiendung anzeigen lassen? Also quasi der Name bereinigt Und wie füge ich die Daten aus dem Unterordner in ein bereits betsehendes, leeres Tabellenblat ein? Hintergrund ist hier, dass ich auf anderen Blättern Formeln habe, die dann genau auf die so eingefügten Spalten verweisen sollen.

[@KaiWeissmann]

Vielen Dank für deinen Kommentar. Am besten, du speicherst den Pfad in einer Variable Pfad. Pfad = "Datei.xlsx" Un mit der Instr Funktion kannst du ein Zeichen in einer Zeichenkette suchen und die Position in einer Variable (Position) Speichern. Position = Instr(Pfad, ".") 'Damit suchst du nach einem Punkt im Pfad und speicherst die Position. Pfad = Left(Pfad, Position -1) 'gibt dir den Linken Teil des Pfads zurück bis vor den Punkt Wie du ein bestehendes Tabellenblatt ansprichst zeige ich hier: kzbin.info/www/bejne/npO0gXyOobeUbpI Ich hoffe das hilft dir weiter.

[@stevenproklick931]

Hallo Kai, Gutes Video, Daumen hoch! Kannst du auch ein VBA Script zu folgender Funktion erstellen? Ich habe eine Excel Tabelle mit Artikelnummern. Diese Artikel haben seines PDFs. DWG oder JPEG Daten mit derselben Nummer wie die Artikel. Nun zur Funktion, das VBA Script soll alle vorhanden, Artikelnummern mit den darein vergleichen und einen Hyperlink dazu erstellen, es soll aber auch überprüfen, ob diese Dateien existieren, wenn nicht, soll es anstelle eines Hyperlinks zur Datei keine Datei gefunden anzeigen. Am besten auch Ordner mit einbeziehen. Ich weiß nicht, ob das interessant für ein zukünftiges Video ist, aber fände ich super, wenn du’s versuchst. Danke

[@KaiWeissmann]

Vielen Dank für den Videovorschlag. Ich nehme das gerne in die Ideensammlung mit auf.

[@Katsche_Manfred]

Klasse beschrieben, grosses Problem: ich finde Dein Video zum Kontrollkästenchen nicht mehr! Wie finde ich das?

[@KaiWeissmann]

Es freut mich, dass dir mein Video gefällt. Ich vermute du meinst das Video zum Thema Icon Button. Dieses findest du hier: kzbin.info/www/bejne/mpyxpaRpd8aNqcU

[@Katsche_Manfred]

@@KaiWeissmann merci für die schnelle Antwort, aaaaber nein, das ist es nicht ( obwohl ich aus DIESEM Video auch einiges gelernt habe). In dem von mir gesuchten Video ging es nicht um Userforms sondern ganz allein um Kontrollkästchen. Gibt es keine Übersichtsdatei mit all Deinen Videos?

[@nachmacher82]

@Kai Weissmann Hallo Kai, vielen Dank für den großartigen VBA - Code. Diesen nutze ich auch beruflich. Leider habe ich dort ein Problem, bei dem du mir vielleicht oder auch ein anderer helfen kann. Manche Ordner haben eine Zugriffsberechtigung. Diese Berechtigung habe ich auch und kann ganz normal auf diese Ordner Zugreifen also reinschauen. Leider funktioniert das aber mit dem VBA - Code nicht. Ich erhalte einen Laufzeitfehler ‚70‘ Zugriff verweigert. Kann man das Problem fixen?

[@simonesartorius-neef4339]

Hi, bisher hat das alles super funktioniert. Jetzt liegen die Dateien nicht mehr lokal unter C: sondern in einer Cloud. Wie muss ich jetzt den Pfad angeben?

[@KaiWeissmann]

Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzbin.info/www/bejne/gZ2cp5Z4aMqdnc0 Ich wünsche dir für deine Projekte alles Gute.

[@johnyschon1919]

Wie kann macht man denn des das man auch die ganze Festplatte auslesen kann.

[@chris_awasobaba]

Danke für die Erklärung! Kann man die Tabelle nutzen, um den Pfad als Argument in der Suchmatrix für einen SVerweis zu setzen? So könnte man den Inhalt eines ganzen Ordners voller Exceldateien, die alle gleich aussehen, automatisch auslesen. 1.) Das Makro in einem zweiten Tabellenblatt erzeugen. 2.) Aus den Strings der Links und Dateinamen etc die Suchmatrix-Nomenklatur für den SVerweis immitieren. 3.) In ein anderes Tabellenblatt das Suchkriterium der Matrix definieren (z.B. suche in den Matrices nach dem Wort "Stromzähler", das immer in der ersten Spalte steht). 4.) Die Zelle verlinken, die die Suchmatrix-Nomenklatur immitiert (hier kann man die ganze Liste an Dateinamen im Ordner durchgehen). Fertig. Ich schreibe mal, ob es funktioniert hat. :) LG Chris

[@KaiWeissmann]

Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzbin.info/www/bejne/gZ2cp5Z4aMqdnc0 Ich wünsche dir für deine Projekte alles Gute.

[@rainerlohe299]

Gibt es auch die Möglichkeit, sich die Struktur der Ordner und Unterordner als Inhaltsverzeichnis mit Hyperlinks in den jeweiligen Ordner, nicht in die Datei zu ertsellen? Das auch Ordner ohne Inhalt gelistet werden? (Beispiel: Feld 1A Gewählter Ordner; Feld 2B Erster Unterordner; Feld 3C Erster Unterordner von 2B; Feld 4C Zweiter Unterordner von 2B; Feld 5B Zweiter Unterordner von 1A ( Felder 3B und 4B bleiben frei, da Zeile 3 und 4 in den Spalten C schon belegt; usw.) Wir haben eine Festplatte mit vielen Ordnern und Unterordner und haben keinen Überblick mehr, was in welchen Ordnern drin ist und welche leer sind. Würden uns Vater und Sohn über ein Lösungsvorschlag freuen. Danke für die tollen Videos wir üben fleißig mit.

[@just_robin]

Ich habe zwei Frage: - Wenn ich verschiedene Dateiearten in einem Ordner habe (.docx, .dwg, .pdf), mir aber nur die PDFs auslesen lassen möchte, an welcher Stelle progrmamiere ich diese Einschränkung? - Wie kann ich mir den Namen auslesen lassen, ohne das hinter dem Namen der Dateientyp (sprich .pdf) steht? Beste Grüße, wahnsinnig tolle Videos!!

[@KaiWeissmann]

Hallo Robin, freut mich, dass dir das Video gefällt! Du kannst mit Instr() nach dem Punkt suchen und dir mit Left() nur alles links vom Punkt zurückgeben lassen. Ich erkläre beide Funktionen hier: kzbin.info/www/bejne/ip2UemyuerllqZI LG Kai

[@just_robin]

@@KaiWeissmann Boa perfekt! Wieder ein Stückchen näher am Ziel!^^ Ich werde mir sowieso noch alle deine Videos ansehen :-P

[@skypolino]

Hallo Kai, ich hab ein Problem und zwar möchte ich in einer Userform eine Suche starten aus einer Datenbank und Artikel per Barcodescanner raussuchen und des Weiteren soll gleich dieser rausgesuchte Artikel in eine Weitere unserbox mit Name und Artikelnummer gespeichert werden . Ich weiß nicht wie ich das schreiben kann oder auch Bauen. 😅

[@KaiWeissmann]

Zum Thema Barcode scannen schaue dir gerne mein Video an:kzbin.info/www/bejne/pGqqYZ2mgZ6nrqs

[@volkerh5635]

Hallo Kai, das Video hat mir sehr geholfen bei meinem Projekt. Mein Problem ist allerding, dass ich nicht alle Dateien auslesen will, sondern nur bestimmte Dateitypen. Z.B in dem Ordner befinden sich word und Excel-Dateien, und ich will nur die Excel-Dateien aufgelistet haben. Etwas brauchbares habe ich bis jetzt noch nicht gefunden. Vielleicht könnte das auch ein neues Video zum Thema werden. Für eine Hilfe wäre ich dir dankbar.

[@KaiWeissmann]

Vielen Dank für deinen Kommentar und deinen Videovorschlag. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": kzbin.info/www/bejne/gZ2cp5Z4aMqdnc0 Ich wünsche dir für deine Projekte alles Gute.

[@Cyberslash]

Hallo Kai , Super Video Danke. ich bin voller Neuling in VBA habe dein Video x Mal mir angesehen und alles so gemacht (meinte ich zumindest) jedoch erhalte ich immer nur die Dateien eines Ordners und nicht jene Dateien der weiteren Unterordner angezeigt, was habe ich falls gemacht ich erlaube mir anbei mein Code einzufügen. Ich bin Dir sehr dankbar um eine kurze Rückmeldung..: 'Verweis auf die Microsoft Scripting Runtime Bibliothek 'Variablen definieren Sub AlleDateienAuslesen() Dim Ordner As Variant Dim Pfad As String 'Benutzer Ordner auswählen lassen Set Ordner = Application.FileDialog(msoFileDialogFolderPicker) 'Prüfen ob Nutzer ein Ordner ausgewählt hat If Ordner.Show = False Then Exit Sub 'Pfad definieren Pfad = Ordner.SelectedItems(1) 'Neues Tabellenblatt erstellen Worksheets.Add 'Überschriften einfügen Range("A1:D1").Value = Array("Datei", "Ordner", "Erstellungsdatum", "Letzte Veränderung") 'Dateien des Ordners auslesen Call DateienAuslesen(Pfad) 'Dateien der Unterordner auslesen Call UnterordnerAuslesen(Pfad) 'Spaltenbreite automatisch anpassen Columns("A:D").AutoFit End Sub Sub UnterordnerAuslesen(Pfad As String) 'Varieblen dimensionieren Dim fso As New FileSystemObject Dim Unterordner As Folder 'Schleife über alle Unterordner im Ordner For Each Unterordner In fso.GetFolder(Pfad).SubFolders 'Dateien des Unterordners auslesen Call DateienAuslesen(Pfad) 'Procedure UnterordnerAuslesen wieder aufrufen Call UnterordnerAuslesen(Unterordner.Path) Next Unterordner End Sub Sub DateienAuslesen(Pfad As String) 'Variablen dimensionieren Dim fso As New FileSystemObject Dim Datei As File Dim LetzteZeile As Long 'Schleife über alle Dateien im Ordner For Each Datei In fso.GetFolder(Pfad).Files 'Letzte Zeile herausfinden LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1 'Ergebnisse ins Tabellenblatt eintragen ActiveSheet.Hyperlinks.Add anchor:=Cells(LetzteZeile, 1), Address:=Datei.Path, TextToDisplay:=Datei.Name Cells(LetzteZeile, 2).Value = Datei.ParentFolder Cells(LetzteZeile, 3).Value = Datei.DateCreated Cells(LetzteZeile, 4).Value = Datei.DateLastModified Next Datei End Sub

[@bmbinder]

Hallo @Cyberslash, hab hier die Kommentare gelesen, und hab deine geprüft. Ich habe heute dieses Video von Anfang bis zum Ende Schritt für Schritt nachgemacht, bei mir hat es auf anhieb geklappt. Ich bin auf folgenden Fehler aufmerksam geworden. Sub UnterordnerAuslesen(Pfad As String) in der Zeile "Call DateienAuslesen(Pfad)" soll folgendes in der Zeile "Call DateienAuslesen(Unterordner.Path)" stehen. Hoffe Du siehst jetzt den Unterschied. LG

[@Cyberslash]

@@bmbinder Guten Morgen, Vielen Dank für Dein echo, ich konnte nun den Fehler korrigieren. Herzlichen Dank und einen schönen Sommer. LG aus der Schweiz

[@bmbinder]

@@Cyberslash Sehr gerne.

[@michaelnoack6534]

Hallo Kai, Tolles VBA, sowas hab ich schon lange gesucht. Ich hab aber ein Problem bei der Zeile: " ActiveSheet.Hyperlinks.Add anchor:=Cells(letztezeile, 1), adress:=Datei.Path, TextToDisplay:=Datei.Name" dort haut es mir immer Debuggen rein, woran kann das liegen? Ich arbeite mit Mirosoft Office Standard 2019. Gruß Micha und Danke im Voraus

[@KaiWeissmann]

Hey Michael! Vielleicht hilft es, die Address anders anzusprechen: Address:=Pfad & "\" & Datei.Name Hoffe das Hilft. Lg, Kai

[@michaelnoack6534]

@@KaiWeissmann Danke Kai, das hat geklappt LG Micha

[@johnyschon1919]

Ein suuper Video genau das habe ich gesucht; Kannst du dir vorstellen das man das ein kleinwenig Anwendungsfreundlicher machen kann in einem 2ten Video. Ich habe da tolle Ideen ich ich sehr gut gebrauchen könnte. Kann man mit dir mal perZoom sprechen damit ich alles erklären kann was ich mir da so dachte. Bitte, danke

[@KaiWeissmann]

Vielen Dank für deinen Kommentar. Es freut mich, dass dir mein Video weiterhelfen konnte. Die Möglichkeiten, um Makros auszuführen zeige ich hier: kzbin.info/www/bejne/rqa7hH2Fep6Fp8k ich hoffe das hilft dir weiter.

[@johnyschon1919]

@@KaiWeissmann das meinte ich nich ich bräuchte noch was zusätzliches. Können wir mal sprechen?

[@KaiWeissmann]

Vielleicht hilft dir dieses Video weiter zum Thema Excel-Interface ausblenden: kzbin.info/www/bejne/h6HPmImJlNGdmKs Persönliche Gespräche kann ich nur im Rahmen meiner Beratungen (Aktuell zum Thema Power Apps) anbieten.

[@kaidoergelohdorgeloh7374]

Hallo Kai Mein Vorname ist auch kai :-)🤣 bin absoluter Anfänger , und bekomme immer der den Fehler Laufzeitfehler '424' und weis leider nicht warum 'Verwieis auf die Maicrosoft Scripting Runtime Bibiliothek Sub DateienAuslesen() 'Variablen dimensionieren Dim feo As New FileSystemObject Dim Datei As File 'Schleife über alle Dateien im Ortner For Each Datei In fso.GetFolder("C:\Users").Files 'Dateiname direcktind festerschreiben Debug.Print Datei.Name Next Datei End Sub Schau mal danke

[@KaiWeissmann]

Wenn du auf debuggen gehst, sollte die Zeile mit dem Fehler gelb markiert werden. So lässt sich der Fehler eingränzen und leichter finden. Oder du gehts den Code mit F8 Schritt für Schritt durch.