Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamische Tabelle automatisch sortieren

Forumthread: 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
Anzeige

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
Anzeige
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 17:33:44
Nepumuk
Hallo Gerhard,
ich hab's dir mal in deine Mappe eingebaut: https://www.herber.de/bbs/user/123112.xlsm
Gruß
Nepumuk
Anzeige
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
Anzeige
;

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
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
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
Zellen sortieren nach namen
Peter

Guten Morgen ich möchte gerne eine Excel Tabelle erstellen mit meinen ganzen IP Adressen die im Netzwerk vergeben sind.
Daher habe ich eine Tabelle erstellt wo ich alle IP Adressen die in meinem Netzwerk möglich wären aufgeschrieben und beschriftet welche Funktion sie haben.
Wäre es the...
22.11.2009 12:51:48
Thread-ID: 1119140
4 Beiträge
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
Anzeige
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
Spalte alphabetisch sortieren per Formel
Mike

Hi,
und noch eine Frage an die Ex(cel)perten...: :-)
Ich weiss, wie ich Einträge in einer Tabelle manuell oder per Makro sortieren kann.
Gibt es auch eine Möglichkeit, die Einträge einer Spalte per Formel und einer Hilfsspalte zu sortieren ?
Meine Einträge stehen in Spalte K...
03.01.2011 12:59:44
Thread-ID: 1193716
3 Beiträge
Tabelle automatisch sortieren
André

Moin, moin!Ich bastel gerade an einer Tabelle zur Fußball-WM 2002. Der Spielplan steht soweit, nur mit der Tabelle und dem automatischen Sortieren (wahrscheinlich per Makro, oder?) habe ich meine Probleme. Ich möchte es eigentlich so lösen, daß sobald das Ergebnis eingetragen ist, die Reihenfol...
19.05.2002 15:17:54
Thread-ID: 122000
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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