vba
20.01.2016 18:32:44
jana
ich habe eine Spalte (Spalte I) nach dem Alphabet sortiert. Falls aufeinander folgende Spalten (also bspw. I3/I4/I5...) denselben Wert haben, möchte ich die gesamten Zeilen mit doppeltem Wert kopieren und in ein neues Blatt einfügen. Dabei soll für jede "Wertekategorie" ein eigenes Blatt entstehen. Bei dem Code komm ich leider nicht weiter. Ich denke, dass ich zwei Schleifen brauche. Mein Versuch sieht so aus:
Sub schleifen()
Dim i As Integer
Dim k As Integer
For i = 1 To 35
i = 1
Range("I" & i).Select
For k = 1 To 8
k = 1
If Range("I" & i).Value = Range("I" & i + k).Value Then
Range("I" & i & ":I" & i + k).EntireRow.Copy
Next k
Sheets.Add
ActiveSheet.name = "TEST"
Range("A1").PasteSpecial (xlPasteAll)
End If
Next i
End Sub
Leider funktioniert der Code hinten und vorne nicht. Vielleicht kann mir jemand helfen?
Viele Grüße und vielen Dank vorab!
Jana