Supportnet / Forum / Tabellenkalkulation

Hallo! Ich habe eine nicht ganz einfache Aufgabe und versuche folgende Werte (als Beispielschema) zu sortieren: 0001 0024 0105 A005 A201 C103 F075 1000 1233 Diese Werte bekomme ich nun in einer beliebigen Reihenfolge von einer vorlaufenden Programmierung. Ich möchte die Werte nun in dieses Schema bringen, und das möglichst per Makro o.ä. automatisch: A005 A201 C103 F075 0001 0024 0105 1000 1233

Danke im Voraus für Eure Antwort!

Ich hoffe, das trifft deine Erwartungen.

Sub sort1()
'sortiert 4stell. "Hex-Zahl-Text" in Spalte A aufsteigend:
'erst mit Buchstaben beginnend, denn mit Ziffern beginnend

Dim r As Range
Set r = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

r.Sort Key1:=Columns("A"), Order1:=xlAscending, Header:=xlGuess

For Each c In r
    If c Like "[A-F]*" Then
        With Range(c, "A" & r.Count)
          .Select
          .Cut
        End With
        Range("A1", "A" & (r.Count - c.Row + 1)).Insert Shift:=xlShiftDown
        Exit For
    End If
Next
End Sub

Wie man das Makro zum Laufen kriegt, habe ich hier schon mal beschrieben.

Vielen Dank lorf55!!!

• Excel Tabelle über Access öffnen
• Aus Access Daten in Excel anfügen
• Excel Abfrage mit Verknüpfung von Daten aus 2 Mappen
• Problem mit word, excel ,access ( 2002 )
• VBA-Excel