Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe

Tabellenblätter alphabetisch sortieren

Dieser VBA-Code sortiert die Tabellenblätter einer Arbeitsmappe in alphabetischer Reihenfolge wahlweise aufsteigend oder absteigend.

Um die Sortierreihenfolge zu ändern müssen Sie nur die Variable strSortKrit anpassen und entweder den Parameter ">" oder "<" übergeben.

  • Der Parameter ">" sortiert die Blätter absteigend, also von Z-A und von 9-0
  • Der Parameter "<" sortiert die Bläter aufsteigend von 0-9 und von A-Z

 

Sub Sheets_alphabetisch_sortieren()
'** Dieses Makro sortiert die Blätter in alphabetischer Reihenfolge
'** Reihenfolge: Sonderzeichen, Ziffern, Buchstaben

'** Dimensionierung der Variablen
Dim intAnz As Integer
Dim a, b As Integer
Dim strSortKrit As String

'** Sortierreihenfolge festlegen
'** "<" = Aufsteigend von 0-9 und A-Z
'** ">" = Absteigend von Z-A und 9-0
strSortKrit = ">" 'Nach Bedarf anpassen!

'** Ermittlung Anzahl Tabellenblätter
intAnz = ActiveWorkbook.Worksheets.Count

'** Blätter nacheinander durchlaufen und sortieren
For a = 1 To intAnz
  For b = a To intAnz
    If strSortKrit = "<" Then
      If Worksheets(b).Name < Worksheets(a).Name Then
        Worksheets(b).Move Before:=Worksheets(a)
      End If
    ElseIf strSortKrit = ">" Then
      If Worksheets(b).Name > Worksheets(a).Name Then
        Worksheets(b).Move Before:=Worksheets(a)
      End If
    End If
  Next b
Next a

End Sub

 

Drucken E-Mail

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok