Clever-Excel-Forum

Hallo zusammen,

ich habe ein kleines Problem und hoffe, dass ihr mir dabei helft.
Durch den unteren Code kopiere die Liste vom Bereich Q2:Q1000 und füge ich in der Spalte A ein.

Frage: Wie kann man bei der Eingabe in der Spalte A die Liste alphabetisch sortieren??

Sub Kopieren()
    Range("Q2:Q1000").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select

End Sub

Für eure Hilfe bin ich sehr Dankbar.
Alnourx

Moin,

Code:
Option Explicit

Sub Kopieren()

    Range("Q2:Q1000").Copy

    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

        With ActiveWorkbook.Worksheets("Tabelle1").Sort

            .SetRange Range("A2:A1000")

            .Header = xlNo

            .MatchCase = False

            .Orientation = xlTopToBottom

            .SortMethod = xlPinYin

            .Apply

        End With

    Range("A1").Select

End Sub

Günter... VBA? Du? Wurde dein Account gehackt? :05:

:100: :100: :100:

Moin Berni,

kennst du das? Je oller, je doller... Angel

:35: :32:

In VBA:

PHP-Code:
Sub M_snb()
    with range("A1:A999")
       .value=Range("Q2:Q1000").Value
       .sort range("A1")
   end with
End Sub 

Bitte, verwende Code Tags (oder ähnliches)

Hallo zusammen,

vielen lieben Dank für die schnelle Hilfe @snb & @WillWissen

Das ist genau was ich brauche Smile

Ich habe mich für den Code von snb entschieden, da er klein und fein ist.

Gruß
Alnourx

alnourx

WillWissen

MisterBurns

WillWissen

MisterBurns

snb

alnourx