vba code schneller machen
22.04.2008 10:23:52
Christian
ich habe einen vba code zusammengebastelt zum sortieren von datum, weil nie richtig sortiert wurde
wegen zeichen umwandlung .
jetzt funkt der vba code aber leider dauert er zu lange-
wer kann den code etwas beschleunigen oder kürzen damit das nicht sooooo lange dauert.
Private Sub CommandButton1_Click()
'datum umwanden ln in zahlen
Application.ScreenUpdating = False
Range("IV1").Select
Selection.Copy
Application.Goto Reference:="datum"
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="Database"
Application.CutCopyMode = False
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'loescht alle nuller der umwandlung
Dim strg As String
Dim C As Variant
strg = "0"
For Each C In Worksheets("Daten").Range("E1:E1500")
If C.Value = strg Then
C.ClearContents
End If
Next
'sortieren und format zuweisen
Application.Goto Reference:="Database"
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Goto Reference:="datum"
Selection.NumberFormat = "dd/mm/yyyy;@"
'zur letzten zeile
Sheets("Daten").Select
Cells(Cells.Rows.Count, 4).End(xlUp).Select
Application.ScreenUpdating = False
End Sub
danke
gruss
christian neu
Anzeige