Mein Makro dazu: Private Sub Worksheet_Calculate() If Range("O12:O42") > 0 Then MsgBox "Sie arbeiten am Faschingsdienstag bzw. am Kirchweihdienstag länger als 12. 00 Uhr! ", _ vbCritical End If End Sub Ich bekomme aber immer einen Laufzeitfehler 13 - Typen unverträglich zurück. Woran kann das liegen? Herzlichen Dank im Voraus für die Antworten! Viele Grüße harald von: Michael Geschrieben am: 22. 2016 09:51:19 Hi, das liegt daran, daß Range("O12:O42") 30 Werte sind, die Du mit nur EINEM Wert vergleichst. Vermutlich bremst Du Excel mit dem Worksheet_Calculate aus, weil das bei JEDER Berechnung ausgeführt wird. Ich fände es geschickter, die Zellen R12:R42 bzw. D12:D42 bei der EINGABE abzufragen. Schöne Grüße, Michael Betrifft: AW: Laufzeitfehler 13 - Typen unverträglich.... von: Daniel Geschrieben am: 22. 2016 09:56:49 Hi der Fehler kommt, weil der Vergleich mit > versucht, zwei Einzelwerte miteinander zu vergleichen. Laufzeitfehler 13 typen unverträglich vba for sale. dein Range("O12:O42") ist aber kein Einzelwert, sondern eine Gruppe (Array) mit 31 Einzelwerten, und diese Gruppe kannst du nicht mit einem Einzelwert vergleichen, daher der Fehler.
[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. [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. Laufzeitfehler 13 typen unverträglich vba download. gehabt - hab diese nun umgestellt, sodass sie ebenfalls die Nr. als 1. abfragen und siehe da: Es funzt!
02. 04. 09 13:11:48, Aufrufe: 57 [Fest] Laufzeitfehler '13': Typen unverträglich von Hallo zusammen, ich habe leider absolut keinen Schimmer von VBA und hoffe, dass ihr mir weiterhelfen könnt. Ich habe folgendes Problem. Ich muss eine erstellen, die ein bestimmtes Format einhalten muss. Das Format heißt F8. 0 (Fortran), d. h. er ließt immer acht Zeichen, dann muss die nächste Zahl beginnen. Das sieht dann ungefähr so aus: 123456781234567812345678 -2. 02 100. 520 0. 00001 Leerzeichen, (-) und (. ) werden hier ebenfalls als Zeichen gelesen. So, nun möchte ich allerdings die über ein Excelsheet generieren, da meine Daten natürlich in einer Excel stehen und einen Umfang von 6x43825 Zellen besitzt. Nun wollte ich also über einen VBA-Code die Zeichenanzahl festlegen. Laufzeitfehler 13 typen unverträglich vba in list. Mir hat dann jemand aus einem anderen Forum folgende Syntax gegeben: Sub n() Dim i As Long reenUpdating = False Columns("A:C"). NumberFormat = "@" For i = 1 To 43825 For j = 1 To 6 Cells(i, j) = Left(CStr(Cells(i, j)) & "00000000", 8) Next j Next i reenUpdating = True End Sub Das klappte ganz gut, aber nur für Dezimalzahlen.