Range Typen unverträglich
11.01.2013 11:20:59
Nicole
ich übe mich noch an meinem Code des Werte-Vergleichs. Leider kenne ich meinen Fortschritt noch nicht, da ich nun an einem Punkt hänge, an dem ich einfach nicht weiter komme. Immer wenn der Code an die Stelle meines Ranges kommt, meldet er "Typen unverträglich" und ich kann nicht rausfinden, wieso :o((((
Kann mir vielleicht jemand einen Tip geben?
Den folgenden Code habe ich geschrieben:
Sub Neue_Werte()
Dim RISK As Worksheet
Dim MSC As Worksheet
Dim Zeile As Long
Dim RaRISK As String
Dim RaMSC As String
Dim MSCLetzte1 As Long
Dim RISKLetzte2 As Long
Set MSC = Workbooks("1.xls").Worksheets("1")
Set RISK = Workbooks("1.xls").Worksheets("2")
With MSC
MSCLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
.Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
With RISK
RISKLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
.Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
End With
With MSC
Zeile = 9
End With
With RISK
RaRISK = "B17:B" & RISKLetzte2
End With
Do While Cells(Zeile, 1).Value " "
If RISK.Range(RaRISK).Value = MSC.Cells(Zeile, 1).Value Then
RISK.Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = MSC.Cells(Zeile, _
1)
End If
Zeile = Zeile + 1
Loop
End Sub