zeilen in neues arbeitsblatt einfügen
06.03.2007 16:34:22
metleck
Also mit diesem Code werden 5 Zahlen verglichen, und wenn sie stimmen soll eine der Zahlen in ein neues Arbeitsblatt kopieren.
Leider wird 3 mal kopiert anstatt einmal.
Woran könnte das liegen?
For i = 5 To 10 Step 1
If Range("C" & i).Value Range("C5").Value Then
Fehler = True
i = 11
End If
If Fehler = True Then
Range("C1:C10").Copy
Worksheets("Fehler").Range("C1:C10").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Neu").Range("D2").Interior.Color = vbRed
Fehler = False
ElseIf Fehler = False Then
Range("C5:C10").Interior.Color = vbGreen
Range("C5").Copy
'Worksheets("Neu").Range("D2").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Neu").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats
End If