Register sortieren

Forumthread: Register sortieren
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Register sortieren

02.05.2003 12:30:39

Michi

Hallo
Habe im Register ca. 200 Namen und möchte gerne die Namen aufsteigend sortieren ohne das ich die im Register einzeln mit der Maus verschieben muss.

Besten Dank im Voraus

Gruss Michi

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Register sortieren

02.05.2003 12:32:56

Martin
Re: Register sortieren

02.05.2003 12:44:00

Michi
Re: Register sortieren

02.05.2003 12:51:12

Martin
Re: Register sortieren

02.05.2003 13:13:16

An Martin
Re: Register sortieren

02.05.2003 13:17:26

Martin

Re: Register sortieren

02.05.2003 12:32:56

Martin

Sub SheetsSortieren()

Dim Mldg As Byte

Mldg = MsgBox("sortiert die Sheets in diesem Workbook alphabetisch. Weiter?", vbInformation + vbOKCancel, "")
If Mldg = vbCancel Then Exit Sub

AnzahlRegister = Sheets.Count
For i = 1 To AnzahlRegister - 1
X = i
For Zähler = i + 1 To AnzahlRegister
If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
X = Zähler
End If
Next Zähler
If X > i Then Sheets(X).Move Sheets(i)
Next i
End Sub

Gruss,
Martin

Re: Register sortieren

02.05.2003 12:44:00

Michi

Hallo Martin

Habe mit Makro's keine gross Ahnung
könntest Du mir denn weg erklären.!!!

Gruss MICHI

Re: Register sortieren

02.05.2003 12:51:12

Martin

1. Drücke Alt-F11.
2. Links siehst du den Namen deiner Tabelle
3. Rechtsklick - Einfügen - Modul
4. Im Fenster rechts den Code reinkopieren
5. Zu Excel wechseln, F8 drücken und das Makro "SheetsSortieren" wählen, ausführen, fertig.

Gruss,
MArtin

Re: Register sortieren

02.05.2003 13:13:16

An Martin

Besten Dank Martin

Hab's hinbekommen.

Gruss Michi

Re: Register sortieren

02.05.2003 13:17:26

Martin

Freut mich!

Optimal ist es, wenn du dir eine "personl.xls" anlegst, dann kannst du Makros dort ablegen und sie sind immer verfügbar (Dateiunabhängig). Schau mal in der Onlinhilfe nach.

Gruss,
Martin

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!