Spalte alphabetisch sortieren mit VB

[alnourx]

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

[WillWissen]

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

[MisterBurns]

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

:100: :100: :100:

[WillWissen]

Moin Berni,

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

[MisterBurns]

:35: :32:

[snb]

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)

[alnourx]

Hallo zusammen,

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

Das ist genau was ich brauche

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

Gruß
Alnourx