VBA (Makros)

Alles zum Thema Makros in Excel (VBA – Visual Basic for Applications) ist hier zu finden.

Excel-Wissen & VBA vertiefen mit ChatGPT (OpenAI)

Roman Allgemein, Diagramme, Formeln, Pivot, Power BI, Robotic Process Automation (RPA), Spiele, VBA (Makros) , , , , ,

ChatGPT von OpenAI hat in wenigen Tagen und Wochen für Furore gesorgt und die Massen begeistert sowie spannende & kontroverse Diskussionen entfacht. Die Anwendungsfälle, wo künstliche Intelligenz (Artificial Intelligence) eingesetzt werden kann, wurden vielen Personen bewusster und greifbarer - und insbesondere auch zugänglicher!

Ein Twitter-Thread von Joe Speiser zeigt 8 mögliche Wege auf, wie ChatGPT eingesetzt und viele Stunden an mühsamer Arbeit für unterschiedliche Tätigkeiten ersparen kann (Sprache: Englisch). Dies sind einige wichtige Aspekte, die Du jederzeit anwenden kannst.

Recherche & Fragen

Wie bislang auf Google können wir den Assistenten zur Recherche und bei Fragen & Unklarheiten konsultieren. Dies ist ein Beispiel, wie man ein Säulen- und Liniendiagramm in Excel erstellt:

"Wie erstelle ich ein kombiniertes Säulen- und Liniendiagramm in Excel?"

Um ein kombiniertes Säulen- und Liniendiagramm in Excel zu erstellen, folgen Sie diesen Schritten:

  1. Öffnen Sie die Excel-Arbeitsmappe, in der Sie das Diagramm erstellen möchten.
  2. Wählen Sie die Daten aus, die im Diagramm dargestellt werden sollen.
  3. Klicken Sie auf der Registerkarte "Einfügen" im Bereich "Diagramme" auf "Säulen-Liniendiagramm".
  4. Wählen Sie das gewünschte Diagrammformat aus dem Dropdown-Menü aus.
  5. Klicken Sie auf "OK", um das Diagramm zu erstellen.

Sie können das Diagramm anschließend noch anpassen, indem Sie auf die einzelnen Elemente des Diagramms klicken und die Formatierungsoptionen in der Symbolleiste auf der Registerkarte "Format" verwenden. Sie können auch auf die Diagrammachse klicken und die Achsenoptionen in der Symbolleiste auf der Registerkarte "Format" anpassen.

Schreiben / Kodierung von Makros (und weiteren Skripts)

Einer der markantesten Ansätze scheint die Möglichkeit, innert Sekunden ganze Prozeduren (Makros / Skripts) in unterschiedlichen Programmiersprachen verfassen zu lassen. Das nachfolgende Beispiel - etwas simples, um die Länge des Blog-Beitrags nicht zu strapazieren - zeigt, wie eine Schleife (For Each-Loop) durch 10 Einträge iteriert:

"Code a For Each Loop in Excel VBA with 10 Iterations."

Hier ist ein Beispiel für eine For Each-Schleife in Excel VBA mit 10 Iterationen:

Sub ForEachLoopExample()

'Declare variables Dim item As Variant Dim items As Variant

'Set items to be looped through items = Array("item1", "item2", "item3", "item4", "item5", "item6", "item7", "item8", "item9", "item10")

'Loop through items For Each item In items 'Execute code for each item in the loop Debug.Print item Next item

End Sub

In diesem Beispiel wird die Schleife durch ein Array von Zeichenfolgen durchlaufen, aber Sie können auch andere Arten von Objekten oder Variablen verwenden. Die Aktionen, die innerhalb der Schleife ausgeführt werden, können auch angepasst werden. Sie können zum Beispiel Werte in Zellen schreiben oder Diagramme erstellen, während die Schleife durchläuft.

Wissens-Abfragen / Lern-Hilfe

Wir können ChatGPT dazu verwenden, unser eigenes Verständnis abzufragen (quasi Prüfungsfragen zu formulieren). Das liefert weitere Bereiche, die man allenfalls (wiederum mit der Unterstützung von OpenAI?!) weiter erkunden & vertiefen kann. Es lassen sich auch Bücher und einzelne Kapitel zusammenfassen respektive darüber Fragen formulieren. Dies ist ein Beispiel zu 20 generierten Fragen zu Excel VBA:

"Ask 20 Questions in German about Excel VBA."

  1. Was ist der Unterschied zwischen Excel VBA und Excel-Makros?
  2. Wie schreibe ich eine Schleife in Excel VBA?
  3. Wie kann ich in Excel VBA eine Variablen deklarieren und ihr einen Wert zuweisen?
  4. Wie kann ich in Excel VBA eine Funktion erstellen?
  5. Wie kann ich in Excel VBA auf den Inhalt einer Zelle oder eines Bereichs zugreifen?
  6. Wie kann ich in Excel VBA ein Dialogfenster öffnen und auf Benutzereingaben reagieren?
  7. Wie kann ich in Excel VBA eine Bedingung erstellen und entsprechend handeln?
  8. Wie kann ich in Excel VBA auf andere Arbeitsmappen oder andere Anwendungen zugreifen?
  9. Wie kann ich in Excel VBA Fehler abfangen und entsprechend handeln?
  10. Wie kann ich in Excel VBA Events behandeln, z.B. das Öffnen oder Schließen einer Arbeitsmappe?
  11. Wie kann ich in Excel VBA auf die Ribbon-Menüleiste zugreifen und Befehle ausführen?
  12. Wie kann ich in Excel VBA auf andere Objekte in der Arbeitsmappe zugreifen, z.B. auf Diagramme oder Formulare?
  13. Wie kann ich in Excel VBA auf andere Benutzer im Netzwerk zugreifen und ihre Daten abfragen?
  14. Wie kann ich in Excel VBA eine Web-Anfrage senden und auf die Antwort reagieren?
  15. Wie kann ich in Excel VBA Dateien erstellen, lesen und schreiben?
  16. Wie kann ich in Excel VBA benutzerdefinierte Dialoge erstellen und anzeigen?
  17. Wie kann ich in Excel VBA benutzerdefinierte Funktionen für andere Benutzer bereitstellen?
  18. Wie kann ich in Excel VBA benutzerdefinierte Befehle und Menüpunkte erstellen?
  19. Wie kann ich in Excel VBA auf externe Datenquellen wie Datenbanken oder XML-Dateien zugreifen?
  20. Wie kann ich in Excel VBA meine VBA-Code-Module organisieren und verwalten?

Case-Statements in VBA

Roman VBA (Makros) , , ,

Je nach Komplexität Deines Makro-Vorhabens kommen diverse Konditionen zur Geltung. Populär ist die Verwendung von IF-Statements (Wenn-Dann) - oder gar "If-Then-Else" (Wenn-Dann-Sonst). In einem früheren Beitrag (If-Statement mit Platzhalter & Like-Operator (VBA)) wurde ein konkretes Beispiel mit dem weiteren Einsatz von "ElseIf" dargestellt. Sind jedoch mehrere Konditionen oder Fälle bereits im Vorfeld bekannt, kannst Du anstelle dessen eine (bessere) Alternative mit "Case-Statements" (Case = Fall) erarbeiten. In anderen Programmiersprachen wird auch von "Switch" gesprochen.

Hast Du beispielsweise 4 Quartale, in denen unterschiedliche Prozeduren zur Anwendung kommen, verwende alternativ einmal ein "Case-Statement", welches wie folgt aufgebaut ist:

Sub CaseStatement()

Dim str_AktuellesQuartal As String

str_AktuellesQuartal = "Q4"

Select Case str_AktuellesQuartal
Case "Q1"
'Code für Q1...
MsgBox ("Du befindest Dich im ersten Quartal.")

Case "Q2"
'Code für Q2...
MsgBox ("Du befindest Dich im zweiten Quartal.")

Case "Q3"
'Code für Q3...
MsgBox ("Du befindest Dich im dritten Quartal.")

Case "Q4"
'Code für Q4...
MsgBox ("Du befindest Dich im vierten Quartal.")
End Select

End Sub

Der Variableninhalt "str_AktuellesQuartal" steuert also, welcher Teil-Bereich Deines Makros ausgeführt werden soll. Falls der Inhalt auf keinen der definierten Cases zutritt, wird die Verarbeitung nach dem "Select-Statement" weitergeführt. Um diese unerwartete Eingabe-Werte aufzufangen (Ausnahme-Handling), kannst Du zudem "Case Else" einfügen und dort Deine Arbeitsschritte hinterlegen, beispielsweise "MsgBox ("Unerwarteter Eingabe-Wert verwendet!")".

Arbeiten mit numerischen Werten

Wir können anstelle von Text auch Zahlen und Zahlenbereiche angeben. Hier ist ein Beispiel mit Zahlen zwischen 1 bis 20 sowie dem "Case Else", welcher uns über unerwartete Zahlen und Eingaben informiert.

Sub CaseStatementNumeric()

Dim int_MeineZahl As Integer

int_MeineZahl = 10

Select Case int_MeineZahl
Case 1 To 2
MsgBox ("Zahl zwischen 1 und 2")

Case 3 To 9
MsgBox ("Zahl zwischen 3 und 9")

Case 10 To 20
MsgBox ("Zahl zwischen 10 und 20")

Case Else
MsgBox ("Unerwartete Zahl/Wert eingegeben")
End Select

End Sub

Zellen mit Hyperlinks erkennen und hervorheben

Roman Formeln, VBA (Makros) , , , ,

Excel wird für alle erdenklichen Auswertungen und Datenabgleiche verwendet. In diesem Beitrag stelle ich Dir zwei Möglichkeiten vor, um einen Zelleninhalt auf Hyperlinks zu prüfen.

In vorherigen Veröffentlichungen haben wir mit Formeln wie =ZELLE() oder über Wege mit =ZELLE.ZUORDNEN() Inhalte von Zellen interpretiert. Etwas ähnliches wurde mit bedingten Formatierungen aufgezeigt (z.B. zur Einfärbung einer Zeile, basierend auf deren Inhalte).

Ein Hyperlink kann auf zwei Arten in einer Excel-Tabelle hinterlegt werden: Via der Formel =HYPERLINK() oder durch Eingabe einer Websiten-URL. Den ersten Fall könnte mit der Formel "=ISTFORMEL()" überprüft werden und würde "WAHR" retournieren. Das könnte je nach Datengrundlage für den Auswertungszweck bereits ausreichen. Falls es sich jedoch um einen einfachen Eintrag handelt oder die Datei andere Formeln und Angaben beinhaltet, reicht dieser Ansatz nicht aus. Zur Orientierung habe ich hier eine kleine Beispieltabelle mit unterschiedlichen Fällen:

ZellenMitHyperlinks

Die Spalte A beinhaltet diverse Varianten:

  • Reguläre Texte (Titel), Zellen A2, A5 und A8;
  • Links auf Websiten (ohne Formel "HYPERLINK"!), Zellen A3, A6 und A9;
  • Mittels Formel "=HYPERLINK()" hinterlegter Link, Zelle A4;
  • fälschlicherweise als Link formatierter Text, Zelle A7.

Auslesen von Hyperlinks via Makro (VBA)

Um die eingetragenen Hyperlinks zu identifizieren, benötigen wir Makrounterstützung. In einer For-Each-Schleife gehen wir durch jede Zelle durch; ohne die Tabelle dynamisch (d.h. bei mehr oder weniger Zeileninhalten direkt zu reagieren), setzen wir:

For i = 2 To 9
[Weiterer Code folgt sogleich...]
Next

Damit durchläuft unsere Prozedur die Zeilen 2 bis 9. Innerhalb der For-Each-Schleife prüfen wir, ob (und wie viele) Hyperlinks die aktuelle Zelle der Spalte A (Spalten-Nummer 1) beinhaltet. Dazu verwenden wir:

For i = 2 To 9

If Cells(i, 1).Hyperlinks.Count = 1 Then
Cells(i, 3) = "LINK!"
End If

Next

Sollte also ein Hyperlink in der entsprechenden Zelle eingetragen worden sein, trägt das Makro in Spalte C den Hinweis "LINK!" ein. Der "Count" müsste im Falle eines Links immer 1 ergeben, weshalb die If-Prüfung das gewünschte Resultat liefert. Ich kann mir keinen Fall vorstellen, bei dem mehrere Hyperlinks in der Zelle enthalten sein sollten; ansonsten wäre die Prüfung "[...].Hyperlinks.Count >= 1 Then" sicherer.