Wir daran liegen, dass bei dir die If Bedingungen alle nicht mehr erfüllt werden nach dem ersten Durchlauf. Und das liegt daran, dass du danach auf dem Ziel Sheet weiter machst, denk ich.
Da müsstest du kosequenterweise sowas schreiben:
Sub Cluster()
Dim i As Integer
Dim n As Integer
For i = 2 To 1175
Sheets("2008").Activate
n = 2 + (10 * (i - 2))
If Cells(i, 1).Value = 1 Then
Sheets("Cluster1").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 1).Value = 2 Then
Sheets("Cluster2").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 1).Value = 3 Then
Sheets("Cluster3").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 1).Value = 4 Then
Sheets("Cluster4").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 1).Value = 5 Then
Sheets("Cluster5").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 1).Value = 6 Then
Sheets("Cluster6").Range("b2:N22").Copy
Sheets("Ziel").Select
Cells(n, 2).Select
ActiveSheet.Paste
End If
Next i
End Sub
(Sheets("2008").Activate in die Schleife packen)
Andererseits ist es sauberer und schneller ohne select/activate zu arbeiten, dann entstehen solche Probleme erst garnicht.
Gruß
Till
|