Alphabetische Reihenfolge ?

Tummelplatz für Computernutzer im allgemeinen und ihrer vielfältigen Probleme

Moderator: (M) Mod.-Team Allgemein

Antworten
Benutzeravatar
Codiak
TalkING. Superposter
TalkING. Superposter
Beiträge: 361
Registriert: Di, 04. Sep. 07, 10:40
Wohnort: Geesthacht

Alphabetische Reihenfolge ?

Beitrag von Codiak » Mi, 27. Apr. 11, 11:12

hallo, ich wollte mir eine Vokabelliste anfertigen und wollte fragen ob man bei Excel oder bei Word es so einstelen kann, dass wenn ich ein neues Wort einpflege er mir das dann automatisch alphabetisch sortiert!

wäre cool wenn mir da jemand helfen könnte :D
Man kann alles schaffen, man muss nur wollen !

Room101
TalkING. Superposter
TalkING. Superposter
Beiträge: 554
Registriert: Fr, 12. Sep. 03, 12:47

Beitrag von Room101 » Mi, 27. Apr. 11, 12:06

Ich habe das für den Schlüssel in Spalte A wie folgt gelöst:

Code: Alles auswählen

Private Sub Worksheet_Change(ByVal Target As Range)
    Temp = Target.Text

    If Target.Text = "" Then GoTo break
    If Target.Column <> 1 Then GoTo break
   
    Columns&#40;"A&#58;B"&#41;.Select
    Selection.Sort Key1&#58;=Range&#40;"A1"&#41;, Order1&#58;=xlAscending, Header&#58;=xlYes, _
    OrderCustom&#58;=1, MatchCase&#58;=False, Orientation&#58;=xlTopToBottom, _
    DataOption1&#58;=xlSortNormal
    
    dateRange = "A1&#58;" & Range&#40;"A1"&#41;.End&#40;xlDown&#41;.Address

    For Each cell In Range&#40;dateRange&#41;
        If cell.Text = Temp Then
            Range&#40;cell.Address&#41;.Select
        End If
    Next cell

break&#58;

End Sub
Viel Erfolg!
The lexical ambiguity and syntactic arrangement inherent in this prose communication tend to predict a degree of confusion in the desired recipient.

Benutzeravatar
Codiak
TalkING. Superposter
TalkING. Superposter
Beiträge: 361
Registriert: Di, 04. Sep. 07, 10:40
Wohnort: Geesthacht

Beitrag von Codiak » Mi, 27. Apr. 11, 12:37

sry, ich verstehe das leider überhaupt nicht :)

kannste das bitte nochmal für dumme erklären? :D
Man kann alles schaffen, man muss nur wollen !

Benutzeravatar
Tierra
TalkING. Champion
TalkING. Champion
Beiträge: 1686
Registriert: Do, 21. Okt. 04, 14:31
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Tierra » Mi, 27. Apr. 11, 16:18

Wenn du Excel benutzt, warum nimmst du dann nicht einfach die Sortierfunktion?

Room101
TalkING. Superposter
TalkING. Superposter
Beiträge: 554
Registriert: Fr, 12. Sep. 03, 12:47

Beitrag von Room101 » Do, 28. Apr. 11, 10:31

Codiak hat geschrieben:sry, ich verstehe das leider überhaupt nicht :)

kannste das bitte nochmal für dumme erklären? :D
Mit Alt+F11 wechselst du in den VBA Editor und wählst dort "Sheet1" aus. In das (noch leere) Code-Fenster fügst du o.g. Code ein. Wenn du nun in Spalte A einen neuen Eintrag einfügst, wird dieser automatisch einsortiert und zur sortierten Position gesprungen. Änderungen in anderen Spalten triggern die Sortierung nicht.

Jetzt klar?
The lexical ambiguity and syntactic arrangement inherent in this prose communication tend to predict a degree of confusion in the desired recipient.

Ed
TalkING. Superposter
TalkING. Superposter
Beiträge: 284
Registriert: Sa, 07. Apr. 07, 17:57

Beitrag von Ed » Do, 28. Apr. 11, 18:21

Geiles Ding! Daumen hoch! :D

Benutzeravatar
Codiak
TalkING. Superposter
TalkING. Superposter
Beiträge: 361
Registriert: Di, 04. Sep. 07, 10:40
Wohnort: Geesthacht

Beitrag von Codiak » Do, 28. Apr. 11, 22:34

hab vielen dank, der code fetzt :D
Man kann alles schaffen, man muss nur wollen !

bigbohne
TalkING. Freak
TalkING. Freak
Beiträge: 208
Registriert: Di, 11. Dez. 07, 08:18

Beitrag von bigbohne » Sa, 28. Mai. 11, 13:29

haha.

"goto" ololo xD

Visual Basic *augenroll*

Antworten