Allgemein
Bilder einfügen
blinkender Zellinhalt
Counter
Datei schließen
Dateikopie
Dateiverwaltung
Datensätze umschreiben
Datum / Zeit
DropDown-Listenfeld
Drucken
Ersatz bedingte Formatierung
Füllfarbe
Kontextmenü
Markieren
nur mit Makros
Sound
Stoppuhr
Symbolleiste Formular
Symbolleiste vor 2007
Symbolleiste 2007
UserForm
ohne VBA Beispiele
fremde Dateien
Hinweise zu Excel
ab Version 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
letzte Bearbeitung 28.07.10
VBA Beispiele Seite Allgemein
Die Arbeitsmappen wurden unter
Betriebssystem XP SP2 mit Excelversion 2003 SP3 sowie unter Betriebssystem Vista
Ultimate SP 2 und Windows 7 mit Excelversion 2007 SP2 getestet.
Jedem eingegebenen Wert wird automatisch “00“ vorangestellt.
Codevorschau
Änderung:
01. Beschreibung geändert
02. VBA freie Lösung ergänzt
03. 19.11.06 Eingaben von Zahlen bleiben als Zahl erhalten
04. 25.04.07 Code überarbeitet
05. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
06. 12.05.07 Beschriftung CommandButton geändert
In Abhängigkeit vom Zahlenwert in einer Zelle wird ein Shape gefärbt. Die Aktion erfolgt mittels CommandButton.
Beispiel 01: Shapes waagerecht
Beispiel 02: Shapes senkrecht
Änderung:
01.
Farbänderung erfolgt über einen CommandButton
02. Beschriftung des CommandButton wird je nach Zustand geändert
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 12.05.07 Code überarbeitet für Beispiel Senkrecht, Auswertung
Autofilter und Gruppierung trotzt Extras, Schutz, Blatt schützen...
Codevorschau
Änderung:
01. 02.12.06 Code überarbeitet
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt, ohne Autofilter (über Überprüfen, Blatt schützen einstellbar)
Die Arbeitsmappe wird bei jeder Eingabe gespeichert Erfolgt keine Eingabe wird die Arbeitsmappe zu dem im Code festgelegten Zeitabstand gespeichert.
Die Arbeitsmappe wird zu dem im Code eingestellten Zeitabstand gespeichert, im Beispiel 10 Minuten.
Die Tabelle wird sortiert, wenn in einer der Spalten mit dem Sortierkriterium ein Wert eingegeben/verändert wird.
Beispiel 01: die Tabelle wird automatisch nach 1 Sortierkriterium sortiert, Tabelle mit Überschrift
Beispiel 02: die Tabelle wird automatisch nach 2 Sortierkriterien sortiert, Tabelle mit Überschrift
Beispiel 03: ein Bereich der Tabelle wird automatisch nach 2 Sortierkriterien sortiert, Tabelle ohne Überschrift
Beispiel 04: ein Bereich der Tabelle wird automatisch nach einer Zeile sortiert
Änderung:
01.
Beschreibung für Tabelle2 geändert und Code angepasst
02. Erklärung präzisiert
03. Code geändert, ActiveSheet.UsedRange eingearbeitet
04. Begrenzung Eingabebereich aufgehoben
05. 02.12.06 Beispiel 1 und 2 mit Überschrift, Beispiel 3 ohne Überschrift
06. 02.12.06 Beschreibung in Tabelle geändert
07. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
08. 11.04.08 Beispiel 4 ergänzt
Benutzername mittels VBA ermitteln.
Beispiel 01: Name laut Eintrag in Excel
Beispiel 02: Name laut Anmeldung im Netzt für alle Betriebssysteme, ein Beispiel von Jürgen Wenzel
Beispiel 03: Name laut Anmeldung im Netzt für Betriebssystem NT und ab 2000
Beispiel 04: Prüfen ob Benutzer Administratorrechte hat, ein Beispiel von K.Rola
Codevorschau
Änderung:
01. Ermittlung mittels Environ ergänzt für Betriebssystem NT und ab 2000
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
Unbenutzten Bereich aller Tabellen der Arbeitsmappe aus-/einblenden
Änderung:
01. Kommentare im Code ergänzt
02. Fehlerbehandlung falls alle Zeilen oder Spalten benutzt
03. nur noch ein Code zum Aus- und Einblenden
04. Fehler beseitigt bei mehrmaligem Aus- und Einblenden
05. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
06. 14.05.07 Spalten und Zeilenanzahl für alle Versionen angepasst
Schutz für einen bestimmten Bereich:
Beispiel 01: keine Auswahl im Bereich möglich, automatischer Sprung des Cursors in eine Zelle außerhalb des Bereichs
Beispiel 02: bei Auswahl einer Zelle in einem definierten Bereich wird in Zeile 8 gesprungen
Beispiel 03: bei erneuter Wahl einer bereits belegten Zelle im Bereich erfolgt automatischer Sprung des Cursors zur
nächsten freien Zelle im definierten Bereich
Beispiel 04: bei erneuter Wahl einer bereits belegten Zelle im Bereich erfolgt automatischer Sprung des Cursors zur Zelle A1
Beispiel 05: Auswahl einer Zelle im Bereich nur mittels Passwortabfrage
Änderung:
01. in der Tabelle mit Passwortabfrage kann durch Doppelklick die Prüfung abgeschaltet werden
02. mehrmaliger Aufruf der UserForm bei Passwortabfrage abgeschaltet, bei Mehrfachselektion
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 14.05.07 Kommentare im Code ergänzt
Umwandeln von Zellbezügen
Beispiel 01: Spalten- und Zeilenbezeichnung absolut, ein Beispiel von L.Vira
Beispiel 02: Spalten- und Zeilenbezeichnung relativ
Beispiel 03: Spaltenbezeichnung absolut, Zeilenbezeichnung relativ
Beispiel 04: Spaltenbezeichnung relativ, Zeilenbezeichnung absolut
Änderung:
01. Kommentare in der Tabelle ergänzt
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 14.05.07 Kommentare im Code ergänzt
Von der aktuellen Tabelle wird eine Kopie erstellt und nach Spalte A und B sortiert. Es werden alle Datensätze gelöscht, die mehr als einmal vorhanden sind.
Bei Eingabe von Zahlen in einem im Code festgelegten Bereich wird in der Zelle rechts daneben die Summe gebildet und die eingegebene Zahl wieder gelöscht.
Änderung:
01. 28.12.06 nicht numerische Werte werden nicht berücksichtigt
02. 28.12.06 Beschreibung in der Tabelle geändert
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 15.05.07 Code überarbeitet
05. 15.05.07 Kommentare im Code ergänzt
06. 11.12.08 Codezeile Reaktion auf Zelländerung anders platziert
Dieses Beispiel stellt einen Code für Version 97 zur Verfügung, der das Problem behebt, dass Fixierung und DropDown-Listenfeld nicht gemeinsam in einer Tabelle angewandt werden können. Der Code läuft auch in höheren Versionen, ist dort jedoch nicht erforderlich
Änderung:
01. 04.08.09 Code überarbeitet
02. 09.01.10 Feststellung DropDown-Listenfeld geändert
Keine Auswahl einer Zelle mit Formel möglich:
Beispiel 01: automatischer Sprung des Cursors in eine Zelle ohne Formel
Beispiel 02: nach Passwortabfrage mittels UserForm kann die Formel geändert werden
Beispiel 03: bei Auswahl einer Zelle mit Formel wird die zuletzt ausgewählte Zelle erneut angewählt
Änderung:
01. in der Tabelle mit Passwortabfrage kann durch Doppelklick die Prüfung abgeschaltet werden
02. bei Selektion von mehreren Zellen wird die UserForm zur Passworteingabe nur einmal aufgerufen
03. 28.04.06 Beispiel 2: bei Eingabe des richtigen Passwortes erfolgt keine erneute Passwortabfrage
04. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
05. 02.05.07 Hinweis zum Schutz des VBA Projektes bei Beispiel 2 ergänzt
06. 15.05.07 Kommentare im Code ergänzt
07. 16.08.09 Auswahl bei Zelle mit Formel überarbeitet
In allen Tabellen werden im benutzen Bereich die Zellen mit im Code festgelegter Schutzeigenschaft markiert.
Beispiel 01: gesperrte Zellen werden markiert
Beispiel 02: nicht gesperrte Zellen werden markiert und können in der gleichen Sitzung wieder zurückgestellt werden
Beispiel 03: Zellen mit der Eigenschaft ausgeblendet (Formel) werden markiert und
können in der gleichen Sitzung wieder zurückgestellt werden
Änderung:
01. 10.10.06 nicht gesperrte Zellen markieren und Farbe in der gleichen Sitzung mittels Makro zurückstellen
02. 28.12.06 Beschreibung in der Tabelle geändert
03. 28.12.06 Kommentare im Code ergänzt
04. 29.12.06 Beispiel 3 ergänzt
05. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
06. 16.05.07 Kommentare im Code geändert
07. 16.05.07 Code für Version 2007 angepasst
Umwandeln von Groß-/Kleinbuchstaben
Beispiel 01: bei Eingaben in einem definierten Bereich wird der erste Buchstabe in groß, Rest in klein umgewandelt
Beispiel 02: bei Eingaben in Spalte C und D wird alles in groß umgewandelt
Beispiel 03: bei Eingaben in einem definierten Bereich wird alles in groß umgewandelt
Beispiel 04: vorhandene Eingaben im benutzten Bereich werden umgewandelt, erster Buchstabe groß, Rest klein
Beispiel 05: vorhandene Eingaben im definierten Bereich werden umgewandelt in groß
Beispiel 06: vorhandene Eingaben in Spalte A in allen Tabellen werden umgewandelt in groß
Beispiel 07: vorhandene Eingaben im benutzten Bereich werden umgewandelt in klein
Beispiel 08: vorhandene Eingaben im selektierten Bereich werden umgewandelt in klein
Beispiel 09: bei vorhanden Eingaben in Spalte B werden alle Leerstellen vor und nach der Zeichenkette entfernt
Beispiel 10: die Schreibweise der Buchstaben werden in festgelegter Reihenfolge geändert
Beispiel 11: die Schreibweise der Buchstaben werden in festgelegter Reihenfolge geändert, verbesserte Variante von Martin Beck
Beispiel 12: alle Wörter beginnen mit einem Großbuchstaben, das letzte Wort ist in Großbuchstaben
Beispiel 13: alle Wörter beginnen mit einem Großbuchstaben, das erste Wort ist in Großbuchstaben
Änderung:
01. Name der Arbeitsmappe geändert
02. Wörter in bestimmter Reihenfolge ändern
03. Beispiel 10 korrigiert
04. 25.06.06 Kommentare in der Tabelle geändert
05. 17.02.07 Beispiel 06 ergänzt
06. 18.02.07 Code Tabelle1 und Tabelle3 überarbeitet
07. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
08. 16.05.07 Kommentare im Code ergänzt
09. 17.11.07 keine Umwandlung numerischer Wertet
10. 18.12.09 Beispiel 12 und 13 ergänzt
Mittels Makro wird die Häufigkeit berechnet, wie oft eine ganzzahlige Zahl zwischen 1 und 9 in aufeinander folgenden Zellen vorkommt.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
02. 18.05.07 Code überarbeitet
03. 18.05.07 Kommentare im Code ergänzt
Beispiele als Ansatz für einen Fragebogen
Beispiel 01: bei Doppelklick wird im Bereich B:G mittels zweier diagonaler Rahmenlinien ein Kreuz in die Zelle gezeichnet
Beispiel 02: bei Doppelklick wird im Bereich A:C und D:F mittels zweier diagonaler Rahmenlinien
je ein Kreuz in die Zelle gezeichnet
Beispiel 03: Haken in Zelle durch Schriftart, Beispiel von Timerunner
Beispiel 04: im definierten Bereich wird mittels Doppelklick ein X eingetragen
Beispiel 05: bei Doppelklick wird im definierten Bereich mittels zweier diagonaler Rahmenlinien
ein Kreuz in die Zelle gezeichnet bzw. entfernt
Beispiel 06: Haken in Zelle und je Wertigkeit eine Auswertung
Änderung:
01. Kommentare im Code ergänzt und kleine Korrekturen
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 18.05.07 Beschreibung in der Tabelle geändert
04. 18.05.07 Kommentare im Code ergänzt
05. 06.08.09 Code überarbeitet
Nach Öffnen der Arbeitsmappe wird eine Zeichenfolge als Laufschrift in einer Zelle als Endlosschleife angezeigt.
Änderung:
01. Kommentar in Arbeitsmappe ergänzt
02. 25.04.07 Const DaZeit als Date definiert, Blinkfrequenz
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 17.05.07 Kommentare im Code geändert
Leere Zelle in Spalte A finden.
Beispiel 01: erste leere Zelle, erste leere Zelle nach letzter gefüllter Zelle
Beispiel 02: Ermittlung mittels Funktion von Josef Ehrensberger auch für ausgeblendete Zeilen
Beispiel 3: Ermittlung mittels Funktion von Stefan Giehrl auch für ausgeblendete Zeilen
Änderung:
01. 04.02.07 Beispiel 2 und 3 ergänzt
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 18.05.07 Kommentare im Code ergänzt für Beispiel 1
Lottoauswertung mittels bedingter Formatierung.
Dateivorschau
Änderung:
01. 15.06.06 Kommentare in Tabelle geändert
02. 23.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 29.05.09 Zahlen und Gewinnquote aus Internet abrufen, Ergänzung Ralf_P Herber.de
04. 29.05.10 Fehler in Version kleiner 2007 beseitigt
05. 31.05.10 Code zum aktualisieren der WEB Abfrage ergänzt
06. 06.06.10 Fehler bei Zusatzzahl beseitigt
07. 03.07.10 Internetseite für Abfrage geändert
08. 03.07.10 Formel für Auswertung geändert
In der aktuellen Tabelle werden Zellinhalte auβer Formeln gelöscht.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
02. 18.05.07 Kommentare im Code ergänzt
Modul1 einschl. Code wird nach Ausführung des Makros gelöscht.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
02. 18.05.07 Kommentare im Code ergänzt
03. 04.08.09 Code überarbeitet
Alle definierten Namen der Arbeitsmappe werden gelöscht.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
02. 18.05.07 Kommentare im Code ergänzt
Zeitvergleich für das Eintragen von 100 Werten ohne Select und mit Select.
Beispiel 01: ohne Select
Beispiel 02: mit Select
Beispiel 03: mit Select und Bildschirmaktualisierung aus
Beispiel 04: ohne Select und Bildschirmaktualisierung aus
Änderung:
01. Anzeigemodus in UserForm geändert
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 26.05.07 Kommentare im Code ergänzt
04. 02.02.08 Zeitermittlung mittels API-Funktion
05. 02.02.08 Beispiel 4 ergänzt
06. 28.07.10 Link zu ohne Select ergänzt
Bei Öffnen der Arbeitsmappe wird eine Sicherheitskopie angelegt.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007ergänzt
Tabellen nach im Code festgelegten Kriterien sortieren.
Änderung:
01. sortieren nach letztem Wort in der Tabellenbezeichnung (ab Version 2000)
02. nur markierte Tabellen sortieren
03. Kommentare in der Tabelle ergänzt
04. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
05. 29.05.07 Kommentare im Code ergänzt
Summe eingeblendet
Version 97 bis 2002
Summe über einen Bereich mittels benutzerdefinierter Funktion.
Beispiel 01: eingeblendete Zeilen
Beispiel 02: eingeblendete Spalten
Änderung:
01. Funktion TEILERGEBNIS() ab Version 2003 ergänzt
02. Berechnung auch bei Veränderung der Anzahl der ausgeblendeten Zeilen (Versionen kleiner 2003)
03. 09.12.06 Funktion für Spalte
04. 29.05.07 Kommentare in der Tabelle überarbeitet
05. 29.05.07 Kommentare im Code ergänzt
Einige Beispiele zum Vergleich von Spalten:
Beispiel 01: 2 Spalten in unterschiedlichen Tabellen werden verglichen und gleiche Werte in einer Tabelle gekennzeichnet
Beispiel 02: 2 Spalten in einer Tabelle werden verglichen und gekennzeichnet
Beispiel 03: 2 Spalten in unterschiedlichen Tabellen werden verglichen und bei Übereinstimmung Zeile kopiert
Beispiel 04: 2 Bereiche einer Tabelle werden verglichen und gleiche Werte im Bereich1 markiert, Leerzellen werden
nicht gekennzeichnet
Beispiel 05: Spalte A nach Spalte C kopieren. Spalte A und B werden zeilenweise verglichen.
Unterschiedliche Werte in Spalte A und C werden gekennzeichnet.
Beispiel 06: 2 Spalten in unterschiedlichen Tabellen werden verglichen und bei Übereinstimmung
betreffende Zeile kopiert, Realisierung mittels VBA-Funktion Find
Beispiel 07: je 1 Spalte in 2 unterschiedlichen Arbeitsmappen werden vergleichen,
bei gleich wird ein Wert aus einer anderen Spalte der selben Zeile übertragen
Beispiel 08:
Beispiel 2 angepasst von Klaus-Dieter Oppermann zur Verarbeitung von großen Datenmengen, Array
Beispiel 09: wie Beispiel 8, das Ergebnis wird in einer anderen Tabelle abgelegt
Beispiel 10: im Ergebnis eines Vergleiches von zwei Arbeitsmappen werden Datensätze in eine neue
Arbeitsmappe kopiert. Als Vergleichskriterium wird Spalte D verwendet.
Beispiel 11: in 2 Tabellen wird die selbe Spalte verglichen und je nach Ergebnis erfolgt eine
Markierung und es werden Teilbereiche kopiert
Beispiel 12: 2 Bereiche einer Tabelle werden verglichen und alle Werte markiert die im anderem Bereich nicht vorkommen
Änderung:
01. Beispiel 04 ergänzt
02. Beispiel 05 ergänzt
03. 04.10.06 Beispiel 06 ergänzt
04. 11.11.06 Beispiel 04 geändert, Bezug zu Tabelle4 eingefügt
05. 11.11.06 Beispiel 04 geändert, kompletter Vergleich
06. 31.01.07 Beispiel 07 ergänzt
07. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
08. 02.06.07 Beispiel 02 geändert, Leerzellen werden nicht gekennzeichnet
09. 02.06.07 Beispiel 04 geändert, Leerzellen werden nicht gekennzeichnet
10. 02.06.07 Kommentare in der Tabelle geändert
11. 02.06.07 Kommentare im Code geändert
12. 24.10.07 Beispiel 08 ergänzt
13. 25.10.07 Beispiel 09 ergänzt
14. 22.03.08 Beispiel 10 ergänzt
15. 12.04.08 Beispiel 11 ergänzt
16. 17.04.08 Fehler beim kopieren des Bereiches in Beispiel 11 beseitigt
16. 11.01.10 Beispiel 12 ergänzt
Formeln der Arbeitsmappe werden ausgelesen. Hierbei wird folgende Unterteilung vorgenommen:
- Formeln mit dem Ergebnis Fehler
- Formeln mit Bezug zu anderen Tabellen der Arbeitsmappe
- Formeln mit Bezug zu anderen Arbeitsmappen
- restliche Formeln
Zusätzlich werden noch die verwendeten Namen aufgelistet.
Änderung:
01. Kommentare im Code ergänzt
02. Code um Auflisten der definierte Namen ergänzt
03. 05.01.07 Hinweis zum Entfernen der Verknüpfung für Version 2002 und 2003 ergänzt
04. 13.01.07 Code geändert
05. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
06. 25.04.07 Hinweis zum Entfernen der Verknüpfung für Version 2007 ergänzt
07. 10.02.08 Formeln zu anderen Tabellen der Arbeitsmappe und restliche Formeln werden aufgeführt
08. 28.08.08 Name kein Bezug zur Tabelle, Name direkt Wert zugeordnet
Hinweis: Bei evtl. auftretenden Fehlern bei der Codeausführung bitte die Arbeitsmappe zusenden, sodass ich den Code
überarbeiten kann. Bitte Version mitteilen.
Verknüpfte Dateien öffnen
ab Version 2000
Alle mit einer Arbeitsmappe verknüpften Arbeitsmappen (max. 2 Stufen) werden geöffnet.
Hinweis: Zip-Datei entpacken und alle Arbeitsmappen im selben Verzeichnis ablegen.
Änderung:
01. 03.06.06 Code geändert, Prüfung ob Datei vorhanden
02. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
03. 03.06.07 Kommentare in Code ergänzt
Jede 6. Zeile im Bereich 11 bis 306 aus-/einblenden.
Änderung:
01. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
02. 17.06.07 Kommentare im Code ergänzt
Texteingaben in Spalte B werden nach Betätigen der Eingabetaste in Blöcken zu je 50 Zeichen auf die
nachfolgenden Zellen aufgeteilt.
Beispiel 01: der Text wird in nachfolgende Zellen der Spalte aufgeteilt
Beispiel 02: der Text wird in nachfolgende Zellen der Zeile aufgeteilt
Änderung:
01. 09.12.06 Fehler bei keiner Eingabe beseitigt
02. 01.01.07 Kommentare im Code ergänzt
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 17.06.07 Code und Kommentare überarbeitet
05. 03.12.07 Beispiel 2 ergänzt
Bei Eingabe einer definierten Zeichenkombination wird ein Zellbereich der betreffenden Zeile in eine andere Tabelle kopiert
(Zeichenkombination, Eingabe- und Kopierbereich im Code festgelegt).
Beispiel 01: kopieren nach der letzten gefüllten Zeile in Tabelle 2
Beispiel 02: kopieren in die erste Zeile in der Spalte A gleich Leer, Spalte A enthält eine Formel
Änderung:
01. 01.01.07 Kommentare in der Tabelle verändert
02. 01.01.07 Kommentare im Code ergänzt
03. 25.04.07 Arbeitsmappe für Version 2007 ergänzt
04. 22.10.09 Beispiel 2 ergänzt
Mein besonderer Dank gilt in diesem Zusammenhang Karin Mohnhaupt, die mich seit September 2005 bei der Erstellung dieser Homepage redaktionell unterstützt. Bei der intensiven Prüfung der Beispielarbeitsmappen hat sie mich auch auf einige Punkte hingewiesen, die ich als Autor als selbstverständlich angesehen hätte, die aber für den normalen User nicht immer nachvollziehbar gewesen wären.