Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA automatisch sortieren bei Öffnen

Forumthread: VBA automatisch sortieren bei Öffnen

VBA automatisch sortieren bei Öffnen
30.07.2021 17:43:19
Marko
Hallo in die Runde,
ich bin auf der Suche nach einem Makro, mit dem nach dem Öffnen eines Sheets in dem Zellenbereich H5:H100 die Werte aufsteigend sortieren und wenn der Zellenwert = 0, dann soll die Zeile ausgeblendet werden. Hierbei benötige ich Eure Unterstützung. Vielen Dank und Gruß, Marko
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA automatisch sortieren bei Öffnen
30.07.2021 17:44:47
Hajo_Zi
benutze den Makrorecorder, Code unter DieseArbeitsmappe open Ereignis.
GrußformelHomepage
Anzeige
VBA automatisch sortieren bei Öffnen
30.07.2021 18:20:52
Marko
Hallo Hajo,
danke für den Hinweis. Leider bekomme ich es mit dem aufgezeichneten Makro nicht hin.
Gruß Marko
zeig mal das Makro? owT
30.07.2021 18:22:27
ralf_b
VBA automatisch sortieren bei Öffnen
30.07.2021 18:26:48
Marko 

Sub Makro1()
' Makro1 Makro
Range("J44").Select
ActiveWorkbook.Worksheets("Femira").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Femira").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("H4:H35"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Femira").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Anzeige
AW: VBA automatisch sortieren bei Öffnen
30.07.2021 18:46:09
Nepumuk
Hallo Marko,
in das Modul "DieseArbeitsmappe":

Option Explicit
Private Sub Workbook_Open()
Call Sortieren
End Sub
In ein Standardmodul (Menüleiste im VBA-Editor - Einfügen - Modul):

Option Explicit
Public Sub Sortieren()
With ThisWorkbook.Worksheets("Femira").AutoFilter.Sort
.SortFields.Clear
.SortFields.Add2 Key:=ThisWorkbook.Worksheets("Femira").Range("H4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: VBA automatisch sortieren bei Öffnen
30.07.2021 18:55:07
GerdL
Moin,
noch einer.

Private Sub Workbook_Open()
Call Unit
End Sub



Sub Unit()
With Tabelle1.Range("H4:H100")
.Sort key1:=Tabelle1.Range("H5"), order1:=xlAscending, Header:=xlYes
.AutoFilter
.AutoFilter field:=1, Criteria1:="" & 0
End With
End Sub
Gruß Gerd
Anzeige
Dankeschön
31.07.2021 09:00:40
Marko
Vielen Dank für Eure Unterstützung, jetzt funktioniert's...
Gruß Marko

Forumthreads zu verwandten Themen

Tabelle automatisch sortieren
anke

Hi Excelfreunde,
ich habe einmal wieder ein kleines Problem ( für alle Excelfreaks );
ich möchte, daß sich eine Tabelle automatisch nach Eingabenende und " Enter " sortiert:
Ist das überhaupt möglich ?
Gruß Anke
28.08.2008 17:22:00
Thread-ID: 1005538
6 Beiträge
Formeln automatisch generieren OHNE Makros
Mr.PT

Guten Tag an die Excel-Gemeinde,
ein Bekannter gab mir eine Excel-Mappe, in welcher durch den manuellen Eintrag von Werten eine
Summenformel automatisch von oberhalb kopiert wird. Es entsteht also in einer bisher leeren Zelle
ein komplett neuer Formel-Eintrag nach folgendem Beispiel...
05.02.2009 09:45:00
Thread-ID: 1047306
3 Beiträge
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Anzeige
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
ComboBox nach Datum sortieren
Gerhard

Hallo zusammen,
Bitte um Makro Hilfe!
Wie kann ich im beigefügten Makro die beiden ComboBoxen aufsteigend nach Datum sortiert in Userform anzeigen?
Vielen Dank für die Hilfe
Gruß Gerhard
Die Datei https://www.herber.de/bbs/user/65309.xls wurde aus Datenschutzgründen gelöscht...
24.10.2009 22:10:46
Thread-ID: 1111897
4 Beiträge
Anzeige
Worksheets nach Datumsformat sortieren
Stephan

Hallo,
möchte meine Arbeitsblätter nach Datum absteigend sortieren, deren Ziffern 1-10 ein Datum darstellen
z.B.
30.01.2009
04.02.2009
30.12.2009
31.12.2009 (1)
31.12.2009 (2)
01.01.2010
02.01.2010
04.01.2010 (1)
04.01.2010 (2)
leider funktioni...
04.01.2010 12:45:44
Thread-ID: 1127022
4 Beiträge
Spalten mit Formeln automatisch sortieren
Murino

Hallo Leute,
habe wieder ein Problem. Den ganzen Tag wühle ich in den Foren rum, das passende habe ich
nicht gefunden. Meine große Bitte, schaut mal ob Ihr eine Lösung findet.
PROBLEM:
Ich habe drei Spalten „A“-„B“-„C“, diese drei Spalten haben Werte die über Formeln bezogen wer...
25.01.2010 20:05:06
Thread-ID: 1132816
18 Beiträge
Anzeige
automatisches sortieren mit Makro
stutze

Hallo,
ich weiß, dass diese Thema schon dutzende Male hier behandelt wurde. Habe mich auch schon versucht rein zu lesen, aber jeder hat irgendwie andere Sortierungen.
Habe folgendes Makro (über Aufzeichnung in meinem VBAProjekt im Modul1):
Sub MakroTag1()
'
' MakroTag1 Makro...
04.02.2010 23:01:22
Thread-ID: 1135959
27 Beiträge
Anzeige
TextBoxen in UF nach Datum u. Zeit sortieren
Frank

Hallo Zusammen!
Kann man die Inhalte der TextBoxen die sich auf einer UF befinden nach Datum und Zeit sortieren lassen und wenn ja, gebt mir bitte 'nen Ansatz!!!
Ich bedanke mich schon mal für eventuelles Feedback!!!
Herzlichst Frank H.
12.10.2010 21:59:21
Thread-ID: 1182098
3 Beiträge
Daten nach Datum sortieren (mehrere Kriterien)
mmmagic73@aol.de

Hallo Community,
Habe einen VBA Beispiel aus Internet (s.u.“ FalschSortiert“) nach Datum zu sortieren.
Möchte gern einige Spalten nach bestimmten Kriterien, nach K, J, I und B sortieren.
Sub FalschSortiert() Dim LRow As Integer 'Sortieren der Daten pro Tabellenblatt Dim sh As...
20.11.2010 10:14:33
Thread-ID: 1187870
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA automatisch sortieren bei Öffnen

Schritt-für-Schritt-Anleitung

Um eine automatische Sortierung in Excel beim Öffnen einer Arbeitsmappe durchzuführen, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Füge ein neues Modul hinzu: Rechtsklicke auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Option Explicit
Public Sub Sortieren()
   With ThisWorkbook.Worksheets("Femira").AutoFilter.Sort
       .SortFields.Clear
       .SortFields.Add2 Key:=ThisWorkbook.Worksheets("Femira").Range("H4"), _
       SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End Sub

  4. Füge den Workbook_Open Code hinzu: Doppelklicke auf "DieseArbeitsmappe" und füge folgenden Code ein:

    Option Explicit
Private Sub Workbook_Open()
   Call Sortieren
End Sub

  5. Speichere die Arbeitsmappe als Makro-aktivierte Datei (.xlsm).

Häufige Fehler und Lösungen

  • Fehler: Makro funktioniert nicht
    Lösung: Stelle sicher, dass Du die Datei als Makro-aktiviert gespeichert hast und die Sicherheitseinstellungen für Makros entsprechend eingestellt sind.

  • Fehler: Daten werden nicht sortiert
    Lösung: Überprüfe, ob der angegebene Bereich korrekt ist und ob das AutoFilter aktiviert ist.

  • Fehler: Zeilen mit Wert 0 bleiben sichtbar
    Lösung: Füge eine Filterbedingung hinzu, um Zeilen mit 0 auszublenden:

    .AutoFilter field:=1, Criteria1:="" & 0

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die automatische Sortierung über die Excel-Funktionen nutzen:

  • Daten sortieren: Wähle die Daten aus und gehe zu Daten > Sortieren. Hier kannst Du nach verschiedenen Kriterien sortieren.

  • Sortieren ohne Makro: Nutze die Funktion SORTIEREN in Excel, um dynamische Sortierungen zu erstellen.

Praktische Beispiele

  1. Automatische Sortierung nach Eingabe: Wenn Du eine Liste von Produkten hast, die Du nach Preis sortieren möchtest, kannst Du die oben genannten VBA-Codes anpassen, um die Spalte mit den Preisen automatisch zu sortieren.

  2. Excel automatisch nach Datum sortieren: Ändere den Key im VBA-Code auf die Datumsspalte, um die Daten nach Datum zu sortieren.

    .SortFields.Add2 Key:=ThisWorkbook.Worksheets("Femira").Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending

Tipps für Profis

  • Verwende Named Ranges: Statt feste Zelladressen zu verwenden, kannst Du benannte Bereiche nutzen, um Deine VBA-Codes flexibler zu gestalten.

  • Fehlerbehandlung einfügen: Füge Fehlerbehandlungsroutinen in Deinen Code ein, um unerwartete Probleme zu erkennen und zu beheben.

  • Automatische Sortierung bei Änderungen: Du kannst auch das Worksheet_Change-Ereignis nutzen, um die automatische Sortierung von Befestigungsteilen oder anderen Daten bei Änderungen in bestimmten Zellen auszulösen.

FAQ: Häufige Fragen

1. Wie kann ich meine Excel-Tabelle automatisch sortieren ohne Makro?
Du kannst die eingebaute Sortierfunktion in Excel verwenden, um Daten manuell zu sortieren.

2. Funktioniert diese Methode in allen Excel-Versionen?
Ja, die beschriebenen VBA-Methoden sollten in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und später. Achte darauf, dass Du die Makros in der Datei aktivierst.

Beliebteste Forumthreads (12 Monate)

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