alphanummerisch mehrere Spalten sortieren
Ludmila
ich möchte nacholgende Werte aufsteigend sortieren lassen
SPA SPB usw.
12 Text bis Spalte 12
13 Text bis Spalte 12
14 Text bis Spalte 12
Die Spalte "A:A" ist als Text formatiert
Egal was ich probieren es kommen immer verschiedene Sortierfolgen raus.
Sub AngSort()
Dim Endrow As Integer
Dim wks As Worksheet
Set wks = Sheets("A")
With wks
.Select
Endrow = .Cells(RowsCount, 1).End(xlUp).Row + 1
Range(Cells(21, 1), Cells(Endrow, 11)).Select
Selection.Sort Key1:=wks.Range("A21"), _
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A19").Select
End With
End Sub
Noch ein Problem!
Nach AfterUpdate einer Combobox soll der Wert im Blatt "Data" gesucht werden
wenn nicht gefunden dann eintragen, sortieren und ComboBox erneut einlesen.
Bei Fett bleibt er stehen und sagt die Listeingeschaft kann nicht festgelegt werden.
Sub AufEinheit()
Dim var As Variant
Dim intRow, intLastRow As Integer
Dim txt As String
Dim wks As Worksheet
Set wks = Sheets("Data")
With wks
var = Application.Match(frmStart.ComboB5.Value, Columns(1), 0).End(xlUp).Row+1
intRow = .Cells(Rows.Count, 1).Row + 1
End With
If IsError(var) Then
txt = frmStart.ComboB5.value
With wks
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intRow, 1) = txt
.Range("A:A").Sort _
Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlNo
End With
If txt = "" Then
ActiveCell.Offset(0, 1).Value = txt
End If
frmStart.ComboB5.Clear
frmStart.ComboB5.List = wks.Range("A1").CurrentRegion.Columns(1).Value
For intRow = 0 To frmStart.ComboB5.ListCount - 1
If frmStart.ComboB5.List(intRow) = txt Then Exit For
Next intRow
frmStart.ComboB5.ListIndex = intRow
End If
End Sub
Anzeige