Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren nach" in Zelle anzeigen lassen

Sortieren nach" in Zelle anzeigen lassen
15.02.2007 12:00:55
Stefan
Hallo Excel-Freunde
ich habe eine grosse Tabelle mit verschiedenen Spalten die ich regelmässig nach den
verschiedenen Spaltenbezeichnungen (z.b. Name, PLZ, Kontonummer usw) sortieren muss.
Tabelle von B7 bis AR 26000 in Zeile 7 ist der jeweilige Spaltenname angegeben
Ist es möglich z.B. in Zelle K5 den jeweiligen Sortierschlüssel im Klartext anzeigen zu lassen.
Also: Tabelle sortiert nach PLZ (Spalte N) in Zelle K5 soll PLZ stehen.
Wäre Klasse weil es der Übersichtlichkeit hilft !
Vorab vielen Dank für einen Tip - hab im Archiv nämlich nichts gefunden
Gruss
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren nach" in Zelle anzeigen lassen
15.02.2007 15:33:00
fcs
Hallo Stefan,
das Thema (oder ähnlich) wurde hier schon behandelt, hab aber leider den passenden Thread nicht wiedergefunden.
Das Problem kann man mit einer benutzerdefinierten Funktion lösen.
Gruß
Franz
Tabellenbeispiel in Formelansicht
Spalte	Kriterium
=A7	=Kriterium(A8)
=B7	=Kriterium(B8)
=C7	=Kriterium(C8)
=D7	=Kriterium(D8)
=Kriterium(E8)	=Kriterium(F8)	=Kriterium(G8)	=Kriterium(H8)
Spalte 1	Spalte 2	Spalte 3	Spalte 4	Spalte 5	Spalte 6	Spalte 7	Spalte 8
A2	2	C	2	C	1	e	f
A10	2	K	2	D	2	m	n
Benuterdefinierte Funktion:
Function Kriterium(Zelle As Range) As String
'Bestimmung der eingestellten Autofilter
'Als Referenz-Zelle die Zelle unterhalb der Überschriftzeile verwenden _
da sonst Formel nicht automatisch aktualisiert wenn Filter geändert wird.
Dim Wks As Worksheet, Filternummer
Set Wks = Zelle.Parent
If Wks.AutoFilterMode = True Then
Filternummer = Zelle.Column - Wks.AutoFilter.Range.Column + 1
If Wks.AutoFilter.Filters(Filternummer).On Then
Kriterium = Wks.AutoFilter.Filters(Filternummer).Criteria1
Select Case Wks.AutoFilter.Filters(Filternummer).Operator
Case 0 'Nur 1. Bedingung
Kriterium = Wks.AutoFilter.Filters(Filternummer).Criteria1
Case xlAnd
Kriterium = Wks.AutoFilter.Filters(Filternummer).Criteria1 _
& " UND " & Wks.AutoFilter.Filters(Filternummer).Criteria2
Case xlOr
Kriterium = Wks.AutoFilter.Filters(Filternummer).Criteria1 _
& " ODER " & Wks.AutoFilter.Filters(Filternummer).Criteria2
Case xlBottom10Items
Kriterium = "Untersten Elemente: " & Wks.AutoFilter.Filters(Filternummer).Criteria1
Case xlTop10Items
Kriterium = "Obersten Elemente: " & Wks.AutoFilter.Filters(Filternummer).Criteria1
Case xlBottom10Percent
Kriterium = "Untersten Prozent: " & Wks.AutoFilter.Filters(Filternummer).Criteria1
Case xlTop10Percent
Kriterium = "Obersten Prozent: " & Wks.AutoFilter.Filters(Filternummer).Criteria1
End Select
Else
Kriterium = "" 'Filter für Spalte ist nicht gesetzt
End If
Else
Kriterium = ""
End If
End Function

Anzeige
nicht Filterkriterium > Sortierkriterium
15.02.2007 15:49:00
Stefan
Hallo Franz,
vielen Dank für Deine Antwort - die mir leider nicht weiterhilft.
Ich bin auf der Suche nach einer Anzeigemöglichkeit, nach welcher SPALTE die gesamte Tabelle sortiert ist.
und nicht danach, nach welchem Kriterium der Autofilter gesetzt wurde.
Vielleicht noch ne Idee ?
Gruss
Stefan
ps:
ich nutze für die Autofilter-Anzeige folgende Funktion:

Private Function AF_KRIT()
Dim intCol As Integer
Dim intFilter As Integer
Dim rngFilter As Range
Dim strFilter As String
Dim WS As Worksheet
Application.Volatile
Set WS = ActiveSheet
If WS.FilterMode And WS.AutoFilterMode Then
Set rngFilter = WS.autofilter.Range
For intCol = 1 To rngFilter.Columns.Count
With WS.autofilter.Filters(intCol)
If .On Then
If strFilter <> "" Then strFilter = strFilter & vbLf
strFilter = strFilter & rngFilter.Cells(1, intCol) & ": " & .Criteria1
Select Case .Operator
Case xlAnd
strFilter = strFilter & " UND " & .Criteria2
Case xlOr
strFilter = strFilter & " ODER " & .Criteria2
End Select
End If
End With
Next intCol
End If
AF_KRIT = strFilter
End Function

Anzeige

323 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Pfad der letzten Speicherung
Iro

Hallo Excel-Gemeinde,
ist es möglich den Ordner herauszufinden, in dem zuletzt von Excel etwas gespeichert wird?
Hintergrund ist, dass in genau diesem Ordner gespeichert wird, wenn ich mit dem Befehl
Spreadsheet.Export Filename:="Filename.xls", Action:=ssExportActionNone
ein...
07.01.2009 18:00:59
Thread-ID: 1037642
3 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 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
2
2
2
7
10
7
14
2
8
3
5
6
4
4
8
5
10
2
3
11
2
1
2
5
8