[lst_Mitarbeiter], 0)) & "'" Ciao André -- Post by Martin Wolf Post by Martin Wolf... Private Sub cmd_aktiveMA_Click() Forms! frm_Kapazitätsplanung! wSourceType = "Table/Query" Forms! frm_Kapazitätsplanung! wSource = "qry_Mitarbeiter_Kapazität_aktiv"... Klicke ich im Formular auf eine Zeile im Listenfeld erhalte ich die Meldung "Laufzeitfehler 13: Typen unverträglich"... :) Naa. Das liegt wahrscheinlich daran, dass der Datentyp der gebundenen Spalte nicht zur MitarbeiterNr passt. Du musst also prüfen, welche Spalte die gebundene im Listenfeld ist, welches Feld nach der Zuweisung von "qry_Mitarbeiter_Kapazität_aktiv" nun in der gebundenen Spalte steht und ob es zum Datenyp von [MitarbeiterNr] passt. Falls z. B. Excel VBA Laufzeitfehler 13?. [MitarbeiterNr] eine Zahl ist und die erste Spalte im Listenfeld die gebundene, dann muss das erste Feld deiner Abfrage ebenfalls eine Zahl sein. ********* Access-FAQ: Post by Karl Donaubauer Post by Martin Wolf AfterUpdate benutzt "Object"... Vielen Dank für die schnelle Hilfe - die Abfragen haben jeweils das Feld MAKürzel als 1. gehabt - hab diese nun umgestellt, sodass sie ebenfalls die Nr. als 1. abfragen und siehe da: Es funzt!
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. Excel-vba - typenkonflikt - vba fehler typen unverträglich abfangen - Code Examples. 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.
Sie können sie mit fast jeder Web-Programmiertechnologie erstellen, z. B. HTML5, JavaScript, CSS3 und XML. Support und Feedback Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
(Wenn du von deinem Haus vier Häuser weiter gehst bist du wo anders als wenn du vom Nachbarhaus vier Häuser weiter gehst... ) Entweder suchst du die entsprechende Zelle anhand von diversen Anhaltspunkten. Oder du sorgst dafür, dass das Datum immer an der selben Stelle zu finden ist. Selection ist eine Userauswahl, welche als Bezugspunkt gilt. Also, vergiss selection. Edit: Versuch es mal so: (Das erste Range muss an die Spalte angepasst werden) EDIT: Hatte nen kleine Fehler darin. Laufzeitfehler 13 typen unverträglich va bien. Hier der aktuelle Code Sub test() Dim current As Range Set current = ( "F" & 6) Do Until < > "HT-Kalender" = ( 0, - 2) + ( - 1, 0) Delta = DateDiff( "d", ( 0, - 4), ( 1, - 4)) Container = ( 0, 0) Worksheets( "Calc")( "C" & i) = Container Worksheets( "Calc")( "A" & i) = Format(( 0, - 4), "DDD ") ( 0, 0) = 0 Set current = ( 1, 0) End Sub Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von " BiedermannS " ( 26. November 2012, 10:49) --SOLVED-- Es lag daran das Excel das Datum nicht mehr erkannt hat. Zwar stand in der Zeile "01.
HPQ) 30035 Offtopic 17939 Smalltalk 5984 Funtalk 4920 Musik 1189 Sport 10249 Feedback 8085 CHIP Online 1986 CHIP Magazin 129 Ideen & Bugs 49 CHIP Betatestforum Hallo miteinander! Bin beim programmieren eines einfachen Codes auf ein Problem gestoßen. Ich würde gerne 2 Zahlen (die in InpuBoxen iengegeben werden) addieren und das Ergebnis in einer MsgBox ausgeben. Der Code: Public Sub Test_2() ' Adds two inputed numbers and displays the result in a message box Dim x As Integer, y As Integer InputBox ("Please enter a number! ") InputBox ("Please enter another number! ") MsgBox x, " plus ", y, " equals ", x + y End Sub Sollte die Zeile "MsgBox" eher so aussehen? Laufzeitfehler 13 typen unverträglich vba euro. MsgBox (x & " plus " & y & " equals " & x + y) Danke für eure Hilfe! 0