Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamische Tabelle automatisch sortieren

Dynamische Tabelle automatisch sortieren
03.08.2018 15:38:55
Gerhard
Hallo zusammen,
Wie muss beiliegende Adressentabelle abgeändert und optimiert werden, sodass
nach Eingabe der PLZ die Tabelle automatisch neu sortiert wird und zwar nach Name
oder im Bedarfsfall nach Vorname!
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/123108.xlsm

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 15:57:12
Nepumuk
Hallo Gerhard,
teste mal:
Option Explicit
Option Private Module

Public Sub sbSort()
    
    Application.EnableEvents = False
    
    With ThisWorkbook.Worksheets("Personen")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Range("A1"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("B1"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange ThisWorkbook.Worksheets("Personen").Columns("A:E")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    
    Application.EnableEvents = True
    
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Not IsEmpty(Target.Value) And Not _
            IsEmpty(Target.Offset(0, 1).Value) Then Call sbSort
    ElseIf Target.Column = 2 Then
        If Not IsEmpty(Target.Value) And Not _
            IsEmpty(Target.Offset(0, -1).Value) Then Call sbSort
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 16:22:13
Gerhard
Hallo Nepumuk,
Danke für Deine Hilfe erstmal
Aber die Sortierung beginnt sofort nach Eingabe der Spalte B (Vorname)!!
Die Sortierung sollte erst beginnen nach Eingabe der Letzten Spalte (PLZ)
Desweitern sollte abgefragt werden nach welcher Spalte automatisch sortiert werden soll! Nach
Spalte A (Nachname) oder nach Spalte B (Vorname)!
Vielen Dank
Gruß Gerhard
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 16:39:47
Nepumuk
Hallo Gerhard,
da hast du Recht. Probier mal:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range
    Dim blnNotComplete As Boolean
    Dim dblReturn As Double
    Set objRange = Intersect(Target, Columns("A:E"))
    If Not objRange Is Nothing Then
        For Each objCell In objRange
            With objCell
                dblReturn = WorksheetFunction.CountBlank(Range(Cells(.Row, 1), Cells(.Row, 5)))
            End With
            If dblReturn <> 0 Then If dblReturn < 5 Then blnNotComplete = True
        Next
        If Not blnNotComplete Then Call sbSort
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 17:04:06
Gerhard
Hallo Nepumuk,
Jetzt passt es!
Wie kann man jetzt noch die Abfrage unterbringen ob nach "Name" oder nach Vorname sortiert
werden sollte?
Ideal wäre eine Auswahl mit einem Optionsbutton?
Vielen Dank
Gerhard
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 18:17:55
Gerhard
Hallo Nepumuk,
funktioniert super...
Sorry aber es wäre fast noch besser, wenn es möglich ist die Sortierauswahl auf der Tabelle
noch zusätzlich durchführen zu können!
Ideal wäre wenn man in der Überschriftszeile entweder auf die Zelle A1(Name) klickt oder auf die Zelle B1 (Vorname) und dadurch im nachhinein die Sortierung nochmals manuell ändern kann!
das wäre super
Vielen Vielen Dank
Gruß Gerhard
Anzeige
AW: Dynamische Tabelle automatisch sortieren
03.08.2018 21:25:41
Gerhard
Hallo Nepumuk,
funktioniert super!
Vielen Vielen Dank für Deine kompetente Hilfe...
Wünsche Dir noch ein schönes hoffentlich nicht zu heißes Wochenende!
Gruß Gerhard

305 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
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
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
Anzeige
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 Beiträge
Sortieren nach Namen
Peter H. Erdmann
Hallo,Bau Dir eine Hilfsspalte mit den Familiennamen einDie erhältst Du über die Formel:
=RECHTS(A1;LÄNGE(A1)-FINDEN(" ";A1;1))(Klappt aber nur, falls nur ein Vorname vorhanden, bzw Vornamen mit Bindestrich)Gruß aus dem Land der Bayern
Peter
16.04.2002 10:00:01
Thread-ID: 113625
4 Beiträge
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Arbeitsblätter nach Namen sortieren
edie

Hallo zusammen,
ist es realisierbar, die Arbeitsblätter nach Namen so zu sortieren wie deren Namen in Tabelle1 Spalte A5, nach unten variabel, stehen?
Hat jemand eine Idee bzw. Code? Bitte kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße edie
12.08.2010 14:00:04
Thread-ID: 1171935
3 Beiträge
Datums-Spalte nach TAG sortieren
Bruno

Hallo Leute,
ich versuche, leider ohne Erfolg eine Liste zu sortieren :
Datumszeile nach Geburtstag !!!! nicht nach dem Geburtsjahr sondern vorrangig eben nach dem Geburts-TAG. 01. , 02. , 03. ,
Wer kann mir helfen ?
gruss
Bruno
19.11.2010 19:18:47
Thread-ID: 1187861
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
7
2
4
3
3
3
1
2
2
2
8
2
2
2
3
2
17
4
7
4
4
7
1
3