Teneriffa Süd Abflug
Clarckkent unread, Feb 4, 2009, 12:48:01 PM 2/4/09 to Hallo Zusammen, wenn ich dieses Marco ausführe bekomme ich folgende Fehlermeldung. - Fehler beim kompilieren, Benutzerdefinierter type nicht definiert-. Diesen code habe ich aus einem Forum einfach in ein Modul kopiert. Warscheinlich fehlt da noch eine Einstellung. Ich weiss nur nicht welche. Vielen DAnk im Voraus. Sub GetSheetNames() Dim cn As nnection ' Hier hält das Programm an. VBA-Forum - Das Forum zu Microsoft VBA. Fehlermeldung s. oben. Dim cat As talog Dim t As Set cn = New nnection "Provider=MSDASQL. 1;Data Source=Excel Files;" _ & "Initial Catalog=X:\1_Business_Blueprint\AP1_Material\KTR 010 Materialstamm\" 'change path name here Set cat = New talog Set tiveConnection = cn For Each t In Next t Set cat = Nothing Set cn = Nothing End Sub -- Best regards CK stefan onken unread, Feb 4, 2009, 1:01:14 PM 2/4/09 to On 4 Feb., 13:48, Clarckkent < > wrote: hallo CK, dir fehlt ein Verweis. Im VBA-Editor auf Extras/Verweise, dort einen Haken setzen bei Microsoft ActiveX Data Objects x. x Library.
21. 10. 2016, 14:57 # 1 MOF User Registrierung: 05. 03. 2005 Karma: Excel2010 - VBA-Fehler, Benutzerdefinierter Typ nicht definiert Hallo, ich bekomme es einfach nicht hin. Ich habe hier Script mit dem ich mir die Verzeichnisstruktur auflisten kann. Das Script funktioniert wenn ich es in der Datei aufrufe in der ich es mal eingegeben hatte. Nun wollte ich es in meiner mit unterbringen, denn ich benötige es halt auch in anderen Dateien. Da meckert er immer das ein Benutzerdefinierter Typ nicht definiert sei. Kann mir einer dabei behilflich sein? Benutzerdefinierter Typ nicht definiert - Sonstige Problemstellungen - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Bitte nicht F1.... da werde ich nicht schlau draus. Code: Sub Verzeichnisse_auflisten_mit_Anzahl_Dateien_Strg_Y() 'Verweis auf 'Microsoft Scripting Runtime 'muss gesetzt sein! ' Tastenkombination: Strg+q Dim fStart As Folder Dim fso As New FileSystemObject With leDialog(msoFileDialogFolderPicker) If = -1 Then Set fStart = tFolder(. SelectedItems(1) & thSeparator) Else Exit Sub End If End With If MsgBox("Alte Ausgabe löschen? ", vbYesNo, "Alte Ausgabe Löschen? ")
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. Benutzerdefinierter typ nicht definiert in 1. 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. 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?
> 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! Benutzerdefinierter typ nicht definiert vba. ): 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. Ü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.
Hinweise Definieren und verwenden Sie einen Strukturdatentyp, wenn Sie verschiedene Datentypen in einer einzelnen Einheit kombinieren müssen oder wenn keiner der elementaren Datentypen Ihren Anforderungen entspricht. Der Standardwert eines Strukturdatentyps besteht aus der Kombination der Standardwerte der einzelnen Member. Deklarationsformat Eine Strukturdeklaration beginnt mit der Structure-Anweisung und endet mit der -Anweisung. Die Structure -Anweisung gibt den Namen der -Struktur an. Dies ist auch der Bezeichner des Datentyps, den die Struktur definiert. Andere Teile des Codes können diesen Bezeichner verwenden, um Variablen, Parameter und Funktionsrückgabewerte als Datentyp dieser Struktur zu deklarieren. Die Deklarationen zwischen den Structure Anweisungen und End Structure definieren die Member der -Struktur. Zugriffsebenen für Member Sie müssen jeden Member mithilfe einer Dim-Anweisung oder einer -Anweisung deklarieren, die die Zugriffsebene angibt, z. Benutzerdefinierter Typ nicht definiert — CHIP-Forum. B. Öffentlich, Friend oder Privat.
Scheint zu laufen. Allerdings werden nicht nur die reinen Tabellennamen ausgelesen sondern auch Sachen wie "Druckbereiche",... Aber das kriege ich schon irgendwie hin. Nochmals vielen Dank. Wo und wie lernt man eigentlich solche Sachen? Gibt es spezielle Bücher oder Kurse darüf? Gruß -- Best regards CK stefan onken unread, Feb 6, 2009, 11:02:00 AM 2/6/09 to On 6 Feb., 10:38, Clarckkent < > wrote: > Hallo Stefan, > vielen Dank für die Infos. > Allerdings werden nicht nur die reinen Tabellennamen ausgelesen sondern auch > Sachen wie "Druckbereiche",... > Aber das kriege ich schon irgendwie hin. > > Wo und wie lernt man eigentlich solche Sachen? Gibt es spezielle Bücher oder > Kurse darüf? > Gruß > > -- > Best regards > CK > hallo CK, stimmt, Druckbereich werden auch als Table angesehen. es gibt hier einen Ansatz (OpenSchema), wie man nur die Tabellennamen ausliest, aber das funktioniert wohl nur mit älterem Versionen, bei mir (Vista/Office2007) jedenfalls nicht. ich habe von ADO aber nur rudimentäre Kenntnisse.