VBA Beispiele

VBA per Copy & Paste bereitstellen.

Eine Idee für unsere Einführung in die Automatisierungen mit Makros und VBA-Code ist die praktische Umsetzung „quasi fertiger“ VBA-Lösungen aus diversen Quellen:

• Fachbücher

  siehe Herdt-Skript, VBA Buch Rheinwerk-Verlag (über 600 Beispiele), …

• Online-Recherchen

  neben der reinen Suche natürlich auch diverse Fachportale zu VBA

Hier mal ein paar Beispiele für diesen Copy & Paste Einsatz.

VBA Beispiel 01

Mehrzeiliger Code mit „ _“ als Zeilenumbruch:

' Über mehrere Zeilen mit Leertaste _ (in MsgBox Konstante vbLf)
Sub MsgBoxMehrzeiligAnzeigen()
   MsgBox "Heute ist der " & Date & vbLf & _
   "Es ist jetzt genau: " & Time & vbLf & _
   "Sie sind der Anwender: " & Environ("username"), _
   vbOKOnly, "Meldung"
End Sub

Tipp: bei Code mit Vorgestellten Optionen bitte jeweils ein einzelnes Modul nutzen (siehe: Option Explicit )!

VBA Beispiel 02

Hier folgend ein Beispiel einer Internet-Recherche mit „excel VBA tabellenblätter sortieren“ ergibt aktuell mit Google gut 122.000 Suchergebnisse!

Darunter findet sich (z.B.) auch eines der erwähnten Portale rund um Excel:

https://www.excel-inside.de/vba-loesungen/datei/951-tabellenbl%C3%A4tter-alphabetisch-sortieren

Und schon hat man ein „Copy & Paste“ Beispiel für die Sortierung von Tabellenblättern:

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

Den Code einfach in ein Modul Ihrer Wahl kopieren und austesten!

Und diese beispielhafte Suche kratzt nur an der Oberfläche der möglichen Umsetzungen - wie ich immer sage: „Das Rad wurde schon erfunden“. Was in diesem Zusammenhang heißen soll, dass es bereits Lösungen für Ihre Probleme gibt.

Es liegt an uns diese Beispiel sauber mit Excel-Technik umsetzen zu können.