Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Dankeschön
31.07.2021 09:00:40
Marko
Vielen Dank für Eure Unterstützung, jetzt funktioniert's...
Gruß Marko

301 Forumthreads zu ähnlichen 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
Anzeige
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
Sortieren mit Formel
Mike


Hey Cracks,
wieso werden in der nachfolgenden Formel in Spalte K die Einträge mehrmals
angzeigt? Weil es auch nummerische Einträge hat?
Eingabe Ausgabe

 IJK24  http://www.excelformeln.de/formeln.html?welcher=23625KST 134 AB 11026KST 135 AB 11027...
26.03.2009 12:49:14
Thread-ID: 1064208
5 Beiträge
Anzeige
Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 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
Sortieren nach Datum
Andreas

Hallo Forum,
ich habe eine Tabelle in der in Spalte A nur Datumswerte stehen, in B und C die dazugehörigen Aufgaben.
nun möchte ich das immer das nächste aktuelle datum in der ersten zeile steht.
ist ein Datum vorbei soll es sich ans Ende der Tabelle stellen.
Vielen Dank im vorr...
15.08.2009 18:58:53
Thread-ID: 1096168
3 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

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
1
2
4
4
1
3
16
2
2
9
4
3
5
4
3
17
26
14
2
2
2
8
4
6