Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aufsteigende Sortierung

aufsteigende Sortierung
12.11.2004 12:00:30
Flitzpiepe
Hallo zusammen,
wie muss ich folgenden Code ändern,damit die kopierten Tabellen aufsteigend sortiert werden?
CODE:

Sub BlattKopieren()
Dim intIndex1 As Integer, intIndex2 As Integer, strSheetname As String
Application.ScreenUpdating = False
Range("H1").Select
Columns("H:N").Hidden = False
With Sheets("GL_02")
.Copy Before:=Sheets(3)
.Columns("I:M").Hidden = True
End With
strSheetname = ActiveSheet.Name
For intIndex1 = 3 To Worksheets.Count - 3
For intIndex2 = intIndex1 + 1 To Worksheets.Count - 2
If LCase$(Worksheets(intIndex2).Name) > LCase$(Worksheets(intIndex1).Name) Then
Worksheets(intIndex2).Move Before:=Sheets(intIndex1)
End If
Next
Next
Sheets(strSheetname).Activate
Application.ScreenUpdating = True
UserForm1.Show
End Sub

Danke und Gruß,Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: aufsteigende Sortierung
th.heinrich
hallo Daniel,
bin eine VBA niete, deswegen sagt mit der CODE wenig, ausserdem geht nicht hervor wie die BLÄTTER benannt sind.
hier eine loesung zur ALPHABETISCHEN SORTIERUNG.
http://www.kmbuss.de/Excel-CD/vba-codes.htm#38
gruss thomaqs
AW: aufsteigende Sortierung
12.11.2004 16:38:48
Klaus
Du bist ganz NIETE was machst du noch hier !!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige