Am 10. Februar 2021 führen wir für die Graduiertenakademie der TU Braunschweig ein Seminar für die Tabellenkalkulation Excel - Makros und VBA durch.
Die Ausschreibungen der GradTUBS-Fortbildung:
Das Microsoft Office Paket besitzt eine eingebaute Programmiertechnik: VBA – Visual Basic for Applications. Mit dieser Technik können Sie z. B. automatisch aufgezeichnete Excel-Makros professionell ergänzen oder ganz eigene Anwendungen erstellen.
Dieser Workshop bietet Ihnen einen praxisorientierten Einstieg in diese Office-Programmierungen am Beispiel der Tabellenkalkulation Excel.
Inhalt
- Dateitypen für Mappen mit aktiven Elementen
- Nutzung von Arbeitsmappenvorlagen
- Makros aufzeichnen (Makrorekorder)
- VBA-Editor nutzen (Debugging)
- Makros manuell anpassen (Editing)
- Eigener VBA-Makrocode (Module)
- Eigene Excel-Funktionen per VBA Function
- VBA-Beispiele
Hier die Rahmendaten zum Seminar:
Ort: Online per BigBlueButton
Zeiten: Mi., 10.02.2021; 09.00 - 16.00 Uhr
Ich werde das Thema - in gewohnter Weise - mit täglichen Infos begleiten.
Ihr Trainer Joe Brandes
Mittwoch, 10.02.2021, 09.00 - 16.00 Uhr
Orientierungsphase, TN-Themen, Zeiten/Pausenregelungen
Aus TN-Kreisen GradTUBS (siehe Feedbackbögen) wird als Verbesserung eine Vorbereitung/Bereitstellung der Inhalte gewünscht. Dem komme ich mit den hier vorbereiteten inhaltlichen Themen für unsere Seminare nach.
Inhaltliche Strukturierung (Curriculi / LZKs / Ideen für 1-Tagesseminare)
Excel Seminare | Inhalte |
---|---|
Aufbaukurs | Weiterführende Techniken mit Excel: Vorlagen, Datenbankfunktionen, Pivot, ... |
Makros und VBA | Einstieg in Automatisierungen mit Makros: der Makrorecorder Eigene Funktionen in Excel Einstieg und Nutzung VBA-Editor und -Codes |
VBA Programmierung | VBA-Editor VBA Prozeduren Programmierungspraxis: Dateien, Zellen, Blätter UserForms - Formulare, Dialoge |
Hinweis: manche Bücher zu diesen Themen heißen "... in 14 Tagen ..." ;-)
Hinweis auf Online-Resourcen und Tools
...für die weiteren Arbeiten in Excel-Seminaren... zu beachten: Temporärer Download-Ordner für TN im Seminar
Downloads (Onedrive-Laufwerk Trainer J. Brandes) - Anmerkungen
Anm.: temporär - aber auch noch nach den Seminaren inkl. Trainerdatei(en)!) auf Onedrive-Laufwerk Trainer J. Brandes
Anleitung: bitte einfach Dokumente sauber markieren und mit Schaltfläche "Herunterladen" auf eigenen Rechner downloaden!
Falls Ihr Browser keine Rückfrage zum Speicherort stellt, dann sollten sich die heruntergeladenen Dateien in Ihrem Ordner Downloads finden lassen.
Trainer-Tools:
Screenshots mit Windows Boardmitteln ( Win + Druck )
Screenshot-Snipping-Tool mit Windows Boardmitteln ( Umschalten + Win + Druck )
Bildschirmlupe mit Windows Boardmitteln ( Win + + ;weglegen der Lupe mit Win + ESC )
Alternative/ehemalige Lösungen:
Bildschirmlupe "Virtual Magnifiying Glass" und Screenshots erstellen mit "Lightscreen"); z.B. über Portal portableapps.com
Anm.: Bildschirmlupen bzw. Vergrößerungen lassen sich in Online-Seminaren oft nicht optimal einsetzen!
Linksammlung (Kurzauflistung)
- Ansprechpartner an der TU Braunschweig - Graduiertenakademie GradTUBS
Link: https://www.tu-braunschweig.de/gradtubs - Skripte des Herdt-Verlag über das RRZN Uni Hannover zum kleinen Preis:
Link: http://www.rrzn.uni-hannover.de/buecher.html
Anm.: für Kostenerstattung spezielles Formular verfügbar (s.a. Software-Kauf)
Seminarende: bitte das Online-Seminar rechts oben (Drei-Punkte-Menü) über die Schaltfläche "Ausloggen" verlassen!
Anm.: sonst schmeißen Sie ALLE aus der Konferenz!
Buchempfehlung: "VBA mit Excel", Bernd Held, (aktueller Link zur 4. Auflage)
Rheinwerk Verlag, 1016 Seiten, 4., aktualisierte und erweiterte Auflage 2019, gebunden
Rheinwerk Computing, ISBN 978-3-8362-7398-5
Anm.: Beispiele lassen sich downloaden, im Bundle erhältlich: +5,- € Aufschlag für DRM-freie PDF/EPUB/MOBI!
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!
Version | Dateiformate |
Excel 97-2003 | xls - das klassische Excel-Sheet (Arbeitsmappen) xlt - die passenden Vorlagen (engl.: Templates) |
Excel 2007 / 2010 / ... | xlsx - XML basiertes Dokumentformat (ohne Makros) xltx - die passenden Vorlagen xlsm - XML basierte Mappen inkl. Makros xltm - die passenden Vorlagen inkl. Makros xlsb - spezielles Binärformat (siehe PERSONAL.xlsb) |
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!
Gegenüberstellung: Absolute vs. Relative Aufzeichnung
Praktische Umsetzung wird im Seminar trainiert!
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 Aufrfen 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).
Workbook_Open()
Routinen direkt beim Laden einer Arbeitsmappe automatisch ausführen lassen:{code lang:freebasic showtitle:false lines:true hidden:false}Private Sub Workbook_Open()
'Dieses Ereignis wird beim Öffnen der Mappe ausgeführt
Tabelle1.Range("A1").Value = 100
'Die ScrollArea für Tabelle1 setzen
Tabelle1.ScrollArea = "A1:D10"
End Sub{/code}Wichtig: dieser Code gehört jetzt mal nicht in die Module, sondern sozusagen wortwörtlich zu "Diese Arbeitsmappe".
Tabellen ansprechen
... die Tabellennamen mit unterschiedlicher Ansprache ...
Die Tabellenblattnamen lassen sich ändern in der Blattansicht und über das Eigenschaftenfenster; z.B.:
- Codename:
Tabelle3 - Normaler Name: (hier: Objekt Worksheets nutzen)
tbl_Daten
Empfehlung (bzw. häufig Best Practise): Codename ; wegen besserer Code/Syntaxcompletion, sicherer, weniger Pflegeaufwand!
Varianten zum Ansprechen eines Tabellenblatts:{code lang:freebasic showtitle:false lines:true hidden:false}' Codename:
Tabelle3.Range("A1").Value = 100
' Vollqualifiziert mit Worksheets
Worksheets("tbl_Daten").Range("A4").Value = 10
' Vollqualifiziert mit Worksheets und Index
Worksheets(3).Range("A2").Value = 10
' teilweise qualifiziert - Sheets arbeitet auch mit Diagrammblättern
Sheets("tbl_Daten").Range("A5").Value = 10
' völlig ungenau/gefährlich
Range("A6").Value = 10{/code}Conclusio/Empfehlung: Tabellenblätter genau planen und strukturieren!
Direktfenster (Strg + G)
beispielhafte Direktaufrufe:?Environ("username")
?Environ("computername")
Übung - Funktionsnamen im Englischen Original ermitteln:
Wie heißt die Funktion MITTELWERT() in Zelle A1??range("A1").Formula
=AVERAGE(D1:D8)
Tipp: Formel in Zelle eintragen: Tabelle3.Range("A1").Formula = "=AVERAGE(D1:D8)"
Hinweis: FormulaLocal hat dann die länderspezifische Benennung!
Berechnungen (automatisch / manuell)
Anm.: SAP-Excel-Exports sind oft manuell eingestellt, sodass Excel diese Blätter nicht automatisch aktualisiert!
Aufrufe auch gerne auch im Direktfenster:Application.Calculation=xlCalculationManual
oder dann wieder:Application.Calculation=xlCalculationAutomatic
Debug Ausgaben
z.B. zur Laufzeitmessung:Debug.Print "Start: " & Now
....Debug.Print "Ende: " & Now
oder einfach manuell einen Wert / Variable ausgeben!
Objektorientierung
Excel-VBA-Objekte haben
- Eigenschaften (Property - 80%) und
- Methoden (Methods - 20%)
Übung/Test mit Objekt "Application"{code lang:freebasic showtitle:false lines:true hidden:false}Sub UnterschiedMethodeUndEigenschaft()
With tbl_Matrix.Range("A1:D10")
' Eigenschaft
.Borders(xlInsideHorizontal).ColorIndex = 4
' Methode
.BorderAround Weight:=xlThick, ColorIndex:=3
End With
End Sub{/code}Beachte: Zuweisungen mit =
und :=
Bitte auch an Code-Completion mit Strg + Leertaste denken und die automatischen Auswahllistenfelder nutzen.
Variablen
Deklarieren mit Dim
; Tipp: Sonderzeichen vermeiden
lowerCamelCase empfohlen: intBeispielVar (Prefix empfohlen; hier: int für Integer-Variable)
Am Anfang der Sub-Routinen die Variablen deklarieren (lokale Variablen).
Beispielhafte Prefixes für die Datentypen:
bool Boolean , byte Byte , cur Currency , dtm Date , dec Decimal , dbl Double , int Integer , lng Long , obj Object , sng Single , str String , var Variant , rng Range , wkb Workbook
Speziell: Typ Enum
Übersicht zu Variablentypen: (Beachten: VB weicht teils von VBA ab; z.B. decimal not supported, ...)
Beispielhafte Links:
- https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary
- https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/data-types/
- https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/dim-statement
- https://www.vba-tutorial.de/variablen/datentypen.htm
Anm.: nur eine kleine Linkauswahl ohne Anspruch auf Vollständigkeit ;-)
Statische/Static Variablen - bleiben nach Laufzeitende erhalten!{code lang:freebasic showtitle:false lines:true hidden:false}Sub VariablenInhaltBleibtBestehen()
Static lngAufrufe As Long
lngAufrufe = lngAufrufe + 1
MsgBox "Makro wurde " & lngAufrufe & " Mal ausgeführt!"
End Sub{/code}Öffentliche/Public Variablen Public dtmStartzeit As Date
sind auch über Modulgrenzen hinweg nutzbar!
Private/Private Variablen Private strPasswort As String
sind nur in ihrem Modul verfügbar!
Konstanten
... sind schneller als Variablen!{code lang:freebasic showtitle:false lines:true hidden:false}Const strArbeitsmappe as String = "Mappe1.xls"
Const dteStartDatum As Date = #1/1/2015#
Const strFehlermeldung as String = "Fehler beim Druck!"
Const sngMWST as Single = 1.19{/code}Auch hier: möglichst Typ definieren.
Textdateien einlesen
Übungen zu unterschiedlichen Varianten{code lang:freebasic showtitle:false lines:false hidden:false}....
Open ConstTxtDatei For Input As #1
Do Until EOF(1)
Line Input #1, strText
Debug.Print strText
Loop
Close #1
....
Open ConstTxtDatei For Input As #1
VarDat = Input$(LOF(1), 1)
Debug.Print VarDat
Close #1{/code}Zweite Variante ist schneller, da man keine VBA-Schleife (Loop) nutzt.
Kontrollstrukturen
Verwzeigungen
Inklusive Übungen und Beispielen
- If ... End If bzw.
- If ... Then ... Else ... End If bzw.
- IIf( Bedingung, Then, Else)
- Select Case ... Case(s) ... End Select
Übungen / Beispiel-Codes für TN
Schleifen
- For ... To ... Next
- For Each ... Next
- With ... End With
- Do Until ... Loop
- Do While ... Loop
Übungen / Beispiel-Codes für TN
UserForms
Hier mal zwei Beispiele für UserForms
Herdt-Taschenrechner
Einbau einer neuen Schaltfläche (CommandButton cmdMultiplikation) und Code für eine Multiplikationsfunktion des Taschenrechners
Für weitere vertiefende Beschäftigungen mit dem Thema "UserForms" hier eine beispielhafte Anleitung im Internet:
VBA Tutorials - Eingabemasken mit Excel (Link Übung Eingabemasken mit Excel)
Nutzung von UserForms: hier wichtig, dass die aktiven Elemente / VBA-Codes den Elementen des Formulars zugeordnet werden.
Das eigentliche Formular wird durch eine einfache Schaltfläche im Arbeitsblatt per Klick aufgerufen!
Beispiele für Sub / Prozeduren: cmdMulti_Click()
oder txtZahl1_Exit()
also immer der Name eines Form-Steuerelements und ein angehängtes Ereignis!
TN-Bescheinigungen, Feedback-Bögen, Letzte Fragen
Bibliothek "Excel Makros / VBA"
Ihr Trainer Joe Brandes