hatte das Problem schon mal angesprochen kann auf den Beitrag aber irgendwie nicht mehr antworten.
ich möchte werte in spalte E ihren identischen werten in spalte a zuordnen.
wollte es jetzt so versuchen Sub sort() Dim raZelle As Range Dim varSuche As Integer Dim i As Integer For i = 0 To 10 Range("e1000").Select ActiveCell.Offset(rowoffset:=i, columnoffset:=0).Activate varSuche = ActiveCell Set raZelle = Columns("A").Find(varSuche, lookat:=xlWhole, LookIn:=xlValues) If raZelle Is Nothing Then End If Range("e1000:g1000").Select ActiveCell.Offset(rowoffset:=i, columnoffset:=0).Cut Cells("E:" & raZelle).Insert Next i End Sub
Ich bekomme es allerdings nicht hin genau diesen Punkt
Cells("E:" & raZelle).Insert
zu laufen zu bekommen. Wie kriege ich es hin in spalte E die zelle in der Zeile zu markieren wo der wert gefunden wurde?
danke euch.
markus