Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon ponscho vom 09.08.2019, 10:22 Options
was ist an meinem makro sortieren verkehrt?
guten morgen allerseits,
habe mir ein makro aufgezeichnet, was nach zwei spalte sortieren soll.
Sub SortierenInterpret()
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("A1").Select
End Sub
spalte b wird ja absteigend sortiert, warum aber spalte c nicht?
es sieht dann in etwa so aus:
abba waterloo
abba dancing queen
abba knowing me, knowing you
abba take a chance on me
abba the name of the game
sollte aber so aussehen:
abba dancing queen
abba knowing me, knowing you
abba take a chance on me
abba the name of the game
abba waterloo
hab auch schon probiert erst nach c zu sortieren und anschliessend nach b
aber es kommt immer das selbe ergebnis raus.
wo ist mein fehler?
inernette grüsse
ponscho
habe mir ein makro aufgezeichnet, was nach zwei spalte sortieren soll.
Sub SortierenInterpret()
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("A1").Select
End Sub
spalte b wird ja absteigend sortiert, warum aber spalte c nicht?
es sieht dann in etwa so aus:
abba waterloo
abba dancing queen
abba knowing me, knowing you
abba take a chance on me
abba the name of the game
sollte aber so aussehen:
abba dancing queen
abba knowing me, knowing you
abba take a chance on me
abba the name of the game
abba waterloo
hab auch schon probiert erst nach c zu sortieren und anschliessend nach b
aber es kommt immer das selbe ergebnis raus.
wo ist mein fehler?
inernette grüsse
ponscho
Antwort 1 von nighty vom 09.08.2019, 12:59 Options
hi ponscho :-)
du hast ueberschriften verneint,bejah dieses und meld dich wieder :-)
gruss nighty
du hast ueberschriften verneint,bejah dieses und meld dich wieder :-)
gruss nighty
Antwort 2 von ponscho vom 09.08.2019, 13:38 Options
hi nighty,
hab sie jetzt geändert in
Sub SortierenInterpret()
Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1:D1").Select
End Sub
aber das ergebnis ist das gleiche wie vorher.
ps.: habe keine überschriften. habe das fenster fixiert zwischen zeile
4 und 5 und zeile 4 ist ohne beschriftung.
habe es aber für den versuch nicht fixiert und leere zeile gelöscht.
funktioniert trotzdem nicht.
geht es am ende garnicht so wie ich mag?
internette grüsse
ponscho
hab sie jetzt geändert in
Sub SortierenInterpret()
Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1:D1").Select
End Sub
aber das ergebnis ist das gleiche wie vorher.
ps.: habe keine überschriften. habe das fenster fixiert zwischen zeile
4 und 5 und zeile 4 ist ohne beschriftung.
habe es aber für den versuch nicht fixiert und leere zeile gelöscht.
funktioniert trotzdem nicht.
geht es am ende garnicht so wie ich mag?
internette grüsse
ponscho
Antwort 3 von nighty vom 09.08.2019, 13:46 Options
hi poncho :-)
lad mal eine mustertabelle bei netupload hoch
gruss nighty
lad mal eine mustertabelle bei netupload hoch
gruss nighty
Antwort 4 von ponscho vom 09.08.2019, 14:03 Options
hi nighty,
das ist sehr nett von dir ;o)
hab sie mal in abgespeckter version hochgeladen, ich hoffe es funktioniert
http://www.netupload.de/detail.php?img= 869c4c34ab2153ce73b04b7c00416451.xls
wärst du so nett mal die anderen makros zu testen? die machen auch noch probleme.
makro 1 problem bei antwort ja
makro 3 funktionert erst richtig nach zweimaligen drücken.
ich danke dir!
internette grüsse
ponscho
*Threadedit* 14:08:54
Admininfo: achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool
das ist sehr nett von dir ;o)
hab sie mal in abgespeckter version hochgeladen, ich hoffe es funktioniert
http://www.netupload.de/detail.php?img= 869c4c34ab2153ce73b04b7c00416451.xls
wärst du so nett mal die anderen makros zu testen? die machen auch noch probleme.
makro 1 problem bei antwort ja
makro 3 funktionert erst richtig nach zweimaligen drücken.
ich danke dir!
internette grüsse
ponscho
*Threadedit* 14:08:54
Admininfo: achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool
Antwort 5 von M.O. vom 09.08.2019, 14:18 Options
Hallo ponscho,
das Problem mit der falschen Sortierung liegt nicht an deinem Makro, sondern an deinen Daten!
Bei einigen Interpretennamen ist ein Leerzeichen angehängt! Lass dir mal die Länge von allen abba anzeigen: Bei Titel Dancing Queen ist die Länge 4, bei allen anderen 5! Das selbe bei Alice Cooper.
Entfernst du die Leerzeichen am Ende, dann klappt die Sortierung wie gewünscht.
Im übrigen Funktioniert Makro3 bei auf anhieb.
Gruß
M.O.
das Problem mit der falschen Sortierung liegt nicht an deinem Makro, sondern an deinen Daten!
Bei einigen Interpretennamen ist ein Leerzeichen angehängt! Lass dir mal die Länge von allen abba anzeigen: Bei Titel Dancing Queen ist die Länge 4, bei allen anderen 5! Das selbe bei Alice Cooper.
Entfernst du die Leerzeichen am Ende, dann klappt die Sortierung wie gewünscht.
Im übrigen Funktioniert Makro3 bei auf anhieb.
Gruß
M.O.
Antwort 6 von ponscho vom 09.08.2019, 14:42 Options
hallo M.O.,
oh ja, du hast recht nach entfernen des leerzeichens am ende funktionierts.
gibt es den ein makro was mir die leerzeichen am ende entfernt?
den das hochgeladene file ist nur ein teil meines orginals und das
alles per hand zu löschen ist ne heiden arbeit.
zu makro 3: wenn ich erst nach interpret sortiert habe und anschliessend nach platzierung sortieren möchte,
bleibt nach erstmaligen drücken in der ersten zeile immer '100 proof aged in soul' stehen beim zweiten mal drücken erst funktionerts richtig.
oder liegt das auch an den leerzeichen?
internette grüsse
ponscho
oh ja, du hast recht nach entfernen des leerzeichens am ende funktionierts.
gibt es den ein makro was mir die leerzeichen am ende entfernt?
den das hochgeladene file ist nur ein teil meines orginals und das
alles per hand zu löschen ist ne heiden arbeit.
zu makro 3: wenn ich erst nach interpret sortiert habe und anschliessend nach platzierung sortieren möchte,
bleibt nach erstmaligen drücken in der ersten zeile immer '100 proof aged in soul' stehen beim zweiten mal drücken erst funktionerts richtig.
oder liegt das auch an den leerzeichen?
internette grüsse
ponscho
Antwort 7 von ponscho vom 09.08.2019, 15:07 Options
hallo @all,
habe was gefunden um leerzeichen zu entfernen, ist zwar etwas umständlich aber es funktioniert.
in einer neuen zeile/spalte die formel =GLÄTTEN() bezogen auf die
zelle, in der die leerzeichen entfernt werden sollen.
dann die neuen zellen kopieren und in die urprünglichen zellen ->
inhalte einfügen -> werte
internette grüsse
ponscho
habe was gefunden um leerzeichen zu entfernen, ist zwar etwas umständlich aber es funktioniert.
in einer neuen zeile/spalte die formel =GLÄTTEN() bezogen auf die
zelle, in der die leerzeichen entfernt werden sollen.
dann die neuen zellen kopieren und in die urprünglichen zellen ->
inhalte einfügen -> werte
internette grüsse
ponscho
Ähnliche Themen
Tabelle Anwenderfreundlich sortieren
Terminator2006 18.03.2007 - 51 Hits -
Alternative Menüfunktionen
danielG 10.07.2007 - 28 Hits - 2 Antworten
makro läuft nicht
morpheus__85 17.09.2007 - 6 Hits - 6 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
