Einführung Makros + VBA

Arbeitsmappen mit Makros

... eigener Dateityp: *.xlsm (bzw. *.xltm für Vorlagen)

Beim Öffnen muss außerdem noch die Sicherheitswarnung beachtet werden, die dann überhaupt erst die "Aktivierung" der aktiven Inhalte - sprich unsere Makros - ermöglicht. Ohne diese Aktivierung sind die Makros (aktive Inhalte) nicht nutzbar!

Arbeitsmappenvorlagen (*.xltm)

Sammeln von Inhalten, Funktionen oder auch Makros in einer Mappe und bereitstellen als Template
Über neue Mappe - Meine Vorlagen lassen sich dann die Mappen inkl. der aktiven Elemente nutzen

Arbeitsmappenvorlagen einfach mittels "Speichern unter..." und Dateityp *.xltx  in passenden Vorlagenordner des Office-Users speichern.
Vorlagen für Mappen mit Makros natürlich mit *.xltm  speichern!

Aktueller Standardordner: C:\Users\benutzername\Documents\Benutzerdefinierte Office-Vorlagen   
Anm.: im Windows Explorer einfach deutschen Ordner "Dokumente" aufsuchen...
Die Vorlagen über Menüband Datei - Neu - Rubrik: Persönlich aufrufen/nutzen.

Speicherort für Vorlagen in Vorgänger-Windows/Office:
..\AppData\Roaming\Microsoft\Templates 

Tipp: Unterordner im Templates-Ordner des Office lassen Registerkarten für Meine Vorlagen entstehen!

PERSONAL.XLSB: Excel kennt auch "Persönliche Makro-Arbeitsmappen":
..\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB  (siehe also Benutzerprofil)

Einfache Erstellung der PERSONAL.XLSB: Makro erstellen mit "Makro speichern in: Persönliche Makroarbeitsmappe"

Danach lässt sich diese Technik über den VBA-Editor - Projektexplorer verwalten (Code hinzufügen/hinkopieren).

Makros

... Erste Gehversuche mit VBA-Techniken über Aufzeichnungen von Makros

An dieser Stelle sei auf die Seminare mit entsprechendem Schwerpunkt "Excel - Makros" verwiesen (also ohne weitere Vertiefungen in VBA).

Tastenkombinationen:

• ALT + F8 öffnet Makro-Dialogfenster
• ALT + F11 öffnet Visual-Basic-Editor

Erinnerung: Menüband Entwicklertools einblenden!

Makros - Sicherheit

Konfiguration über Excel-Optionen - Vertrauensstellungscenter - Einstellungen für Vertrauensstellungscenter
Hier: Einstellungen für Makros (möglichst unverändert lassen); Vertrauenswürdige Speicherorte
alternativ erreichbar über Schaltfläche "Makrosicherheit" im Menüband Entwicklertools

Bei Laufwerkspfaden im Netzwerk (UNC Pfade - Universal Naming Convention) muss extra ein Kontrollkästchen für diese Nutzung aktiviert werden

Tipp: bei den "Vertrauenswürdigen Speicherorten" finden Sie auch Ihre Verzeichnisse für Benutzer und Templates (siehe PERSONAL.xlsb in Ordner .\XLSTART ) !
Und wieder: Speicherorte auf Netzwerkressourcen müssen noch extra erlaubt werden.

VBA-Editor nutzen

... siehe Alt + F11

Manuelles Einfügen von Sub Routinen (Makros) oder Function (neue eigene Funktionen; Beispiel: NettoMwst)

Wichtig: falls noch keine Struktur "Module" im Projekt-Explorer vorhanden ist, dann bitte mittels Einfügen - Module diese notwendige Struktur erstellen

Mit individuellen Modulen lassen sich die VBA-Codes besser und effizienter organisieren!

Manuelles (zeilenweise) Abarbeiten mit Funktionstaste F8

Aufruf der Hilfen zu VBA Befehlen und Aufruf F1

Manuelles (zeilenweise) Abarbeiten mit Strg + Leertaste

Mehrzeiliger Code mit " _" als Zeilenumbruch: {code lang:freebasic showtitle:false lines:true hidden:false}' Ü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{/code}Tipp: bei Code mit Vorgestellten Optionen bitte jeweils ein einzelnes Modul nutzen (siehe: Option Explicit )!

Debugging: bei Fehlern lässt sich im Editor der fragliche Quellcode begutachten und korrigieren.
Für eine weitere Excel/VBA-Nutzung muss man den Fehler beheben oder die Ausführung des Makros stoppen (Stopptaste im Editor).

Symbolleiste "Bearbeiten" einfügen lassen im VBA-Editor: Einzüge, Haltepunkte, Sub/Makro (F5), Kommentierungen

Einstellungen für Tab-Schrittweite (z.B. 2 statt 4 Leerzeichen), Schrift/Schriftgröße oder automatische "Option Explicit" für neue Module

Codeeingaben gerne in Small (kleinen Zeichen) und ohne Leerzeichen:{code lang:freebasic showtitle:false lines:false hidden:false}worksheets("Tabelle1").range("a1").value=100
' wird zu
Worksheets("Tabelle1").Range("a1").Value = 100 {/code}Aber: erstellten Code immer kontrollieren/checken!

Eigenschaften (F4)

Übung: Sichtbarkeiten von Tabellenblättern manipulieren

• -1 – xlSheetVisible : Die Tabelle ist sichtbar.
• 0 – xlSheetHidden : Die Tabelle ist ausgeblendet.
• 2 – xlSheetVeryHidden : Die Tabelle ist sicher ausgeblendet, das heißt, der normale Anwender kann diese Tabelle nicht mehr einblenden.

Siehe auch: ScrollArea

VBA per Copy & Paste

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 Beispiel: Internet-Recherche mit "excel VBA tabellenblätter sortieren" ergibt aktuell mit Google gut 26.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{code lang:freebasic showtitle:false lines:true hidden:false}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{/code}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 sauber mit Excel-Technik umsetzen zu können.

Eigene Funktionen mit VBA

Mit ein wenig function VBA-Code lassen sich eigene Funktionen deklarieren, die man dann in Excel wie die eingebauten Funktionen nutzen kann.{code lang:freebasic showtitle:false lines:true hidden:false}Public Function NettoMwst(Betrag, Optional SteuerSatz As Single = 0.19)
'Quelle: Helmut Pirklbauer
Dim Netto As Double
Netto = Betrag / (1 + SteuerSatz)
NettoMwst = Excel.Application.Round(Netto, 4)
End Function{/code}Hinweis: diese functions müssen sich bis auf Weiteres in den Modulen von Arbeitsmappen befinden (Anm.: also nicht in der personal.xlsb - der persönlichen Arbeitsmappe).

TN-Bescheinigungen, Feedback-Bögen, Letzte Fragen

• *.xlsm Dateityp
• Sicherheit
• VBA-Editor Hilfe
• MsgBox
• For - Schleifen
• UserForms