Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblätter sortieren Fehler bei Umlauten

Forumthread: Arbeitsblätter sortieren Fehler bei Umlauten

Arbeitsblätter sortieren Fehler bei Umlauten
23.06.2008 14:11:00
Markus
Hi,
es gibt ne Arbeitsmappe mit dutzenden Arbeitsblätter und auch Bezeichnungen mit Umlauten. Leider sortiert Excel mit der u.g. Routine da etwas komisch sprich "Söhne" kommt hinter "Sturm". Das ist aber nicht richtig.
Kann man das ändern?
'Aufsteigende Sortierung der Tabellen nach dem Tabellennamen

Sub Tabellensort_aufsteigend()
For i = 1 To Worksheets.Count - 1
X = Worksheets(i).Name
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter sortieren Fehler bei Umlauten
23.06.2008 14:27:31
Rudi
Hallo,
so:

Sub Tabellensort_aufsteigend()
Dim strName As String
For i = 1 To Worksheets.Count - 1
X = Worksheets(i).Name
For j = i + 1 To Worksheets.Count
If fncUmlaut(Worksheets(j).Name) 



Function fncUmlaut(txt As String) As String
'Ersetzt Umlaute in einem Text
Dim i As Integer
For i = 1 To Len(txt)
Select Case Mid(txt, i, 1)
Case "Ä": fncUmlaut = fncUmlaut & "Ae"
Case "Ö": fncUmlaut = fncUmlaut & "Oe"
Case "Ü": fncUmlaut = fncUmlaut & "Ue"
Case "ä": fncUmlaut = fncUmlaut & "ae"
Case "ö": fncUmlaut = fncUmlaut & "oe"
Case "ü": fncUmlaut = fncUmlaut & "ue"
Case "ß": fncUmlaut = fncUmlaut & "ss"
Case Else: fncUmlaut = fncUmlaut & Mid(txt, i, 1)
End Select
Next i
End Function


Gruß
Rudi

Anzeige
AW: Arbeitsblätter sortieren Fehler bei Umlauten
23.06.2008 14:59:00
Markus
Moin Rudi,
Treffer, genauso so soll es sein.
Vielen Dank für die Express-Lösung
Markus
;

Beliebteste Forumthreads (12 Monate)

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