Guten Tag zusammen,
habe jetz hin und her probiert, komme aber auf keine vernünftige Lösung.
Ich möchte gern einen Automatismus erstellen, bei dem Zahlen, die einen Buchstabenzusatz haben, nach Größe sortiert werden.
z.B. sollen Zeichenfolgen eingegeben werden können, die folgendermaßen aussehen: 10,0 ; 10,0 w; 25,0 K; 2,0 etc.
Bei dem jetzigen Code sortiert er Zahlen ohnen Buchstaben einwandfrei. Habe also nun versucht, nur den linken Teil der Eingabe zum sortieren zu verwenden. Klappt nur leider nicht. Hat einer von eine Idee?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTreffer As Range
Dim strKey As String
Dim leer As Integer
If Target.Column = 1 Then
leer = InStr(Range("A1"), " ")
strKey = Left(Target.Value, leer)
Range("A7:A800").Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
Set rngTreffer = Range("A7:A800").Find(what:=strKey, lookat:=xlPart)
If Not rngTreffer Is Nothing Then
rngTreffer.Select
End If
End If
End Sub
|