Code-Schnipsel (VBA)

Gleich zu Beginn: Hier geht es ausschließlich um VBA, um Makros. Und es sind fast immer recht kleine, nur wenige Zeilen umfassende Programme, die wir Ihnen hier präsentieren. Gestandenen Usern und erst recht Profis wird das meiste bekannt sein, aber man kann aber nie wissen …

Das Ganze soll keine Anhäufung von Lösungen im Mini-Format sein. Erklärungen zu den Code sind nicht ein Teil dieses Angebots. Der Code ist in den meisten Fällen nicht kommentiert, wenn doch, dann sehr knapp. Das ist auch gewollt so, denn wen Sie diese Code-Schnipsel einsetzen wollen und werden, dann müssen Sie auch verstehen, was da geschrieben steht und was da abläuft.

Andere Bereiche dieser Site haben zum Code eine gute Beschreibung oder zumindest eine ausreichende Kommentierung. Dort ist auch unser Anliegen, Wissen zu vermitteln und zum Weiterlernen anzuspornen. Zum hier aufgezeigten Code gibt es gewiss genügend Quellen im Internet, die Ihnen im Einzelfall helfen können.

Die folgende Tabelle ist so aufgebaut: In der linken Spalte sehen Sie die Verknüpfung zum Beitrag mit einem möglichst kurzem Namen, mittig steht eine knappe Beschreibung des Inhaltes und rechts ist das Datum der Veröffentlichung oder der letzten bedeutenden Aktualisierung vermerkt. In der Titelzeile der Tabelle können Sie die Sortiermöglichkeiten nutzen. – Da es im Laufe der Zeit einige mehr Einträge geworden sind und die Tabelle doch nicht mehr so ganz übersichtlich ist, sind unterhalb der Haupt-Tabelle (mit allen Einträgen) noch weitere Tabellen erstellt worden, wo die meisten Links auch noch  themenbezogen aufgelistet sind. Hier werden Sie vielleicht schneller fündig.

▲ nach oben …

Gesamt-Übersicht

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
Enthält die Zelle eine Formel?Eigene Funktion, die als Wahrheitswert zurück gibt, ob die Zelle eine Formel enthält oder nicht2012-04-0202.04.2012
VBA: CSV-Export mit SemikolonPer VBA das Semikolon als Trennzeichen für *.csv verwenden2013-04-0202.04.2013
Kommentare gleich großKommentare auf gleiche Größe setzen2015-04-0202.04.2015
Nur sichtbare Zellen kopierenIn einem gefilterten Bereich sollen nur die sichtbaren Zellen in die Nachbarspalte kopiert werden.2011-08-0303.08.2011
Erste freie Zelle nach Spalte nIn einer definierten Zeile die erste freie Zelle nach einer angegebenen Spalte finden. Danach beispielsweise etwas hinein schreiben.2014-02-0404.02.2014
HEUTE() bleibt heuteBei Änderung: Aktuelles Datum per Code in eine Zelle einfügen2014-07-0404.07.2014
Alle leeren Zellen ansprechenPer VBA alle leeren Zellen eines Bereichs ansprechen2015-01-0707.01.2015
Wunsch – Brutto/NettoBrutto- oder Netto "Wunschbetrag" in Abhängigkeit berechnen.2014-03-0707.03.2014
Zähler oder Nenner ausgebenDividend oder Divisor einer Funktion als Rückgabe2015-02-0808.02.2015
Autor in Mappe festschreibenBei jedem öffnen einer Mappe wird automatisch der im Code hinterlegte Autor in die Eigenschaften des Workbooks geschrieben.2011-04-0808.04.2011
Makro → Shortcut zuweisenEinem bestehenden Makro eine Tastenkombination zuweisen2014-04-0808.04.2014
Wert statt FormelPer VBA Formeln in Werte umwandeln2014-04-0808.04.2014
Spaltennummer ↔ Spaltenbezeichnung, VBAColumn("A")<->Column(1), jeweils den anderen Wert berechnen2015-03-1010.03.2015
ULTIMO()-FunktionBerechnung des Monatsendes, auch für ältere Excel-Versionen2013-06-1111.06.2013
Leere Zellen → Zeilen aus/einblendenIn einem definierten Bereich bei leerer Zelle die Zeile aus bzw. einblenden2013-08-1111.08.2013
*.csv-Export (Bereiche)Bestimmte Bereiche eines Arbeitsblattes als *.csv exportieren.2013-01-1414.01.2013
Zahl aus Text holenEine sehr einfache Funktion, die aus einem Text die erste Zahl ohne Nachkommastellen herauszieht und zurück gibt. Eher eine Basis zum lernen als für den täglichen Einsatz.2008-08-1515.08.2008
Druck-Seite ermittelnSelbst definierte Funktion (UDF), um die Druckseite einer bestimmten Zelle zu ermitteln.2013-06-1717.06.2013
Feiertage berechnen (VBA)Mit einer UDF (selbst definierten Funktion) berechnen, ob ein übergebenes Datum einen Feiertag darstellt.2014-02-2020.02.2014
Enthält die Zelle ein Datum?Selbst definierte Funktion um festzustellen, ob die Zelle ein Datum enthält oder nicht.2014-02-2020.02.2014
ComboBox mit Monatsnamen füllenEin Kombinationsfeld mit 13 Monaten (MMMM JJJJ) füllen.2014-02-2020.02.2014
Timestamp (Kurzversion)Zeitstempel einfügen bei Änderung in einer Spalte 2015-02-2020.02.2015
Letzte Zeile/SpalteLetzte Zeile|Spalte einer bestimmten Spalte|Zeile einer Tabelle als numerischen Wert ausgeben2010-01-2121.01.2010
Existiert dieses Tabellenbatt?1 Sub und 1 Function zur Prüfung, ob es ein bestimmtes Tabellenblatt (Name) in diesem Workbook gibt2014-03-2323.03.2014
Adresse der ersten Zelle in MarkierungDie Adresse der ersten Zelle einer Markierung als String2015-03-2323.03.2015
Speed-Test VBAGeschwindigkeit ist keine Hexerei! 3 Möglichkeiten, um zum gleichen Ziel zu gelangen.2014-03-2525.03.2014
Wochentag einer KalenderwocheDen Wochentag einer gegebenen Kalenderwoche berechnen2015-02-2626.02.2015
#Fehler! per VBA abfangenFehlermeldungen in einer Tabelle per VBA finden und entsprechend reagieren.2014-03-2727.03.2014
Mehrzeiler in 1 Zelle → aufteilenMehrere Zeilen in 1 Zelle in mehrere Zellen aufteilen2014-05-2727.05.2014
Nur Zahlen zulassenIn einer Textbox bur Ziffern oder Zahlen als Eingabe zulassen.2014-03-2828.03.2014
UDF: Aktuelle Zelladresse nutzenAdresse, Zeile oder Spalte der Zelle mit einer UDF bestimmen.2015-07-2525.07.2015
UserForm zentriertEine UserForm immer zentriert im aktiven Fenster öffnen2015-11-2222.11.2015
Anzahl Zeichen in BereichEinzelne Ziffern / Zeichen in einem Bereich zählen2015-11-2525.11.2015
Kalenderwoche von..bisAusgabe eines Zeitbereichs der Kalenderwoche eines Datums2015-12-0404.12.2015
Kalenderwoche nach ISO bzw. DINKalenderwoche nach DIN/ISO für alle Excel-Versionen2015-12-0505.12.2015
Zuletzt gespeicherte Datei öffnenDie zuletzt gespeicherte Excel-Datei speichern2015-12-0606.12.2015
Nur Werk- bzw. ArbeitstageNur Werk- bzw. Arbeitstage (ohne bzw. mit Feiertage) in das aktuelle Blatt eintragen2016-02-2525.02.2016
Zusammenhängenden Bereich auswählenExcel erkennt zusammen hängende Bereiche und kann hier verschiedene Selektionen vornehmen2016-02-2626.02.2016
Integer-Zahl aus String extrahierenGanzzahl aus einem Text extrahieren, rechts, links, mittig2016-03-0202.03.2016
VBA-Mappe ohne Makro speichernArbeitsmappe, die VBA-Code enthält, ohne den Code speichern2016-05-2222.05.2016
Nachkommastellen berechnenNachkommastellen einer Zahl oder Ziffernfolge berechnen2016-07-1010.07.2016
Nur die neuesten Zeilen anzeigenNach Neueingabe einer Zeile in einer Tabelle die oberste sichtbare Datenzeile ausblenden2016-07-2323.07.2016
Zu definierter Zelle scrollen/springenNach Buttonklick oder Aktivierung des Blattes Sprung zu Zelle_##2016-08-1515.08.2016
Ziffernfolge bestimmter Länge extrahierenZiffernfolge einer definierten Länge aus einem Text extrahieren (Funktion)2016-08-1212.08.2016
CSV-Export mit AnführungsstrichenEine Tabelle als *.csv (oder *.txt) so exportieren, dass jedes Feld in Anführungsstriche eingefasst ist.2016-10-1818.10.2016
Text-Filenamen in einen Link wandelnEine Liste der Filenamen eines (Unter)-Ordners in Hyperlinks umwandeln2016-10-1919.10.2016
Hat die Zelle einen Kommentar?Selbst definierte Funktion (UDF), ob eine Zelle einen Kommentar enthält oder nicht.2016-12-0505.12.2016

▲ nach oben …

Datum und Zeit (Auszug)

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
HEUTE() bleibt heuteBei Änderung: Aktuelles Datum per Code in eine Zelle einfügen2014-07-0404.07.2014
Enthält die Zelle ein Datum?Selbst definierte Funktion um festzustellen, ob die Zelle ein Datum enthält oder nicht.2014-02-1818.02.2014
Feiertage berechnen (VBA)Mit einer UDF (selbst definierten Funktion) berechnen, ob ein übergebenes Datum einen Feiertag darstellt.2014-02-2121.02.2014
Timestamp (Kurzversion)Zeitstempel einfügen bei Änderung in einer Spalte2015-02-2020.02.2015
Wochentag einer KalenderwocheDen Wochentag einer gegebenen Kalenderwoche berechnen2015-02-2626.02.2015
UDF: aktuelle Zelladresse nutzen>Adresse, Zeile oder Spalte der Zelle mit einer UDF bestimmen.2015-07-2525.07.2015
Zusammenhängenden Bereich auswählenExcel erkennt zusammen hängende Bereiche und kann hier verschiedene Selektionen vornehmen2016-02-2626.02.2016

▲ nach oben …

Tabelle und Zelle (Auszug)

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
Letzte Zeile/SpalteLetzte Zeile|Spalte einer bestimmten Spalte|Zeile einer Tabelle als numerischen Wert ausgeben2010-01-2121.01.2010
Autor in Mappe festschreibenBei jedem öffnen einer Mappe wird automatisch der im Code hinterlegte Autor in die Eigenschaften des Workbooks geschrieben.2011-04-0808.04.2011
ULTIMO()-FunktionBerechnung des Monatsendes, auch für ältere Excel-Versionen2013-06-1111.06.2013
Druck-Seite ermittelnSelbst definierte Funktion (UDF), um die Druckseite einer bestimmten Zelle zu ermitteln.2013-06-1717.06.2013
Leere Zellen → Zeilen aus/einblendenIn einem definierten Bereich bei leerer Zelle die Zeile aus bzw. einblenden2013-08-1111.08.2013
Erste freie Zelle nach Spalte nIn einer definierten Zeile die erste freie Zelle nach einer angegebenen Spalte finden. Danach beispielsweise etwas hinein schreiben.2014-02-0404.02.2014
Existiert dieses Tabellenbatt?1 Sub und 1 Function zur Prüfung, ob es ein bestimmtes Tabellenblatt (Name) in diesem Workbook gibt2014-03-2323.03.2014
Wert statt FormelPer VBA Formeln in Werte umwandeln2014-04-0808.04.2014
Mehrzeiler in 1 Zelle → aufteilenMehrere Zeilen in 1 Zelle in mehrere Zellen aufteilen2014-05-2727.05.2014
Alle leeren Zellen ansprechenPer VBA alle leeren Zellen eines Bereichs ansprechen2015-01-0707.01.2015
Spaltennummer ↔ Spaltenbezeichnung, VBAColumn("A")<->Column(1), jeweils den anderen Wert berechnen2015-03-1010.03.2015
Adresse der ersten Zelle in MarkierungDie Adresse der ersten Zelle einer Markierung als String2015-03-2323.03.2015
Kommentare gleich großKommentare auf gleiche Größe setzen2015-04-0202.04.2015
Kalenderwoche von..bisAusgabe eines Zeitbereichs der Kalenderwoche eines Datums2015-12-0404.12.2015
Kalenderwoche nach ISO bzw. DINKalenderwoche nach DIN/ISO in allen Excel-Versioen berechnen2015-12-0505.12.2015
Nur Werk- bzw. ArbeitstageNur Werk- bzw. Arbeitstage (ohne bzw. mit Feiertage) in das aktuelle Blatt eintragen2016-02-2525.02.2016
Nur die neuesten Zeilen anzeigenNach Neueingabe einer Zeile in einer Tabelle die oberste sichtbare Datenzeile ausblenden2016-07-2323.07.2016
"Zu definierter Zelle scrollen/springen">Nach Buttonklick oder Aktivierung des Blattes Sprung zu Zelle_##2016-08-1515.08.2016
CSV-Export mit AnführungsstrichenEine Tabelle als *.csv (oder *.txt) so exportieren, dass jedes Feld in Anführungsstriche eingefasst ist.2016-10-1818.10.2016
Hat die Zelle einen Kommentar?Selbst definierte Funktion (UDF), ob eine Zelle einen Kommentar enthält oder nicht.2016-12-0505.12.2016

▲ nach oben …

Kalkulation, Zahlen, … (Auszug)

Wunsch – Brutto/NettoBrutto- oder Netto "Wunschbetrag" in Abhängigkeit berechnen.07.03.2014
Zähler oder Nenner ausgebenDividend oder Divisor einer Funktion als Rückgabe08.02.2015
Zahl aus Text holenEine sehr einfache Funktion, die aus einem Text die erste Zahl ohne Nachkommastellen herauszieht und zurück gibt. Eher eine Basis zum lernen als für den täglichen Einsatz.15.08.2008
Nur Zahlen zulassenIn einer Textbox bur Ziffern oder Zahlen als Eingabe zulassen.28.03.2014
Wert statt FormelPer VBA Formeln in Werte umwandeln08.04.2014
Anzahl Zeichen in BereichEinzelne Ziffern / Zeichen in einem Bereich zählen2015-11-2525.11.2015
Integer-Zahl aus String extrahierenGanzzahl aus einem Text extrahieren, rechts, links, mittig2016-03-0202.03.2016
Ziffernfolge bestimmter Länge extrahierenZiffernfolge einer definierten Länge aus einem Text extrahieren (Funktion)2016-08-1212.08.2016

▲ nach oben …

VBA, Makro (Auszug)

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
Zahl aus Text holenEine sehr einfache Funktion, die aus einem Text die erste Zahl ohne Nachkommastellen herauszieht und zurück gibt. Eher eine Basis zum lernen als für den täglichen Einsatz.2008-08-1515.08.2008
Mehrzeiler in 1 Zelle → aufteilenMehrere Zeilen in 1 Zelle in mehrere Zellen aufteilen2014-05-2727.05.2014
Nur Zahlen zulassenIn einer Textbox bur Ziffern oder Zahlen als Eingabe zulassen.2014-03-2828.03.2014
VBA-Mappe ohne Makro speichernArbeitsmappe, die VBA-Code enthält, ohne den Code speichern2016-05-2222.05.2016

▲ nach oben …

Daten-Import, -Export,  Copy&Paste (Auszug)

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
VBA: CSV-Export mit SemikolonPer VBA das Semikolon als Trennzeichen für *.csv verwenden2013-04-0202.04.2013
Nur sichtbare Zellen kopierenIn einem gefilterten Bereich sollen nur die sichtbaren Zellen in die Nachbarspalte kopiert werden.2011-08-0303.08.2011
*.csv-Export (Bereiche)Bestimmte Bereiche eines Arbeitsblattes als *.csv exportieren.2013-01-0414.01.2013
CSV-Export mit AnführungsstrichenEine Tabelle als *.csv (oder *.txt) so exportieren, dass jedes Feld in Anführungsstriche eingefasst ist.2016-10-1818.10.2016

▲ nach oben …

Diverses (Auszug)

Link zum BeitragHinweise zu den verlinkten BeiträgenDatum
Enthält die Zelle eine Formel?Eigene Funktion, die als Wahrheitswert zurück gibt, ob die Zelle eine Formel enthält oder nicht2012-04-0202.04.2012
Autor in Mappe festschreibenBei jedem öffnen einer Mappe wird automatisch der im Code hinterlegte Autor in die Eigenschaften des Workbooks geschrieben.2011-04-0808.04.2011
Druck-Seite ermittelnSelbst definierte Funktion (UDF), um die Druckseite einer bestimmten Zelle zu ermitteln.2013-06-1717.06.2013
Timestamp (Kurzversion)Zeitstempel einfügen bei Änderung in einer Spalte2015-02-2020.02.2015
Kommentare gleich großKommentare auf gleiche Größe setzen2015-04-0202.04.2015
UserForm zentriertEine UserForm immer zentriert im aktiven Fenster öffnen2015-11-2222.11.2015
Zuletzt gespeicherte Datei öffnenDie zuletzt gespeicherte Excel-Datei speichern2015-12-0606.12.2015
Text-Filenamen in einen Link wandelnEine Liste der Filenamen eines (Unter)-Ordners in Hyperlinks umwandeln2016-10-19/span>19.10.2016

Und noch ein letzter Hinweis: Ergänzungen und/oder Änderungen, die hier bei den Code-Schnipseln vorgenommen werden, vermerken wir nicht im Chrono-Blog. Hin und wieder wird dort aber darauf hingewiesen, dass sich ein Blick in diesen Teil des Blogs lohnt, weil der Umfang gestiegen ist.  😎 

▲ nach oben …

Schreibe einen Kommentar