auf das zugegriffen wird administriert wird und Rechte drauf vergeben wurden. Dann muß ich Code:. " heraus nehmen. Geändert von Unklar01 (26. 2016 um 06:46 Uhr). 27. 2016, 11:08 # 6 Ich habe heute das "Tool" eig. ein Macro benutzt um die Anzahl von Dateien auszulesen... leider haut da was nicht hin, es werden mir Verzeichnisse aufgelistet wo nix drin ist und im Feld Dateien (Spalte B) eine 1 dargestellt. Excel2010 - VBA-Fehler,Benutzerdefinierter Typ nicht definiert - MS-Office-Forum. Habe in einem Verzeichnis dann einfach mal ne Kopie erzeugt (damit waren 2 Dateien im Verz) die wurden auch gezählt. Warum zeigt er mir im Verz. eine Datei an, wenn gar keine im Verz. ist?
= vbYes Then With ActiveSheet. [A:D]. ClearContents. [A1] = "Pfad". [B1] = "Dateien". [C1] = "Größe". [D1] = "Unterverz. ". [A1:D1] = True 'Start der Ausgabe nextSF fStart Set fStart = Nothing Set fso = Nothing atusBar = False End Sub Function nextSF(ByVal f As Folder) As Folder Dim sf As Folder atusBar = If = "System Volume Information" Then Exit Function With Cells(, 1)(xlUp)(1, 0) (0, 0) = (0, 1) = (0, 2) = (0, 3) = f. For Each sf In bFolders nextSF sf Next sf Set sf = Nothing Set f = Nothing End Function Geändert von Unklar01 (21. 2016 um 15:04 Uhr). 21. 2016, 15:07 # 2 MOF Guru Registrierung: 10. 07. 2007 Hallo?? Benutzerdefinierter typ nicht definiert na. ?, steht doch als erstes in Deinem Code: VB-Editor - Extras - Verweise. Also genau das Gleiche, über das wir uns schon vor knapp 6 Jahren unterhalten haben: Ggf. musst Du dafür als Admin angemeldet sein bzw. Excel mit Admin-Rechten starten (Rechtsklick - "Als Administrator ausführen"). Grüße EarlFred __________________ Für 14 meiner Beiträge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste!
> hallo CK, du musst im Code X:\1_Business_Blueprint\AP1_Material\KTR 010 Materialstamm\ ersetzen durch den Pfad/Dateinamen zu deiner Datei. Aber bei mir läufts dann auch nicht, der Provider MSDASQL. 1 ist unbekannt. Probier mal diesen Code (Dateinamen bei DATEI ändern! ): Sub GetSheetNames() Dim cn As nnection Dim cat As talog Dim t As Datei = "C:\test\" Set cn = New nnection ";" & _ "Data Source=" & Datei & _ ";Extended Properties=Excel 8. 0;" Set cat = New talog Set tiveConnection = cn For Each t In MsgBox Replace(, "$", "") Next t Set cat = Nothing Set cn = Nothing End Sub Bei mir taucht am Ende der Tabellennamen jeweils ein $ auf, das kann man mit Replace ersetzen. Diskussion - Benutzerdefinierter Typ nicht definiert. Übrigens wird die Datei auch mit ADO durchaus geöffnet, denn man kann auf die Datei, aus der die Tabellennamen ausgelesen werden, während der Abfrage nicht zugreifen (zumindest bei obigem Code nicht, es gibt für den Open-Befehl weitere Parameter, wie die Datei zu öffnen ist. Da kenne ich mich aber weniger gut aus... ) Gruß stefan Clarckkent unread, Feb 6, 2009, 9:38:01 AM 2/6/09 to Hallo Stefan, vielen Dank für die Infos.
Skip to Main Content HOME Diözesan-caritasverband Caritaspastoral ERZBISTUM KÖLN Startseite Plaketten Produkte 'Online' bestellen Gottesdienste Der Heilige Christophorus Informationen zu Christophorus Sechs Haltungen Wettbewerb & Entwürfe Minibuch Kontakt Fahrzeuge der ambulanten Pflege der Caritas Rhein-Erft fahren 28 Mal um die Erde – jetzt mit neuen Christophorus-Plaketten | mehr... Ihr Kontakt zu uns Mehr Infos zum neuen Christophorus-Signé bei: Bruno Schrage Referent für Caritaspastoral und Grundsatzfragen Tel. 0221/2010-184 Fax. 0221/2010-323 E-Mail: Ihr Weg zu uns Das neue Christophorus-Signé - gut auf dem Weg! Georgstraße 7 köln. Ihr Kontakt zu uns: Bruno Schrage Georgstraße 7 50676 Köln Tel. : 0221 2010-184 © 2016 // Christophorus Impressum | Datenschutz | Rechtliche Hinweise top
36 Beratungsstellen für Schwangere Platz für alle - Imagefilm der Caritas Bei der Caritas im Erzbistum Köln sind alle Menschen willkommen und erfahren Unterstützung – ganz gleich, welchen Alters, welcher Herkunft oder Religion. Das ist die Botschaft des Imagefilms, den der Diözesan-Caritasverband mit der Kölner Produktionsfirma Kigali Films produziert hat. Der Film trägt den Titel "Caritas – Platz für alle". In 80 Sekunden erzählt der Spot die Geschichte eines spießig anmutenden Geschäftsmannes, der in seinem Auto Platz für alle hat: eine alte Dame, einen Migranten, eine Punkerin, einen jungen Mann mit Down-Syndrom, ein Kind… EiNZIGWARE EiNZIGWARE ist ökologisch, sozial und kreativ. Menschen bekommen hier neue Chancen und Gegenstände neues Leben. Sieben Beschäftigungs- und Qualifizierungsbetriebe im Erzbistum Köln sind Teil des Upcycling-Labels. CaritasStiftung im Erzbistum Köln | Impressum. Für die teilnehmenden Frauen und Männer bedeutet EINZIGWARE vor allem Teilhabe am Arbeitsleben. Wer Hass, Gewalt, Leid und Tod bringt, trennt den Bund mit Menschen und mit Gott.
Adresse des Hauses: Köln, Georgstraße, 13 GPS-Koordinaten: 50. 87646, 7. 07989
Wir sichern zu, die geltend gemachte Verletzung unverzüglich zu prüfen und zu Recht beanstandete Inhalte und Links sofort zu entfernen. Datenschutzhinweis: Der Anbieter dieser Internetseiten verwendet zur Auswertung der Nutzung seines Angebots Google Analytics, einen Webanalysedienst der Google Inc. Weitere Informationen finden Sie in der Erklärung zum Datenschutz.