actionbrowser.com
Discussion:
Laufzeitfehler 13, Typen unverträglich bei Recordset
(zu alt für eine Antwort)
Hallöschen allesamt, warum bekomme ich hier die Meldung: 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 ()
Hallo Lupus, Post by Lupus Goebel 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. VBA-Forum - Das Forum zu Microsoft VBA. wenn Du die einzufügenden Daten als Text formatierst, sollte es rs! anhang = CStr(I) Außerdem würde ich die Variable I als Integer deklarieren. Variant nehme ich immer nur, wenn es nicht anders geht (also nie;-)) Happy sliding... -- *** Homepage: TM-FixObjectNames: Update auf Version 2.
Typenkonflikt (Fehler 13) | Microsoft Docs Weiter zum Hauptinhalt Dieser Browser wird nicht mehr unterstützt. Führen Sie ein Upgrade auf Microsoft Edge durch, um die neuesten Features, Sicherheitsupdates und den technischen Support zu nutzen. Artikel 04/07/2022 2 Minuten Lesedauer Ist diese Seite hilfreich? Haben Sie weiteres Feedback für uns? Feedback wird an Microsoft gesendet: Wenn Sie auf die Sendeschaltfläche klicken, wird Ihr Feedback verwendet, um Microsoft-Produkte und -Dienste zu verbessern. Datenschutzrichtlinie Vielen Dank. In diesem Artikel Visual Basic kann zahlreiche Werte konvertieren und umwandeln, um Datentyp -Zuordnungen zu realisieren, die in früheren Versionen nicht möglich waren. Dieser Fehler kann jedoch weiterhin auftreten. Laufzeitfehler 13 typen unverträglich vba excel. Er hat die folgenden Ursachen und kann wie folgt gelöst werden: Ursache: Die Variable oder die Eigenschaft entspricht nicht dem richtigen Typ. Beispielsweise kann eine Variable, für die ein Ganzzahlenwert erforderlich ist, keine Zeichenfolgenwerte akzeptieren - es sei denn, die gesamte Zeichenfolge kann als Ganzzahl erkannt werden.
02. 04. 09 15:39:28, Aufrufe: 41 [Fest] Re: Laufzeitfehler '13': Typen unverträglich von Helge Rex Helge Rex besitzt Moderationsrechte und ist Mitglied im ActiveVB e. V. "Typen unverträglich" bedeutet in der Regel, daß Du mit dem Wert einer Variablen oder eines Objektes eine Aktion durchführen möchtest, die für den Datentyp nicht vorgesehen ist. Einfache Beispiele sind Addition, Subtraktion, Multiplikation oder Division, bei dem (mindestens) eine beteiligte Variable keine Zahl ist (eine Zeichenkette mit der Länge Null ist ebenfalls keine Zahl). Grüße Helge FDP möchte gesetzliche Krankenversicherung abschaffen Ironie und deren Isotope Sarkasmus und Zynismus funktionieren nicht in reiner Textform. Member-Page Alle Beiträge Danke! - MichaelaR 03. Listenfeld - Laufzeitfehler 13 - Typen unverträglich. 09 09:12:17
Das Problem, Selection geht von der Zelle aus, in der du dich aktiv befindest. Wenn möglich gib die benötigte Zelle über Range an z. B. : Visual Basic-Quellcode delta = DateDiff( "d", Range( "B4"), Range( "B4")( 1, 0)) Wobei "B4" die Zelle ist. SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ= Weil einfach, einfach zu einfach ist! Das mit Range kann ich leider nicht machen da mir die Zelle nicht bekannt ist und diese sich ändert. Laufzeitfehler 13 typen unverträglich vba 10. Ich ermittele die Tageswerte und schreibe mir den Tag und den Wert auf ein anderes Tabellenblatt. Etwas mehr aus meinem Code: Do Until (0, -1) <> "HT-Kalender" Hier ist der Grund dafür = (0, -2) + (-1, 0) If Delta = 1 Then container = (0, 0) Worksheets("Calc")("C" & i) = container Worksheets("Calc")("A" & i) = Format((0, -4), "DDD ") (0, 0) = 0 i = i + 1 End If (1, 0) Loop lorenzo von matterhorn schrieb: as mit Range kann ich leider nicht machen da mir die Zelle nicht bekannt ist und diese sich ändert Dann setz vorher einen Find-Befehl ab, um die Zelle zu suchen.