Auf Select verzichten?
26.11.2007 17:26:22
Rolf
folgendes Makro sortiert die Daten in Spalte "B" ab Zeile "10"
und löscht alle Zeilen mit doppelten Einträgen ab Zeile "10".
Ist es möglich auf "Select" zu verzichten?
Sub Sortieren_löschen()
Dim wks1 As Worksheet
Set wks1 = Worksheets("Tabelle2")
'Bereich "B10:B200" sortieren
wks1.Select 'Auf "Select" verzichten?
Range("B10:B200").Select 'Auf "Select" verzichten?
Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B10").Select
'Doppelten Datensätze löschen
Dim i As Long
i = 10
Do Until IsEmpty(Cells(i, 2).Value)
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
Cells(i, 2).EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub
Vielen Dank im voraus
Rolf