eine bescheidene frage an die VBA Profis.
Kann man wärend der schleifen spalten abfrage, gleich den teilstring sortieren. ohne das man vorausgehend die Spalte sortiert.?
teilauszug
Sub erstelleFahrzeugprogramm()
Dim IText As String
'Zusammengesetzer Text
IText = ""
Dim eineinr As Range
Dim alleinr As Range
'Für alle I Nummer nach unten
Set alleinr = Range(Cells(10, aktuelleSpalte), Cells(1000, aktuelleSpalte))
For Each eineinr In alleinr
eineinr.Select
If eineinr.Value = "F" Then 'WEnn F drin steht, soll er die 7 linken zeichen _
kopieren
eineinr.Select
ITextdazu = Mid(eineinr.Offset(0, -(aktuelleSpalte - 1)).Value, 5, 3) _
_
IText = IText & ITextdazu & ", "
End If
Next eineinr
'jetzt den zusammengesetzten Wert rein schreiben
Cells(6, aktuelleSpalte).Value = IText
End Sub