Datenschutzerklärung


Excel-Beispiele:
Erklärungen, Formeln, VBA-Code und mehr

Hinweise zu den Beispielen finden Sie hier: Beispiele


Kategorie: Beispiel > Excel > VBA > Tabelle (41)

Direktnachricht



Zellbezug in Fußzeile

(Tipp 122) Nachricht zum Beitrag an Autor Nach oben

Habe ich eine Möglichkeit, einen Zellbezug in die Kopf-/Fußzeile einzugeben? Z. B. in der Fußzeile soll immer der aktuelle Inhalt der Zelle A1 stehen?

Vornamen und Nachnamen trennen

(Tipp 124) Nachricht zum Beitrag an Autor Nach oben

In einem markierten Bereich befinden sich in jeweils einer Zelle Vornamen und Nachnamen, die durch Leerstellen getrennt sind. Wie kann ich Vornamen und Nachnamen in die Nachbarzellen einlesen lassen?

Laufende Uhrzeit in Zelle

(Tipp 126) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich in einer Zelle immer die aktuelle Uhrzeit anzeigen?



Pfad und Dateiname in die Fußzeile

(Tipp 127) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich Pfad und Dateinamen in die Fußzeile links einfügen?

Grafik auswählen und auf eine bestimmte Zelle legen

(Tipp 129) Nachricht zum Beitrag an Autor Nach oben

Auf einem Tabellenblatt befinden sich mehrere Gefahrengrafiken, die mit Bild ... durchnumeriert sind. Wie kann ich erreichen, daß auf der Grundlage einer in J11 stehenden Zahl die entsprechende Grafik nach D16 kopiert wird?

Eine Datei dazu finden Sie in den Beispieldateien (chemie.zip).

Erste leere Zelle in einer Spalte

(Tipp 130) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich in Spalte B die erste leere Zelle finden? Zwischen den Daten befinden sich keine leeren Zellen.

Entweder:

oder:

Zellwert um 1 erhöhen

(Tipp 131) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich den Wert von A1 um 1 erhöhen?

Formeln in Zellen per VBA einfügen

(Tipp 132) Nachricht zum Beitrag an Autor Nach oben

Wie kann man in einer Tabelle in verschiedene Spalten Formeln mit Hilfe eines Makros hineinkopieren ? Dabei ist die "Startzeile" immer die selbe. Dagegen variiert die "Endzeile" in Abhängigkeit der eingegebenen Daten. Wer kennt eine VBA Prozedur mit der dieses Problem leicht zu lösen ist.

Angenommen in Spalte A und B stehen Zahlen, in Spalte C willst Du nun die Summe haben, wobei die Zeilenanzahl durch die Spalte B bestimmt wird.

Tabellenblatt löschen

(Tipp 133) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich ein Tabellenblatt löschen und die Excelmeldung ausschalten?

Tabellenblattnamen

(Tipp 134) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich den Tabellenblatt-Namen über Makro auslesen?

Zeichen zu Zellinhalt hinzufügen

(Tipp 135) Nachricht zum Beitrag an Autor Nach oben

Wie füge ich an mehrere Zellen mit einen beliebigen Zellinhalt mehrere, gleichbleibende Zeichen (am Anfang oder Ende) hinzu?

In VBA z.B. für Spalte A

Möglichkeit per Formel:

Anzahl der Einträge in einer Spalte

(Tipp 136) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich die Anzahl der Einträge in einer Spalte feststellen?

Wenn nur die letzte Zeile festgestellt werden soll:

Zellen mit Inhalt:

Formel:

VBA mit Nutzung der der Worksheetfunction:

Minuszeichen nach vorn

(Tipp 137) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich in einer Spalte aus Zahlen, hinter denen das Minuszeichen steht, negative Zahlen erstellen?

Vornamen zählen

(Tipp 138) Nachricht zum Beitrag an Autor Nach oben

In einigen Zellen stehen mehrere Vornamen, durch ein Komma getrennt. Wie kann ich die Vornamen unter dem Datenbereich auswerten lassen? Beispiel: Tobias, Jens Ingo Frank, Tobias Ingrid, Sabine



Zufallszahlen in einem bestimmten Bereich generieren

(Tipp 139) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich zwischen 6 und 15 Zufallszahlen zwischen 1 und 49 generieren? Die Zahlen sollen auf dem Blatt Tab1 in der Zeile 1 ab A1 stehen. Keine Zahl darf sich wiederholen.

Numerische und alphanumerische Werte sortieren

(Tipp 140) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann ich folgende Zahlen in Spalte A sortieren: 100, 101, 100a, 100b, 102?

Doppelte Einträge in zwei Spalten finden

(Tipp 141) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich zwei Spalten auf doppelte Einträge (Zahlen) untersuchen und auf eine 3. Spalte kopieren?

Das Makro durchläuft die Zeilen von lngEZ bis lngLZ in Spalte intS. Immer wenn es in den restlichen Zeilen bis lngLZ eine gleiche Eintragung wie in der aktuellen Zelle findet, prüft es, ob auch die Eintragungen in den anderen beiden Spalten identisch sind. Wenn ja, trägt es in der Spalte intSZ in der aktuellen Zeile ein: "Mehrfach vorhanden." und in den anderen identischen Zeilen die einzelnen Werte der Zellen.

Letzter Wert einer Spalte

(Tipp 143) Nachricht zum Beitrag an Autor Nach oben

Wie bekomme ich den letzten Wert einer Spalte z. B. von B210 nach z. B. A1, wenn die Spalte jeden Tag um einen Wert erweitert wird?

Spalte versetzen

(Tipp 144) Nachricht zum Beitrag an Autor Nach oben

Wie kann man den Inhalt der aktiven Zelle in der gleichen Zeile in die nächste freie Zelle versetzen?

Variablen Bereich markieren

(Tipp 145) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich die nächste leere Spalte nach rechts in der Höhe einer Datenbank markieren?

Kopieren ohne Format übernehmen

(Tipp 146) Nachricht zum Beitrag an Autor Nach oben

Ich möchte aus der Datei_1/Tabelle_1 die Inhalte der Spalten A,B,C in die Datei_2/Tabelle_2 kopieren. Die Datei_2/Tabelle_2 ist aber in Bezug auf Spaltenbreite,Farbe,Rahmen,... bereits formatiert. Diese Formatierung soll erhalten bleiben. Wie ist das auf eine einfache Art möglich?



Nicht geschützte Zellen suchen

(Tipp 147) Nachricht zum Beitrag an Autor Nach oben

Ich habe die Arbeitsblätter geschützt. Teilweise sind die Zellen aber ungeschützt. Ich würde gerne einfach die Tabelle markieren und dann im VBA die Werte aller ungeschützten Zellen löschen ohne genaue Bezüge angeben zu müssen. Da gibt es doch sicher eine Möglichkeit, die Zelleigenschaft zurückzugeben, und dann mit einer Schleife oder irgendwie anders die Werte zu löschen?

Die gesamte Tabelle nach ungeschützten Zellen durchsuchen zu lassen würde sicher zu lange dauern. Besser ist es, den Bereich, der durchsucht werden soll, einzugrenzen und dann in einer verschachtelten Schleife alle Inhalte ungeschützter Zellen zu löschen. Das Makro wäre dann:

Zellinhalt als Blattname

(Tipp 149) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich das Blatt nach dem Inhalt der Zelle A5 benennen?

Zeilen mit 1 löschen

(Tipp 150) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich die Zeile löschen, wenn sich in Spalte A eine 1 befindet?

Erste Möglichkeit:

Zweite Möglichkeit:

Schrift in Kombinationsfeld

(Tipp 151) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich Schriftart, -größe usw eines Kombinationsfeldes aus der Steuerelement-Toolbox ändern?

Das Kombinationsfeld im Entwurfsmodus mit rechts anklicken und Eigenschaften auswählen. Im daraufhin erscheinenden Eigenschaftenfenster findet man die Eigenschaft Font. Hier können die Änderungen vorgenommen werden.

Blattnamen durch Klick auf Kombinationsfeld einfügen

(Tipp 152) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich auf einem Blatt ein Kombinationsfeld erstellen, in dem die Namen der Blätter enthalten sind? Durch Klick in das Kombinationsfeld soll der angeklickte Name in A1 erscheinen.

  1. Symbolleiste Steuerelement-Toolbox einblenden
  2. Schaltfläche Kombinationsfeld anklicken
  3. Kombinationsfeld zeichnen
  4. Doppelklick auf das Feld, dadurch wird der VBA-Editor geöffnet
  5. folgenden Code eingeben (Zelle anpassen):
  6. Entwurfsmodus durch Klick auf linke Schaltfläche verlassen
  7. zum Editor wechseln (ggf. mit Alt und F11)
  8. Menü Einfügen - Modul
  9. folgendes Makro eingeben (dient zum Füllen des Kombinationsfeldes):

Durch den Aufruf des Makros Fuellen wird das Kombinationsfeld gefüllt; nach der Auswahl eines Blattes erscheint dessen Name im Beispiel in A1.

Wert aus B1 in erste leere Zelle eines anderen Blattes

(Tipp 154) Nachricht zum Beitrag an Autor Nach oben

Der Wert einer Eingabezelle B1 auf Sheet 1 soll per Makro in eine wachsende Liste auf Sheet 2 kopiert werden. Hierzu soll die erste freie Zelle in Spalte D gesucht werden und dort der Wert eingesetzt werden. Wie kann ich in diesem Kopiervorgang die variable Adressierung festlegen?

Zellbearbeitung aktivieren

(Tipp 155) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich per Makro die Zellbearbeitung aktivieren, so daß der Cursor in der Zelle blinkt?



10 Zufallszahlen generieren

(Tipp 156) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich untereinander 10 Zufallszahlen generieren, ohne daß Wiederholungen auftreten?

Ungerade Spalten ausschließen

(Tipp 157) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich bei der Änderung einer Auswahl in den Spalten 3 bis 49 abfragen, ob es sich um eine ungerade Spalte handelt?

Dieses Makro dem Blatt zuordnen (Doppelklick im Editor auf das Blatt). Es fragt ab, ob es sich bei der ausgewählten Spalte um eine Spalte handelt, bei deren Division durch 2 der Rest 1 ergibt.

Farbnummern anzeigen

(Tipp 158) Nachricht zum Beitrag an Autor Nach oben

Wie kann ich die Excel-Farbnummern auflisten lassen?

Dieses Makro fügt die Nummern in Spalte E ein und "färbt" in der Spalte F.

Zellaktivierung: Wert in andere Zelle

(Tipp 159) Nachricht zum Beitrag an Autor Nach oben

Wenn ich eine Zelle aktiviere, soll der Wert aus Spalte B der Zeile der aktiven Zelle in E2 eingelesen werden.

Im VBA-Editor auf die Tabelle doppelklicken, auf der das Makro wirksam werden soll, und folgendes Makro eingeben:

Zelleinträge trennen

(Tipp 160) Nachricht zum Beitrag an Autor Nach oben

In einem Zellbereich stehen in den einzelnen Zellen Vor und Nachnamen. Wie kann ich diese Einträge trennen, so dass in einer Zelle der Vor- und in der Nachbarzelle der Nachname erscheint?

Das folgende Makro löst diese Aufgabe. Voraussetzung ist, dass der Bereich, der die Daten enthält, markiert ist. Vor der Ausführung sollte hinter der Spalte mit den Daten eine neue Spalte eingefügt werden.

Es ist mit dieser Methode auch möglich, mehr als 2 Wörter, die mit Leerzeichen getrennt sind, in die Nachbarzellen zu übertragen. Sollten in nebenstehenden Zellen Daten stehen, muss man vor der Ausführung des Befehls darauf achten, entsprechend viele Spalten einzufügen.

Per Tab oder Enter von Steuerelement zu Steuerelement, nach Eingabe bestimmte Zelle auswählen

(Tipp 342) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Auf einem Blatt befinden sich mehrere Steuerelemente. Wie kann ich mich mit Tastatur von Element zu Element bewegen?

In der Beispieldatei ist eine Möglichkeit dargestellt.

Wert kopieren - variabler Zielbereich

(Tipp 390) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Der Wert aus A1 soll in den Bereich kopiert werden, der in C1 enthalten ist.

Siehe Beispieldatei.



Arbeit mit Kombinationsfeld in der Tabelle

(Tipp 403) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann ich ein Kombinationsfeld füllen und den gewählten Wert an eine Zelle übergeben?

Siehe Beispieldatei.

Löschen verhindern

(Tipp 412) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann ich ohne Blattschutz das Löschen verhindern?

In der Beispieldatei ist eine Möglichkeit mit Application.Undo demonstriert.

Einträge in Combobox ohne Doppelungen

(Tipp 416) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann ich verhindern, dass in Comboboxen doppelte Einträge erscheinen?

Siehe Beispiele in der Beispieldatei.

Anklickbare Landkarte mit Informationen zur Stelle

(Tipp 440) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann ich durch Klick auf eine Stelle einer Landkarte Meldungen anzeigen lassen?

Per VBA Sudoku-Rätsel mit 81 Feldern erstellen

(Tipp 552) Beispieldatei Nachricht zum Beitrag an Autor Nach oben

Wie kann man per VBA auf einem Tabellenblatt ein Sudoku-Rätsel erstellen?

Hier ist ein Ansatzpunkt, der sicher noch zu verbessern geht:

Eine Datei dazu finden Sie in den Beispieldateien (sudoku.zip)

Hochkomma entfernen

(Tipp 556) Nachricht zum Beitrag an Autor Nach oben

In einem größeren Bereich befinden sich vor den Zahlen Hochkommas, so dass mit den Zahlen nicht gerechnet werden kann. Wie kann man die Hochkommas entfernen?

Range("IV10000") ist eine beliebige Hilfszelle.