Projektanfrage

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 Unter-stü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
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  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
   

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

 

   

Relevante Artikel

  • Zwei Arbeitsmappen miteinander vergleichen

    103004   Möchten Sie 2 Arbeitsmappen miteinander vergleichen? Dann sollten Sie dieses Makro näher ansehen.Verglichen werden die Anzahl der Tabellenblätter, die Anzahl der benutzen Zellen und die...

  • Programmverzweigung beim Schließen der Arbeitsmappe

    Diese Makro fragt nach, ob die Arbeitsmappe gespeichert werden soll.Bei 'Ja' wird die Arbeitsmappe gespeichert und geschlossenBei "Nein' kann ein entsprechender Code ausgeführt werden, der ins Makro...

  • Prüfen, ob eine Diskette eingelegt ist

    105024 Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.Sub Prüfung_Diskettenschacht()'Variablen...

  • Dialogfenster "Speichern unter" per VBA aufrufen

    Möchten Sie per VBA den Dialog "Speichern unter" aufrufen und dabei den Speicherpfad und den Dateinamen vorgeben? Folgendes Makro erledigt dies für Sie. In diesem Beispiel wird der Pfad "C:\Temp"...

  • Daten aus geschlossener Arbeitsmappe über Zellverknüpfungen auslesen

    Daten können aus geschlossenen Arbeitsmappen auf verschiedene Arten ausgelesen werden. In einem Artikel habe ich vor einiger Zeit eine Möglichkeit vorgestellt, um Daten direkt aus einer...