Sortieren von Daten
24.02.2004 09:21:05
Andre
Ich habe wieder einmal ein Problem.
Ich nutze einen Code um Daten in eine andere Tabelle zu kopieren.
Die dort eingefügten Daten werden automatisch an´s Ende gesetz.
Mein Problem nun: Die Daten sollen automatisch nach dem Einfügen sortiert werden und zwar alphabetisch, nach Spalte A2 bis E4000. Ich habe es schon mit
einem Code versucht, aber es klappt nicht!
Hier mein gesammter Code:
Sub Test()
Dim i As Integer
Dim z As Integer
Dim d As Integer
'aus welcher Tabelle? Wenn Name = Tabelle1 und dort gelöscht werden soll dann:
On Error Resume Next
Sheets("Tabelle1").Activate
Rows("2:2000").Copy
Worksheets("Alle Anrufe").Activate
z = 1
Do While Len(Worksheets("Alle Anrufe").Cells(z, 1)) > 0 'Ermitteln der Tabellenlänge
z = z + 1
Loop
Range("A" & z).Select
ActiveSheet.Paste
'Setzt den Autofilter zurück'
Sheets("Tabelle1").Activate
With Sheets("Tabelle1")
For d = 2 To 300
Cells(d, 4).ClearContents
Next d
If ActiveSheet.AutoFilterMode Then 'Ist Filter eingerichtet?
Selection.AutoFilter 'Setzt den Autofilter zurück!
Range("A1:B1").AutoFilter 'Setzt neuen Autofilter, ohne zu selektieren.
End If
End With
'Alphabetisch sortieren in Tabelle2'
Range("A2:E4286").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A10").Select
End Sub
Vielen Dank im voraus!
MFG
Andre
Anzeige