in einem Arbeitsprojekt sind eine Liste von Mitarbeitern in Spalte K mit zugehörigen EMail Adressen in Spalte L enthalten. Den Namen sind die Anreden Hr. und Fr. vorangestellt. Standarmäßig sortiet Excel nur nach Hr. und Fr., was sinnlos ist. Die Prozedur, um die Namen ohne Anrede in eine Hilfsspalte M zu exportieren, ist mir gelungen. Nur beim Sortieren der Range K4:L nach Key M fängt er viel weiter oben an und bezieht auch die Daten in den Spalten A bis J ein ... die Spalten nach M bleiben alle intakt; aber wieso? EIne Fehlermeldung vom Skript kommt nicht - was ja schonmal ein Anfang ist. Mein Ziel ist es, dass ausschließlich die Spalten K+L nach M sortiert bis zur letzen Zeile mit Daten sortiert werden.
Bitte um Hilfe und Anregungen.
Freundliche Grüße
Daniel Jäger
Sub StringFiltern()
Dim arr(1 To 100)
Dim iCounter As Integer
Dim sTxt As String
For iCounter = 1 To 100
'11 = Spalte K
sTxt = Cells(iCounter, 11).Value
If InStr(sTxt, "Hr. ") Or InStr(sTxt, "Fr. ") Then
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, " "))
sTxt = Left(sTxt, 100)
arr(iCounter) = sTxt
End If
Next iCounter
For iCounter = 1 To 100
Cells(iCounter, 13).Value = arr(iCounter)
Next iCounter
With Sheets("Tabelle1")
lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(2, 1).Resize(lngLR - 1, 13).Sort _
Key1:=.Range("M5"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub