Norbert Post by Lupus Goebel Hallöschen allesamt, 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. VBA-Forum - Das Forum zu Microsoft VBA. Als zip 13 kb <>
05. 2008 bei mir läuft das Makro ohne Fehler, was vielleicht daran liegt das N=0 __________________ Signatur in jedem Beitrag Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Fragen werden im Forum beantwortet, nicht per PN. 26. 2015, 11:50 # 3 MOF Koryphäe Registrierung: 09. 11. 2011 Ort: Geesthacht bei Hamburg Moin Reini, Zitat: Nein, denn n ist nicht deklariert und hat damit einen undefinierten Wert. Laufzeitfehler 13 typen unverträglich vba 7. Hier dürfte das 0 ergeben, weil ein numerischer Wert bei erwartet wird. Günther Eine Rückmeldung ist gegenüber den Helfern einfach nur fair! Mein Blog im Kindesalter: Du kannst jeden Beitrag eines Helfers bewerten, schau mal die Symbole links unten an... 26. 2015, 11:54 # 4 Threadstarter Hallo Günther. Sorry, hab eine Zeile vergessen zu kopieren. n ist bei mir nicht 0 sondern geht immer bis zur letzten beschriebenen Zeile im Tabellenblatt "xxx" n = Worksheets("Ausgangsdaten_Mengen_AUT")("A3")(xlDown) n ist als Long deklariert!
Oder gib der Zelle einen Namen. Selection ist ein absoluter Faux-pas. Wenn du innerhalb der ersten 4 Spalten selektierst MUSS (1, -4) in den Wald zeigen -- If Not Working Then Else NotTouch petaod schrieb: Bisher hat es mit dem immer gut gepasst: / Ich habe zum Test deine Zeile eingefügt und es ist zumindest dort weiter gelaufen. Diese besondere stelle habe ich 3 mal im Code. Wie funktioniert das mit dem Findbefehl hast du nen Link? Oder kannst du mir sagen wie ich das abändern soll? Oder kann ich irgendwie einen Platzhalter nutzen? (0, -4) (1, -4) Delta = DateDiff("d", Range(X), Range(Y)) EDIT: Ich probiere das gerade und als was Deklariere ich dann X und Y? DIM X As? EDIT: Also in der Spalte A befindet sich auf der Höhe wo er schaut ein Datum. Wenn ich leere spalte auswähle dann hat der code kein problem. Also hat Delta = DateDiff () damit ein Problem das da ein Datum ist? Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von "lorenzo von matterhorn" ( 23. Laufzeitfehler '13': Typen unverträglich erst seit Excel2010 - Visual Basic for Applications (VBA) - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. November 2012, 15:05) Ich bin mir Ziemlich sicher das es an "(0, -4)" liegt weil dort ein Datum steht und Excel 2010 darauf nicht klar kommt.
2012 00:00" und das Format war Datum aber es war ein String. Vermutlich konnte Excel es nicht umwandeln da Excel zwar Deutsch installiert ist aber der Server auf Großbritanien (Englisch) steht, dadurch erwartet es ein Datumsformat "01/09/2012". Die Lösung war es den Inhalt der Zelle zum Datum zu machen: Dim XD As Date Dim YD As Date XD = Replace(Left((0, -4), 10), ". ", "/") 'Nimmt die ersten 10 Stellen und ersetzt. durch / YD = Replace(Left((1, -4), 10), ". ", "/") Delta = DateDiff("d", XD, YD) Danke an petaod, derrieger und BiedermannS für Eure Hilfe. Freut mich, dass es nun funzt. Ich frage mal, ob ein Delta = DateDiff( "d", cdate(( 0, - 4)), cdate(( 1, - 4))) auch gereicht hätte. Peterfido Keine Unterstützung per PN! Auf jeden Fall besser als mit Selection zu arbeiten. Laufzeitfehler 13 typen unverträglich vba 1. Da kann so viel schief gehen. Und wenn man den User eine Zelle auswählen lässt, dann nimmt man einmal Selection und speichert das in einer Range und arbeitet mit dieser. Weil keiner garantieren kann, das sich die Selection nicht unbeabsichtigt ändert (hatte ich irgendwann mal bei einem größeren Projekt) Visual Basic for Applications (VBA) »