Laufzeitfehler 13 Typen unverträglich
07.11.2018 17:07:41
Bastian
ich habe ein Problem mit meinem Code.
Ich möchte mit diesem Code anhand von Kriterien die in der Datei stehen, in der der Code ist (die Auswertungstabelle), Zeilen aus einer anderen Datei Zeile für Zeile überprüfen.
Anschließend, wenn alle Bedingungen zutreffend sind, möchte ich die komplette Zeile in das Blatt "AE_Selection" in der Auswertungstabelle kopieren.
Wenn ich das Makro laufen lasse, gibt Excel mir bei der ersten IF Bedingung die Fehlermeldung "Laufzeitfehler '13': Typen unverträglich" aus.
Vielleicht kann mir jemand bei dem Problem helfen. Würde mich sehr freuen!
Vielen Dank im Voraus!
Grüße Basti
Sub AESelection()
Dim x As Long
Dim y As Long
Dim i As Long
Dim AE As Workbook
Dim AÜ As Workbook
Dim AWK As Workbook
Dim Lastrow As Long
'Variablendeklaration
y = 2
i = 3
Set AE = Workbooks.Open(ThisWorkbook.Path & "\Ausschuss Export.xls")
Set AWK = ThisWorkbook
With AE.Sheets("sheet1")
Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For x = 4 To Lastrow
'Arbeitsgang oder Warteschlange
If AE.Sheets("sheet1").Cells(x, 26) = (AWK.Sheets("Auswertung").Cells(4, 4) Or AE. _
Sheets("sheet1").Cells(x, 7) = AWK.Sheets("Auswertung").Cells(4, 6)) Then
'Artikelnummer
If AE.Sheets("sheet1").Cells(x, 1) = AWK.Sheets("Auswertung").Cells(8, 4) Or AE. _
Sheets("sheet1").Cells(x, 1) = "0" Then
'Losnummer
If AE.Sheets("sheet1").Cells(x, 24) >= AWK.Sheets("Auswertung").Cells(8, 6) Or _
AE.Sheets("sheet1").Cells(x, 1) = "0" Then
'Fehlercode
If AE.Sheets("sheet1").Cells(x, 8) = AWK.Sheets("Auswertung").Cells(6, 4) _
Or AE.Sheets("sheet1").Cells(x, 8) = "0" Then
'Datecode
If AE.Sheets("sheet1").Cells(x, 11) = AWK.Sheets("Auswertung").Cells(10, _
4) Or AE.Sheets("sheet1").Cells(x, 11) = "0" Then
'Technologie
If AE.Sheets("sheet1").Cells(x, 16) = AWK.Sheets("Auswertung"). _
Cells(6, 6) Or AE.Sheets("sheet1").Cells(x, 16) = "0" Then
'Zeitraum
If AE.Sheets("sheet1").Cells(x, 10) >= AWK.Sheets("Auswertung"). _
Cells(12, 4) And (AE.Sheets("sheet1").Cells(x, 10)