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 Auftragsformular

  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

  • 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...

  • 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...

  • Datensicherung auf einem anderen Laufwerk erstellen

    105042 Mit dem folgenden Makro können Sie eine Datensicherung der aktuellen Mappe auf einem anderen Laufwerk erstellen. Der Dateiname bleibt dabei gleich.Sub speichern_unter()Dim str As StringConst Lw = "H:\"Const Pfad = "H:\eigene Dateien\"str = ActiveWorkbook.NameChDrive LwChDir PfadActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormalEnd SubIn diesem Beispiel wird die Datensicherung auf...

  • Dateiname und Pfad in Fußzeile einfügen

      Die Datei muss dazu aber mindestens 1 mal gespeichert worden sein, sonst kann der Pfad ja nicht bekannt sein. Also die Datei zuerst speichern und anschließend das Makro ausführen.   Sub...

  • 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...