Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren VBA

Forumthread: Sortieren VBA

Sortieren VBA
19.01.2006 11:46:19
Bea
Guten Tag
Habe folgendes Problem
in der Spalte a stehen Zahlenfolgen in der Form
12/34/56 oder
2/3456/4
nun soll nur nach den Zahlen die zwischen den Schrägstrichen stehen sortiert werden
Danke
Bea
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren VBA
19.01.2006 11:53:53
Dr.
Hi,
Daten/Text in Spalten/Trennzeichen Slash/Sortieren.
AW: Sortieren VBA
19.01.2006 12:17:23
Peter
Hallo Bea,
zum Beispiel so:
'
' in der Spalte A stehen Zahlenfolgen in der Form
' 12/34/56 oder
' 2/3456/4
'
' nun soll nur nach den Zahlen die zwischen den Schrägstrichen
' stehen sortiert werden
'

Sub Sortieren()
Dim lLetzte  As Long
Dim lZeile   As Long
Dim sInhalt  As String
Dim iPosit   As Integer
lLetzte = IIf([A65536] > "", 65536, [A65536].End(xlUp).Row)
Columns("A:A").Insert Shift:=xlToRight
For lZeile = 1 To lLetzte
sInhalt = Range("B" & lZeile).Value
iPosit = InStr(sInhalt, "/")
If iPosit > 0 Then
sInhalt = Mid(sInhalt, iPosit + 1, Len(sInhalt))
End If
iPosit = InStr(sInhalt, "/")
If iPosit > 0 Then
Range("A" & lZeile).Value = Left(sInhalt, iPosit - 1)
End If
Next lZeile
Range("A1:Z" & lLetzte).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:A").Delete Shift:=xlToLeft
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige