Laufzeitfehler 13 - Typen unverträglich
07.06.2018 09:50:41
Patrick
ich habe einen Code für einen Button zum berechnen von Werten in dem einige Folgemakros bei Klicken des Buttons aktiv werden, beim einfügen einer weiteren Funktion und Testen ergibt sich bei mir die Fehlermeldung "Laufzeitfehler 13 - Typen unverträglich", leider finde ich in eigener Recherche keine Lösung.
Der Fehler tritt zuerst in der Fett markierten Zeile ein und wandert dann herunter, die Felder in dem angegeben Bereich sind alle als Zahl/Integer formatiert und haben jeweils eine Zelle in der eine Dropdownliste ist. Könnte diese den Fehler verursachen? Wie kann ich da ein Workaround einbauen?
Vielen Dank im Voraus :)
Hier einmal der Code des Buttons:
Sub berechnen()
If Range("D6") "" Then
If Range("D7") "" Then
If Range("D6") > Range("D7") Then
MsgBox "A größer als B!"
Range("D7") = ""
End If
End If
End If
If Range("D4:D9") = "" Then
If Range("D17:D22") = "" Then
MsgBox "Eingaben unvollständig!"
End If
End If
If Range("D6") "" Then
If Range("D5") > 30 Then
MsgBox "D in mm!"
Range("D5") = ""
End If
End If
If Range("F10") > 1 Then
MsgBox "Bitte E Angaben prüfen!"
End If
Application.Calculation = xlCalculationAutomatic 'automat.Berechnung einschalten
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
If Range("H6") 1 Then
MsgBox "Summe der F ungleich 100%!"
Range("D11:D16") = ""
End If
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten
End Sub