Excel - Bekomme es einfach nicht hin...

[paSChaDaHur]

Hallo zusammen,

ich brauch mal einen Rat, ich komm einfach nicht weiter.. bzw. hab garkeinen Ansatz...

In der folgenden Tabelle sollen die Nennungen der Tiere PRO Zeile, also pro Stutend erwähnt werden diese wiederrum nach Anzahl der Semester ordnen.

z.B. SMS - 3, Code - xlk203 - Tiere - Schneck, Ameise und bla...

Gibt es eine Möglichkeit sowas ausspucken zu lassen?
Hab nichtmal einen Ansatz.. wäre nett, wenn ihr mir mal auf die Sprünge helfen könntet...

Datei in xls umbennen. danke.

 

[cart]

Ich schätze mal du meinst Excel.

 

[zhxb]

Mir ist nicht so ganz klar was genau du willst.

Mit =8-COUNTBLANK(Qn:Xn) (in OpenOffice, sollte bei Excel aber aehnlich sein) bekommst du zumindest die Anzahl der angegeben Tiere im entsprechendem Zeilenabschnitt.

 

[paSChaDaHur]

Sind ja 120 Zeilen.

Jede Zeile entspricht einem Studenten.
Ich muss von jedem Studenten die aufgezählten Tiere auswerten. d.h. Nr.1 - Tiere.
Und die wiederrum nach den Semestern ordnen (was kein Problem darstellt)

Verstehse?

 

[viedion]

ich hoffe, ich versteh hier nix total falsch und schlag folgendes vor:
das ganze scheint ja nicht sonderlich dynamisch zu sein, kann also auch 2-3 workaroundklicks benötigen:

mach doch einfach einen grosses "Wenn <> "" dann verketten" spiel draus?

also hintendran in eine spalte ein
=Verketten('SemesterAnzahlFeld'; " - "; 'ErstesTierFeld'; WENN(ZweitesTierFeld <> "";" - ";"");'ZweitesTierFeld'...etc
(das wenn ist nur, damit deine Tiere mit "-" getrennt werden)

dieses Spalte kopierst du dann manuel irgendwohin weg (Inhalte einfügen => Werte) und sortierst manuel...


Edith sagte, ich solle es nochmal Lesen:

Soll das Ergebnis in etwa so aussehen: 3t Semester lieben va die Amsel, 4t Semester mögen Hunde und 65x wurde bei 5t Semester "Drache" angegeben?

 

[Micha85]

Ich hab hier ein kleines Macro geschrieben, ist zwar unschön funktionert aber

Sub Irgendwas()
Dim i As Integer
Dim t As Integer
Dim j As Integer
Dim aSemester(130) As Integer




Worksheets.Add.Name = "Ausleseblatt" 'Legt neues Tabellenblatt an
Worksheets.Add.Name = "Geordnet" 'Legt neues Tabellenblatt an

'Fügt die relevanten Spalten in das neue Tabellenblatt
Sheets("studies_B_2008").Select
Columns("B:B").Select
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("A:A").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("B:B").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("Q:Q").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("C:C").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("R:R").Select
Application.CutCopyMode = False
Selection.Copy
Range("B60").Select
Sheets("Ausleseblatt").Select
Columns("D").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("S:S").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("E:E").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("T:T").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("F:F").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("U:U").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("G:G").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("V:V").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("H:H").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
Columns("W:W").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("I:I").Select
ActiveSheet.Paste
Sheets("studies_B_2008").Select
ActiveWindow.Zoom = 70
Columns("X:X").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ausleseblatt").Select
Columns("J:J").Select
ActiveSheet.Paste

'Sortierroutine

For i = 2 To 121
aSemester(i) = Cells(i, 2)
Next i

t = 1

For j = 1 To 121
For i = 2 To 121
If aSemester(i) = j Then
Rows(i).Select
Selection.Copy
Sheets("Geordnet").Select
Rows(t).Select
ActiveSheet.Paste
Sheets("Ausleseblatt").Select
t = t + 1
End If
Next i
Next j


End Sub

 

[paSChaDaHur]

Edith sagte, ich solle es nochmal Lesen:

Soll das Ergebnis in etwa so aussehen: 3t Semester lieben va die Amsel, 4t Semester mögen Hunde und 65x wurde bei 5t Semester "Drache" angegeben?

Eher:

Nummer 1 - SMS 3 - MAG - TIER, TIER, TIER,
Nummer 2 - SMS 4 - MAG - TIER, TIER, TIER, etc...


So ausspucken lassen danach halt nach SMS (chronologisch ordnen)



bzw: Micha du bist ein Tier ^^

Nur muss ich wissen, wo das Zeug hin muss

 

[Micha85]

puH, ich hab das Makro aufm PC bei der Arbeit, sonst würd ich dir die ganze Datei schicken, also auch gleich die Ordnung dazu, morgen schau ich nochmal danach.

Aber du kannst ja mal versuchen das selbst einzufügen (Stand Excel 2003):
Du benutzt deine Datei, die du auch uns gegeben hast.
Dann gehst auf Extra/Makro und dann auf "Makro aufzeichnen", kannst dann gleich wieder die Makro-Aufzeichnung stoppen und das Makro im selben Menü-Unterpunkt aufrufen, aber du benutzt den edit-button und landest im Visual Basic Editor, du löscht alles und fügst mein macro dort ein (copy paste). Ich hoff das kallpt so. Der Weg ist eigentlich ziemlich umständlich, aber ich weiß nicht wie ichs kürzer beschreiben soll. Eventuell musst du auch nur den Text zwischen "Sub Macro1()" und "End Sub" löschen, dann musst darfst du auch nur den Text von meinem Macro zwischen "Sub Irgendwas()" und "End Sub" einfügen.
Wenn das geklappt hat musst du noch auf den "play-button" (wie auf dem CD_PLayer) unterhalb der menü-leiste klicken und alles müsste gut werden . Wie gesagt morgen kann ich dir einfach das ganz (fertige) Ding schicken.
Ich kenn mich mit dem Editor nicht so gut aus und VBA auch nicht (Weils Schrott ist ;D) deshalb ist alles ein bisschen umständlich.

Ach ja, was mir grad auffällt: In dem Code hat mir das broodwar forum ein Smily gemacht ein , das muss du zu einem ": D" machen, alles klar ?

Und noch was: Ich bin mir gar nicht sicher ob du das so willst wie ich das gemacht habe (Also die Ordnung), schau dir meins mal an und sag was anders seien muss, ggf. kann ichs dir dann schnell ändern. Was is MAG?

 

[paSChaDaHur]

hm sehr geile sach micha... danke.
Aber ich hab das 2007er drauf und finde nichtmal die Makros...
Excel geht mir tierisch aufn Sack bzw. das 2007 :/

MAG = "mögen"

Wäre cool, wenn du mir vielleicht die Datei schicken könntest... ^^

Aber nochmals danke für deine Mühen!!!!

 

[Micha85]

Ja kalr, kein Ding. Musst halt auch mal bissle googlen, wenn du mit Office 2007 weiterkommen willst ;D

Anhang anzeigen 20498

Ist nur der Kurs von 2008

Gruß

 

[Starfire]

das erinnert mich an einen wiing der auch solche komplizierten datenmengen hatte und auswerten wollte.
am ende hat er sich php/mysql beigebracht, die excel-tabelle in die datenbank geparsed und mit php ausgewertet.

 

[viedion]

Eher:

Nummer 1 - SMS 3 - MAG - TIER, TIER, TIER,
Nummer 2 - SMS 4 - MAG - TIER, TIER, TIER, etc...


So ausspucken lassen danach halt nach SMS (chronologisch ordnen)

wo ist dann das problem, das so zu machen wie ich schrieb?

einmal die wichtigen zellen mit "verketten" hinten dran zusammenfügen, dann rauskopieren und mit 2 klicks sortieren nach?

Makro ist dick kanonen auf spatzen!

Sag der Edith Danke...
das drinne im zip soll halt ne xls sein

 

[Micha85]

Wenn du 5min Arbeit für einen Dicken Spatz hälst ok ...natürlich kann man das auch von Hand machen...wäre mir aber zu doof und würde insgesamt viel läner dauern. V.a. musst du es dann bei jeder neuen Tabelle machen. Also meine Erfahrung ist es, lieber schnell ein Makro machen und dafür jede Tabelle damit bearbeiten können (musst vielleicht noch 2-3 zahlen umändern). Wenn die Sachen zu unhandlichen werden, schnell noch ein GUI machen und fertig. So seh ich das jedenfalls

 

[viedion]

Excel kann doch sortieren...
drum muss man einfach nur die spalten kopieren und dann sortieren?
oder einfach die nicht beötigten spalten ausblenden und dann automatisch sortieren?
oder einfach irgendwohin kopieren und die nicht beötigten dinge löschen?

makros: wenn man mehr als 2x das gleich machen muss
oder wenn man halt öfter was mit excel zu machen hat und es sich darum lohnt das mal zu lernen...

but who cares - everyone the his

 

[paSChaDaHur]

viedion, danke sowas würde schon reichen, nur das Code noch reinmüsste...
ich schau mal vielleicht bekomme ich das hin...
Muss mir auch mal das Macro anschauen ^^

Viedion: Sowas in der Art hab ich mir vorgestellt, die Reihenfolge müsste wie folgt aussehen:

SEM: NUMMMER: CODE: TIERE:

Könnte man die 4 Attribute in jeweils einzelnen Zellen ausspucken lassen?

Bzw, gibts es auch eine Möglichkeit zu sagen: SEM 2 = meiste Nennung von Tier z.b. Hund, zweit meiste Nennung, z.b. Huhn. etc..?
danach halt SEM 3 etc...?

nochmals danke jungs...


hm micha: Hab mal Makros aktiviert, aber kommt nichts

 

[viedion]

ich war fortski drum keine antwort...

mit komplexen datenauswertungen per excel kenn ich mich net aus, habs für n freund dann so...

das erinnert mich an einen wiing der auch solche komplizierten datenmengen hatte und auswerten wollte.
am ende hat er sich php/mysql beigebracht, die excel-tabelle in die datenbank geparsed und mit php ausgewertet.

gemacht (bin auch wiing, wie passend...)

jetzt ist spät, ich bin im latenten...
ich schau morgen mal kurz an - wenns nichtmehr aktuell ist, sags aber bitte!

 

[paSChaDaHur]

Wäre noch aktuell... ^^

Wäre nett, wenn du mir helfen könntest.

grüße!

 

[viedion]

ich versteh nicht, was du nicht verstehst...

ich hab doch nur 2 spalten gemacht.
- in AY hab ich die SMS genommen, nach denen man dann einfach sortieren kann.
- AZ steh dann dass:
=VERKETTEN(A2;" - SMS ";C2;" - MAG: ";WENN(Q2<>"";Q2;"");WENN(R2<>"";VERKETTEN(", ";R2);"");WENN(S2<>"";VERKETTEN(", ";S2);"");WENN(T2<>"";VERKETTEN(", ";T2);"");WENN(U2<>"";VERKETTEN(", ";U2);"");WENN(V2<>"";VERKETTEN(", ";V2);"");WENN(W2<>"";VERKETTEN(", ";W2);"");WENN(X2<>"";VERKETTEN(", ";X2);""))

das macht aus den Spalten A, C, Q-X eine Zeichenkette mit den jeweiligen Trennzeichen.

die beiden Spalten dann von Hand auf ein neues Tabellenblatt kopiert.
Dann markierst du beide Spalten und machst via Excel "Daten" -> "Sortieren"
dann fragt dich der Excel nach welcher Spalte, absteigend-aufsteigend etc´und sortiert dann die Zeile.

Viedion: Sowas in der Art hab ich mir vorgestellt, die Reihenfolge müsste wie folgt aussehen:

SEM: NUMMMER: CODE: TIERE:

Könnte man die 4 Attribute in jeweils einzelnen Zellen ausspucken lassen?

entweder halt hinten dran der übersicht wegen neue Spalten einführen, die dann kopieren und dann sortieren.
z.B.
AY2=VERKETTEN("Sem: ";Semesterspalte2)
AZ2=VERKETTEN("Nummer: ";Nummerspalte2)
.
.
.
in "" kommen textketten, ohne "" kommen zellenverweise
die ganzen WENNs in meiner oberen tierverketten ist nur, damit der keine kommas macht, wenn kein anderes tier mehr folgt. kommt halt daruf an, ob du das für dich machst (kann hässlich sein, die information zählt) oder das gleich geschickt kopieren/einfügen/weiterverarbeiten willst (hässlichkeit darf nicht sein).

Bzw, gibts es auch eine Möglichkeit zu sagen: SEM 2 = meiste Nennung von Tier z.b. Hund, zweit meiste Nennung, z.b. Huhn. etc..?
danach halt SEM 3 etc...?

"SELECT tier, count(id), SEM FROM tabelle WHERE SEM = 2 GROUP BY tier order by count(id)"

sowas kann man idR auch mit einer Pivotabelle machen. allerdings braucht man dafür halbwegs normalisierte Daten...
*überleg*

 

[paSChaDaHur]

coole sache, habs mal teilweise hinbekommen.

Nur: =SELECT Q2:X121 count(id); SEM FROM Q2:X121 WHERE SEM = 2 GROUP BY tier order by count(id)

Klappt nicht so wie ich möchte... was ist falsch?
Bzw... "SELECT tier, count(id), SEM FROM tabelle WHERE SEM = 2 GROUP BY tier order by count(id)" geht auch nicht 8[

 

[viedion]

asdf - das select dingens wäre für sql - hat mit excel nichts zu tun!

eine pivotabelle kann häufigkeiten zählen.
das problem: man bräuchte die Daten in Form von:
Semester|Tier, momentan ist die Form halt Semester |Tier|Tier|Tier
Wenn man nun daraus die Form Semester|Tier macht, dann Pivotabelle und np.

 

[paSChaDaHur]

achso lol -

Ich sag doch, bin total Excel newb :/

 

[viedion]

hast du alle genannten tiere als liste oder konnte die leute das frei auswählen?

 

[paSChaDaHur]

Frei auswählbar... wäre mir auch lieber gewesen, wenn ich eine Liste gehabt hätte, da hätte ich die gut zählen können... 8[