Problem: Typen unverträglich ???
10.11.2003 11:46:36
Daniel
habe bei folgendem:
Sub zuordnen()
Dim i As Integer, x As Integer
i = 2
x = 1
While i < 20
Sheets("Übersicht").Select
If cells(i, 10) = "SF2" Then 'hier kommt der Fehler
Rows(i).Copy
Worksheets("SF2").Activate
Rows(x).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
x = x + 1
End If
i = i + 1
Wend
End Sub
das Problem, das er immer abbricht und sagt: "Typen unverträglich"
Woran kann dies liegen???
mfg Daniel