Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabbelle sortieren

Forumthread: Tabbelle sortieren

Tabbelle sortieren
28.02.2004 09:20:25
Benjamin
Hallo Forum,
ein schönes Wochenende und einen guten Morgen wünsche ich der Forumsrunde.
Ich habe ein kleines Problem...
Nach der Übergabe von Werten aus der UserForm1 per CommandButton1 möchte ich die Tabelle 3 neu sortieren.
Bisher habe ich das über unten stehendes Macro realisiert, das bei Ausführung in die Tabelle3 wechselt und dann den Sortiervorgang duchführt.
Meine Frage:
Besteht auch die Möglichkeit, den Sortiervorgang per VBA durchzuführen, ohne in die Tabelle3 zu wechseln?

Sub SORTIEREN_Tabelle3()
Sheets("Tabelle3").Select
Range("B8:Y107").Select
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E4").Select
End Sub

Kann jemand den obigen Codes für einen VBA-Anfänger entsprechend "umstricken"?
Vielen Dank im Voraus!
Gruss, Benny
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabbelle sortieren
28.02.2004 09:34:11
Hajo_Zi
Hallo Benny

Sub SORTIEREN_Tabelle3()
With Sheets("Tabelle3")
.Range("B8").Sort Key1:=.Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Tabbelle sortieren DANKE! (o.T.)
28.02.2004 09:57:53
Benjamin
AW: Tabbelle sortieren
28.02.2004 09:34:29
Ramses
Hallo
das sollte gehen

Sub SORTIEREN_Tabelle3()
Dim wks As Worksheet, myR As Range
Set wks = Worksheets("Tabelle3")
Set myR = wks.Range("B8:Y107")
myR.Sort Key1:=wks.Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Gruss Rainer
Anzeige
AW: Tabbelle sortieren DANKE! (o.T.)
28.02.2004 09:52:29
Benjamin
AW: Tabelle sortieren ohne select
28.02.2004 09:51:15
Bert 

Sub SORTIEREN_Tabelle3()
With Sheets("Tabelle3")
.[B8:Y107].Sort Key1:=.[b8], Order1:=xlAscending, Header:=xlGuess
End With
End Sub

Bert
AW: Tabelle sortieren ohne select DANKE! (o.T.)
28.02.2004 09:57:21
Benjamin
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige