|
Hallo,
ich hoffe, es kann mir jmd helfen. Bin grad erst in VBA eingestiegen und bin noch etwas überfordert. Ich habe mir einen Code zuammengeschrieben
Sub Cluster()
Dim i As Integer
Dim n As Integer
Sheets("2008").Activate
For i = 2 To 1175
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
Jetzt ist es aber so, dass das Makro nicht weiterläuft und sozusagen bei i=2 aufhört,obwohl es eigentlich 1175 zu durchlaufen hat. Hat mir jmd einen Tipp woran es liegen könnte.
Besten Dank
Sebastian
|