Discussion: Listenfeld - Laufzeitfehler 13 - Typen unverträglich (zu alt für eine Antwort) Hallo NG! Habe hier ein Formular namens Kapazitätsplanung, welches alle Mitarbeiterdaten und einige berechnete Felder enthält. Unten ins Formular habe ich ein Listenfeld gesetzt, dass ich mir auf 3 verschiedene Weisen anzeigen lassen kann. (alle MA, aktive MA, inaktive MA). Ein paar Textfelder unter dem Listenfeld sind für die Summenbildung der Werte aus dem Listenfeld zuständig. Klappt auch alles soweit ganz prima. Mein Problem ist aber, dass die eigentliche Funktionalität des Listenfelds, nämlich die Auswahl des entsprechenden Datensatzes für das Formular, nicht mehr funktioniert. Zur besseren Erklärung mal eine der 3 Subs zum Anzeigen des Listenfelds: Private Sub cmd_aktiveMA_Click() Forms! frm_Kapazitätsplanung! Laufzeitfehler '13': Typen unverträglich - Archiv - VBA-Forum - ActiveVB. wSourceType = "Table/Query" Forms! frm_Kapazitätsplanung! wSource = "qry_Mitarbeiter_Kapazität_aktiv" Forms! frm_Kapazitätsplanung! ntrolSource = "=DSum('MSollstunden', 'qry_Mitarbeiter_Kapazität_aktiv')" Forms!
Norbert Post by Lupus Goebel Hallöschen allesamt, <Laufzeitfehler 13, Typen unverträglich> Function test() Dim I As Variant Dim rs As Recordset For I = 0 To 5 Set rs = Recordset("tblDatum") rs! anhang = I Set rs = Nothing Next I End Function In der Tabelle "tblDatum" ist die Spalte "anhang" als Text definiert. -- MfG - Lupus Goebel Der Sumpf und Morasthobbybastler und Anfaenger mit Wissensdurst ()
Tach, Post by Norbert Laas Hi lupus ich habe die Function und die Tabelle bei mir ausprobiert; Es gab keinen Fehler Ich vermute, das es u. Norbert Mh, was könnte das für ein Fehler sein? Ich dachte es könnten evtl. an den Verweise liegen? < Loading Image... > Habe die Datei mal ins Netz gestellt. Als zip 13 kb <>
Range("C6") = Range("C6") - ( (stIndex)) ODER erstmal Range("C6") = Range("C6") - ( (0)) == stIndex Dies ist der ausgewählte Eintrag in der Listbox Auch wenn in deiner Listbox eine Ziffer steht behandelt VBA das Ding als "Text" und du musst dies zunächst in den gewünschten Typ konvertieren. == Und bevor du die Listbox befüllst erstmal ein
Lösung: Nehmen Sie Zuordnungen nur zwischen kompatiblen Datentypen vor. Ein Integer -Wert kann beispielsweise immer einem Long -Wert zugeordnet werden, während ein Single -Wert immer einem Double -Wert und ein beliebiger Typ (außer ein benutzerdefinierter Typ) einer Variante zugeordnet werden kann. Ursache: Es wurde ein Objekt an eine Prozedur übergeben, die eine einzelne Eigenschaft oder einen einzelnen Wert erwartet. Lösung: Übergeben Sie die entsprechende einzelne Eigenschaft, oder rufen Sie eine für das Objekt geeignete Methode auf. Ursache: Es wurde ein Modul - oder Projekt -Name verwendet, obwohl ein Ausdruck erwartet wurde. Laufzeitfehler 13 typen unverträglich vba met. Beispiel: MyModule Lösung: Geben Sie einen Ausdruck an, der angezeigt werden kann. Ursache: Sie haben versucht, die herkömmliche Basic-Fehlerbehandlung mit Varianten -Werten zu mischen, die dem Fehler -Untertyp (10, vbError) entsprechen. Beispiel: Error CVErr(n) Lösung: Wenn Sie einen Fehler erneut generieren möchten, müssen Sie ihn einem systeminternen Visual Basic-Fehler oder einem benutzerdefinierten Fehler zuordnen und den Fehler anschließend generieren.
Apr 2014, 09:43 hat folgendes geschrieben: In zelle c13 ist wiederum ein Bezug (Verknpfung mit einer MS-Project Datei) die eine Zahl ausgibt zwischen 0 und 1 (fr 0 - 100%) Definiere diese Variable mal als Single: Code: Dim Abgeschlossen As Single Oder, wenn die Zahl als Text bergeben wird, wandle diese mit Val in eine Zahl um. [/code] Verfasst am: 14. Apr 2014, 10:03 Rufname: Gast140414 - 14. Apr 2014, 09:50 hat folgendes geschrieben: Ich glaube ich weiss woran es liegt. Da bei manuellem starten ja lles einwandfrei funktioniert, knnte es daran liegen, dass er die verknpften felder zur MS-Project Datei noch nicht fertig geladen hat und das makro aber bereits ausgefhrt. Dann lass Dir doch vom Makro anzeigen, was in die Variable geschrieben werden soll, wenn der Fehler auftritt. z. B. mit Worksheets(Name)(b, 16) oder Du leitest den Fehler mit On Error Goto um und meldest dort den Inhalt z. Laufzeitfehler 13 typen unverträglich via le site. mit Msgbox, oder, oder, oder. Auf jeden Fall solltest Du herausfinden, was in der Zelle steht, wenn der Fehler auftritt.
Genau das - und das macht das Formular nun seit ich das Listenfeld über die o. a. Art und Weise seine Daten ziehen lasse. Werden wohl die Datentypen seien, die da nicht miteinander können. Private Sub lst_Mitarbeiter_AfterUpdate() ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen. Dim rs As Object Set rs = ndFirst "[MitarbeiterNr] = " & Str(Nz(Me! [lst_Mitarbeiter], 0)) <-- diese Zeile wird angemeckert If Not Then okmark = okmark BildAktualisieren End Sub AfterUpdate benutzt "Object"... Laufzeitfehler '13': Typen unverträglich. mein Listenfeld hat aber vorher aus Abfragen seine Daten bekommen und das dürfte daher ein "String" sein, wenn ich nicht komplett falsch liege. Nur wie ich das Problem lösen kann - da steh ich auf'm berühmten Schlauch. :) Grüße, Martin Wolf Hallo! Post by Martin Wolf Post by Karl Donaubauer Post by Martin Wolf Habe hier ein Formular namens Kapazitätsplanung, welches alle Mitarbeiterdaten und einige berechnete Felder enthält. :) Versuch es mal so (' zweimal hinzufügen): ndFirst "[MitarbeiterNr] = '" & Str(Nz(Me!
Somit kann auch sehr schwerer nasser Schnee zuverlässig planiert werden. Der Finishergummi ist aus PU und wird von dem Hersteller produziert der auch beide Pistenraupenhersteller beliefert. Das Glättbrett ist im Neigungswinkel mehrfach verstellbar. Über eine Seilwinde mit Handkurbel ist der Finisher stufenlos in der Höhe verstellbar. Loipenspurgerät selber bauen und. So kann bei sehr großen Neuschneemengen (größer 50 cm) im ersten Arbeitsgang, ohne oder mit halb herunter gelassenem Glättbrett, vorverdichtet werden. Bei normalen Schneemengen oder gesetztem Schnee ist nur ein Arbeitsgang notwendig. Je nach Schneeart oder Höhe ist eine Zuggeschwindigkeit bis zu 20 km/h möglich. Zum Rückwärtsfahren oder für schnelle Heimfahrt kann der Finisher komplett hoch gehoben werden. Die Deichsel ist schnell demontierbar (2 Schrauben und zwei Spannschlösser). Das Glättbrett und die Walze sind ebenfalls schnell demontierbar, so ergibt sich ein geringes Transportmaß und Staumaß 1, 9 x 1, 3m (Sommer). Auch ist so ein Transport / Abholung mit Sprinter oder kleinem Hänger möglich.
Jetzt war das Problem das wir diese Wartung einmal vergessen haben und dadurch hat sich eine Litze ausgerissen bzw. wurde schwach. Ich konnte diesen Hang ohne Probleme fertig präbarieren und fuhr zum nächsten. Bei diesem Hang nach ca 20 min Windenbetrieb löste sich die Litze im Windenarm vor der ersten und zweiten Umlenkrolle und ging auf und verursachte einen Riesenstahlknaul im Windenarm, ungefähr 35m Stahllitze zusammengepresst auf knappe 30cm! Unimog Bordwände & Pritschenbeschläge - Univoitshop. Da ich aber abwärts unterwegs war sah ich nicht wie sich dieser Knaul bildete und merkte es erst als das Seil sich nicht mehr von der Trommel abrollen ließ und ich dadurch keinen Meter mehr vor oder zurück! Da ein Rückwärtsfahren ohne seil aufgrund der Steigung nicht möglich war und ich keinen Meter mehr vor kam, war ich gezwungen das Windenseil mittels akkuflex zu trennen! Ich hätte mir nie vorstellen könne welche Kräfte bei solch einem Manöver frei werden! Zum Glück war kein anderer in unmittelbarer nähe den das Seil ist in allen richtungen geflogen!