warum "Typen unverträglich?
21.04.2023 13:49:32
Fred
Hallo Excel Experten,
ich habe von MCO ein Makro, welches mir die "10-0" Ergebnisse von Heim,- und Gastspielen eines Teams (aus Sheet "Listen" zählt,- FUNZT!
Wenn ich aber nun die Ergebnisse "10-0" oder "0-10" suche kommt die Meldung; "Typen unverträglich" Laufzeitfehler 13
Das Original Makro:
Sub zaehle_10_0_alleSpiele_ersten4()
Dim listenSheet As Worksheet
Dim importSheet As Worksheet
Dim listenRange As Range
Dim importRange As Range
Dim listenCell As Range
Dim importCell As Range
Dim count As Integer
Dim count2 As Integer
' Set references to the worksheets and ranges
Set listenSheet = ThisWorkbook.Worksheets("Listen")
Set importSheet = ThisWorkbook.Worksheets("Import")
Set listenRange = listenSheet.Range("A:A").SpecialCells(xlCellTypeConstants)
Set importRange = importSheet.Range("G:G").SpecialCells(xlCellTypeConstants)
' Loop through the names in the Listen sheet
For Each listenCell In listenRange
count = 0
count2 = 0
For Each importCell In importRange
If importCell = listenCell Or importCell.Offset(0, 1) = listenCell Then
count = count + 1
If importSheet.Cells(importCell.Row, "I") = "10-0" Then count2 = count2 + 1
End If
If count = 4 Then listenCell.Offset(0, 4).Value = count2: Exit For
Next importCell
Next listenCell
End Sub
meine Änderung:
If importSheet.Cells(importCell.Row, "I") = "10-0" Or "0-10" Then count2 = count2 + 1
was ist hier falsch???
Gruss
Fred