Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Tabelle in Excel nach der Häufigkeit des Vorkommens sortieren

Frage Microsoft Microsoft Office

Mitglied: gabeomania

gabeomania (Level 1) - Jetzt verbinden

02.06.2010 um 06:45 Uhr, 11889 Aufrufe, 3 Kommentare

Hallo, ich habe eine frage zu Excel2003 unter WinXP,
und zwar:

Normalerweise kann man ja tabellen nach alphabet oder größe des zahlenwerts sortieren. ich möchte aber meine tabelle nach häufigkeit der vorkommnisse in einer bestimmten spalte sortieren. am besten lässt es sich wohl anhand eines bespiels erläutern:

A BC D E F
1 x xx a z Blindtext 2
2 x xx b z Blindtext 2
3 x x x b z Blindtext 2
4 x xx c x Blindtext 2
5 x x x c x Blindtext 2
6 x x x cx Blindtext 2

die tabelle ist nun nach häufigkeit der werte in spalte D zu sortieren, dabei ist es wichtig, dass die einzelnen reihen zusammenbleiben.
die neue tabelle müsste fertig sortiert also folgendermaßen aussehen:

A BC D E F
1 x xx c x Blindtext 2
2 x xx c x Blindtext 2
3 x x x c x Blindtext 2
4 x xx b z Blindtext 2
5 x x x b z Blindtext 2
6 x x x az Blindtext 2

in spalte D befinden sich viele unterschiedliche werte und die liste ist sehr lang.

ich hab natürlich das problem schon gegooglet und folgendes gefunden:

Sub CountIfSort()
Dim intRow As Integer, intCounter As Integer, intArr As Integer
Range("A1").Sort key1:=Range("A1"), order1:=xlAscending, header:=xlNo
Range("B1").Formula = "=countif(A:A;A1)"
Range("B1:B" & Range("A1").CurrentRegion.Rows.Count).FillDown
Range("A1").Sort key1:=Range("B1"), order1:=xlDescending, header:=xlNo
Columns("B").ClearContents
End Sub


Dieses Makro sortiert anscheinend nach häufigkeit in spalte A. aber ich versteh das nicht ganz und vor allem wozu brauch ich da im quellcode ständig spalte B? da stehen doch bei mir eh ganz andere werte drin?
Also, wer kann mir helfen den Code auf Spalte D zu ändern?
Mitglied: TheEternalPhenom
02.06.2010 um 08:05 Uhr
Hallo gabeomania,

was es mit diesem Code von dir auf sich hat kann ich dir im Moment nicht sagen, bin noch zu müde -_-




01.
Sub Sortieren_a-z() 
02.
 
03.
    Range("A1:F7").Select 
04.
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear 
05.
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D1:D7") _ 
06.
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
07.
    With ActiveWorkbook.Worksheets("Tabelle1").Sort 
08.
        .SetRange Range("A1:F7") 
09.
        .Header = xlGuess 
10.
        .MatchCase = False 
11.
        .Orientation = xlTopToBottom 
12.
        .SortMethod = xlPinYin 
13.
        .Apply 
14.
    End With 
15.
End Sub


01.
Sub sortieren_z-a() 
02.
 
03.
    Range("A1:F7").Select 
04.
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear 
05.
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D1:D7") _ 
06.
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 
07.
    With ActiveWorkbook.Worksheets("Tabelle1").Sort 
08.
        .SetRange Range("A1:F7") 
09.
        .Header = xlGuess 
10.
        .MatchCase = False 
11.
        .Orientation = xlTopToBottom 
12.
        .SortMethod = xlPinYin 
13.
        .Apply 
14.
    End With 
15.
End Sub

Ein Tipp am Rande, die Makro Möglichkeit Makros unter Excel aufzuzeichnen hilft manchmal Wunder. Neben einem Denkanstoß findet man hier oftmals schon die Lösung. Also Beispiel kann ich die beiden Codes zeigen.

Ich hoffe ich konnte dir etwas helfen, trotz meines fehlenden Schlafes.

Gruß

duffman521
Bitte warten ..
Mitglied: gabeomania
02.06.2010 um 09:48 Uhr
oh ok, ich habs aber in der zwischenzeit schon gelöst. die lösung ist zwar nicht so schön, aber sogar ich bekomme sie hin.
ich hab die funktion =ZÄHLENWENN() verwendet und dann die Tabelle nach dem ergebnis dieser absteigend sortiert.

jetzt hab ich aber schon eine neue frage,
wie kann ich allen zellen in einer spalte den gleichen text voranfügen?
ich hab es mit der makro-aufzeichnung versucht, werde aber nicht schlau daraus.
Bitte warten ..
Mitglied: Biber
02.06.2010 um 21:01 Uhr
[OT]
Zitat von gabeomania:
oh ok, ich habs aber in der zwischenzeit schon gelöst. ...

jetzt hab ich aber schon eine neue frage,
wie kann ich {whatever jetzt oben auf meiner ToDo-Liste nach oben gerutscht ist} ?

Ich geb dir mal einen Tipp, wie ich es im Forum am liebsten handhabe, wenn jemand mit dem berühmten Zitat "And now something completely different...." einfach weiterzuschreiben....

---> Ich habe diesen Beitrag mal auf "Erledigt" gesetzt.

Aber neue Beiträge sind immer willkommen...

Grüße
Biber

*+* Dieser Kommentar wird nach signalisierter Einsicht des Threadowners wieder entfernt. *+*
[/OT]
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Tabelle nach Spalte sortieren und Daten auf Tabellenblätter separieren
gelöst Frage von FastinatorMicrosoft Office4 Kommentare

Guten Tag zusammen, man hat mich vor die Aufgabe gestellt, eine .CSV-Datei in Excel (Microsoft Office 2010) so umzubauen, ...

Microsoft Office
Excel Tabelle
Frage von samsamsamMicrosoft Office17 Kommentare

Hallo Ich habe ein Problem mit einer Tabelle In der ersten Tabebelle hab ich Namen aufgelistet und 1 Zelle ...

Microsoft Office
Excel 2010 mit VBA sortieren ?
gelöst Frage von dressaMicrosoft Office4 Kommentare

Hallo miteinander, Ich habe die Aufgabe mit Excel einen Dateiordner auszulesen und diese in Excel nach 2 Kriterien in ...

Microsoft Office
Sortieren in MS Excel 2013
Frage von w.doplerMicrosoft Office3 Kommentare

Hallo zusammen, ich habe eine Auswertung aus einem CRM in eine Excel Datei importiert. Ich habe eine Spalte. In ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...