VBA alphabetisch sortieren
26.06.2008 11:53:03
WalterK
kann mir jemand bei dem nachfolgenden Code helfen:
Private Sub Worksheet_Activate()
'--- Spalte C nach K kopiern und sortieren
Range("K:K").ClearContents
Range("C5:C" & Cells(Rows.Count, 3).Row).Copy
Range("K2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("K:K").Sort key1:=Range("K2"), order1:=xlAscending, header:=xlYes
End Sub
Mein Problem:
Weil die Namen in Spalte C über Formeln eingetragen werden, werden nach dem Sortieren in K oben zuerst die Leerzellen mitberücksichtigt. Eigentlich sollten ab K2 gleich die Namen angeführt werden.
Eine Frage:
Was bedeutet die 3 in "Range("C5:C" & Cells(Rows.Count, 3).Row).Copy"
hier noch die Tabelle:
https://www.herber.de/bbs/user/53368.xls
Besten Dank und Servus, Walter