Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alphabetische Sortierung in VBA

Alphabetische Sortierung in VBA
13.08.2014 13:51:08
Thomas
Hallo zusammen,
ich weiß, dass es einige Foren zu dem Thema gibt, allerdings habe ich keins gefunden indem mein Problem behandelt wird. Falls es doch eins gibt, bitte ich das zu entschuldigen.
Ich versuche meinen als Tabelle formatierten Bereich beim Starten der Anwendung alphabetisch zu sortieren (nach Spalte A, die allerdings eine Überschrift hat die nicht berücksichtigt werden sollte). 
  • 
Private Sub UserForm1_Activate()
Worksheets("Datenbank").Activate
ActiveSheet.Range("Tabelle2").Select
With ActiveSheet.Range
.Range("Tabelle2").Sort _
Key1:=.Range("Tabelle2"), Order1:=xlAscending, _
Header:=xlGuess, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub


  • Wo genau liegt mein Fehler? Ist es überhaupt möglich einen Bereich der als Tabelle formatiert ist alphabetisch zu sortieren?
    Vielen Dank schonmal an die Helfer!

    • 5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    header:=xlYes owT
    13.08.2014 13:59:13
    Rudi

    AW: Alphabetische Sortierung in VBA
    13.08.2014 14:01:27
    Daniel
    Hi
    das funktioniert schon.
    du sprichst aber deine Objekte nicht immer richtig an.
    Als Key musst du eine Zelle des zu sortierenden Bereichs angeben, du gibst aber die komplette Tabelle als Sortierkriterium an und das geht nicht.
    probiere es mal so:
    With ActiveSheet.Range("Tabelle2")
.Sort _
Key1:=.Cells(1, 1), Order1:=xlAscending, _
Header:=xlyes, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
    Gruß Daniel

    AW: Alphabetische Sortierung in VBA
    13.08.2014 14:03:42
    Klaus
    Hallo Thomas,
    die benannten Tabellen in XL2010 haben doch schon eine sortieren-Funktion an Board:
    Userbild
    Wenn ich eben diese durch den Rekorder laufen lasse, kommt folgendes funktionales Makro heraus: 
    Sub Makro1()
' Makro1 Makro
ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort.SortFields. _
Add Key:=Range("Tabelle1[[#All],[Spalte1]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
    Noch eben die SELECTS raus und ein WIDTH-Rahmen für die Lesbarkeit: 
    
Sub TabelleSortieren()
With Worksheets("Tabelle1").ListObjects("Tabelle1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabelle1[[#All],[Spalte1]]"), SortOn:=xlSortOnValues, Order: _
=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
    Und dann läuft das, oder nicht?
    Grüße,
    Klaus M.vdT.

    Anzeige
    AW: Alphabetische Sortierung in VBA
    13.08.2014 14:27:22
    Thomas
    Hallo Klaus M.vdT.,
    auf die Idee bin ich natürlich nicht gekommen :(
    Jetzt funktioniert es! :)
    Vielen Dank!

    Danke für die Rückmeldung! owT.
    13.08.2014 14:39:45
    Klaus
    .

    301 Forumthreads zu ähnlichen Themen

    Mit VBA In Zelle Excelformel schreiben
    Gho-Reg

    Hi Leute
    Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
    CODE:
    rowbeforeinteger = 2
    Dim text As String
    text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
    25.08.2008 11:08:33
    Thread-ID: 1004403
    6 Beiträge
    Anzeige
    Formel in VBA
    steffen

    Hallo Leuts,
    ich bekomme meine Formel, die in ein Tabellenblatt eingetragen werden soll, einfach nich hin:
    ActiveSheet.Range("A4").Formula = "=Büromaterial!R?x?C?"
    Wie stelle ich es jetzt an, dass R mit einer Zählvariablen x verbunden wird, sozusagen als Zähler, der bei jedem Durch...
    17.09.2008 11:35:00
    Thread-ID: 1010306
    4 Beiträge
    VBA Warnhinweis Ignorieren
    Asits

    Hallo,
    ich möchte per Macro Spalte A, in der Vor-und Nachname durch ein Komma getrennt sind
    automatisch trennen.
    Das mache ich mit:
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Vorname"
    Columns("A:A").Sele...
    17.09.2008 20:12:04
    Thread-ID: 1010513
    3 Beiträge
    Anzeige
    Kopieren VBA anstatt einer Formellösung
    Bernhard

    Hallo liebe Excel-Freunde,
    wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
    24.09.2008 17:28:00
    Thread-ID: 1012129
    9 Beiträge
    Formel in VBA
    balta

    Hallo,
    habe ein Problem mit meinem Code
    Sub Testi() Dim lngZeile As Long For lngZeile = 2 To 100 Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _ 2:$M2);"")" Next lngZeile End Sub
    das Code soll Indexzahl ausgeben, also wenn Zelle M...
    28.09.2008 00:15:02
    Thread-ID: 1012872
    5 Beiträge
    Formel in VBA
    steffen

    Hallo,
    ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
    Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
    Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders laut...
    06.10.2008 11:46:00
    Thread-ID: 1014389
    9 Beiträge
    Array-Formel in VBA-Code umwandeln?
    Robert

    Hallo,
    ich bräuchte bitte eure Hilfe.
    Hab folgende Formel...
    Selection.FormulaArray = _
    =IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
    Mein Problem ist, dass ic...
    26.10.2008 10:56:28
    Thread-ID: 1019326
    13 Beiträge
    Formel einfügen VBA
    sonja

    Hallo,
    ich habe wieder einmal eine Frage und hoffe Ihr könnt mir wie immer weiterhelfen.
    Folgende Formel wird per VBA in Spalte F2 eingefügt.
    ThisWorkbook.Sheets("Tabelle1").Range("F2").FormulaR1C1 = "=IF(RC1,YEAR(TODAY())-RC[-1],"""")"
    Nun möchte ich das diese Formel automatisc...
    05.11.2008 11:31:01
    Thread-ID: 1021811
    5 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    UserForm

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    5
    4
    3
    2
    2
    8
    4
    8
    12
    4
    1
    3
    2
    2
    19
    7
    6
    1
    6
    5
    14
    8
    8
    4
    1