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

Mitglied: gabeomania

gabeomania (Level 1) - Jetzt verbinden

02.06.2010 um 06:45 Uhr, 12022 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
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 9 StundenHumor (lol)2 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 22 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 22 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server45 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware16 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...