Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Buttons mit gleicher Funktion

Forumthread: Mehrere Buttons mit gleicher Funktion

Mehrere Buttons mit gleicher Funktion
03.01.2005 13:36:55
Werner
Hallo zusammen,
ich möchte in meinem VBA-Programm mehrere Buttons dynamisch erzeugen mit:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1" ...
Jetzt möchte ich aber jedem Button eine Sub-Routine zuweisen. Wie kann man das dynamisch machen?
Oder kann ich jedem Button die gleiche Sub-Routine zuweisen?
Vielen Dank!
Werner.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Forumthreads zu verwandten Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Zeilen einfügen mit Formeln per CommandButton
Tina

Hallo zusammen
Wiedermal brauche ich eure Hilfe bei einem Problem. Ich möchte per CommandButton automatisch Zeilen oberhalb des Buttons einfügen. Dabei soll die Zeile inkl. Formeln eingefügt werden.
Dazu habe ich bisher folgenden Code: Private Sub CommandButton1_Click() Dim lngInsertRo...
26.04.2012 08:14:44
Thread-ID: 1260980
3 Beiträge
Button mit Speicher-Funktion funktioniert nicht.
Basti

Schönen guten Abend,
ich habe in einem Arbeitsblatt ein CommandButton eingefügt und in VBA folgendes hinterlegt:
Private Sub Speichern_Click() Speichern4 End Sub
Private Sub Speichern4 () Dim p_Pfad4 As String Dim p_filename4 As String p_Pfad4 = "J:\Basti\Kosten\Reisekosten\Akt...
29.08.2012 18:28:12
Thread-ID: 1276847
3 Beiträge
Schaltbuttonfunktion einfügen
Hans

Hallo Forum,
nach langer Zeit melde ich mich mal wieder bei euch um ein Problem zu lösen.
Ich habe in meiner Rechnungstabelle ein kleines Add On installiert (reno20.exe)welches auf Klick auf den Schaltbutton eine neue Rechnungsnummer in der Tabelle erstellt. Geht soweit ganz gut.
N...
23.08.2013 20:35:08
Thread-ID: 1328179
4 Beiträge
2 Button mit Zeile einfügen
marcus

Hallo Exceler,
ich möchte (je nach Lage) 2 oder 3 Buttons, mit der Funktion "Neue Zeile einfügen", in verschiedenen Zeilen oder Bereichen einfügen mit VBA. Der erste ist kein Problem, da die Zeile immer die gleiche ist, an der er einfügen muss. Jedoch die darauf folgenden kann ich nicht kon...
22.07.2014 14:29:03
Thread-ID: 1371590
2 Beiträge
Button mit Datumsfunktion
Addi
Hallo Zusammen,
ich möchte in einem Excel-File einen Button anlegen, der bei Betätigung das die genaue Uhrzeit, ggf. auch das Datum in die Zelle reinschreibt, in der ich gerade drin stehe.
Kann man das mit VBA realisieren?
Vielen Dank für Eure Hilfe.
Viele Grüße
Addi
03.10.2014 16:48:20
Thread-ID: 1384689
5 Beiträge
Zeilen löschen/einfügen mit Funktionen
Holm

Hallo liebes Forum,
ich versuche grade, ein gelöstes Problem auf eine 2. Tabelle von mir zu "übertragen" bzw anzupassen, scheitere aber bisher... (wiedermal! :-( )
es geht wie immer um bestimmte Funktionen:
(siehe auch meinen letzten Beitrag, den Matthias mit Geduld gelöst hat!!)
15.03.2015 08:55:57
Thread-ID: 1415065
10 Beiträge
Bereich nach der letzten Zeile einfügen mit button
Mr.Pink

Hallo zusammen,
ich sitze vor folgendem Problem:
Ich habe einen Bereich an Daten, Zeile 12 bis 27. Diese Daten sollen per Button genau unterhalb des ersten Bereichs eingefügt werden. Also genau nach der letzten Zeile die mit Daten gefüllt ist.
Kann mir jemand einen Tipp geben wie...
24.03.2015 18:52:21
Thread-ID: 1416955
2 Beiträge
neue Zeile mit SUMME-Funktion einfügen
Larissa

Hallo,
habe keine VGA Kenntnisse, versuche aber trotzdem
habe eine Liste, die so aussieht:
Stück Länge Paket-Nr. Gewicht Fläche
13 18360 101 2546 238
3 12360 101 395 37
14 18360 102 4236 397
würde gerne zwischen den unte...
24.06.2015 11:52:01
Thread-ID: 1432833
6 Beiträge
Anzeige
tabelle einfügen mit funktion
Petro

Hallo leute
habe eine excel datei und zwar sind zwei Tabellen
Tabelle 1
Empfänger IBAN Betrag Verwendungszweck...
22.10.2015 14:27:36
Thread-ID: 1453805
7 Beiträge
Bild einfügen und löschen mit Button
phlp

Moin zusammen,
ich füge in einem Formular über einen Button ein Bild in eine bestimmte Zelle (A10) ein. Vorher wird noch geprüft ob sich bereits ein Bild in der entsprechenden Zelle befindet. Wenn ja, wird es gelöscht. Das funktioniert einwandfrei.
Jetzt habe ich aber das Problem, dass...
22.03.2016 16:27:25
Thread-ID: 1483589
8 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Dynamisches Erstellen von Buttons in Excel mit VBA

Schritt-für-Schritt-Anleitung

Um mehrere Buttons mit der gleichen Funktion in Excel dynamisch zu erstellen, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject" und wähle "Einfügen" > "Modul".

  3. Füge den folgenden Code ein:

    Sub CreateButtons()
   Dim btn As OLEObject
   Dim i As Integer

   For i = 1 To 5 ' Anzahl der Buttons, die du erstellen möchtest
       Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
       With btn
           .Top = 10 + (i - 1) * 30 ' Abstand zwischen den Buttons
           .Left = 10
           .Name = "Button" & i
           .Object.Caption = "Button " & i
           ' Weist die gleiche Subroutine zu
           .Object.OnAction = "ButtonClick"
       End With
   Next i
End Sub

Sub ButtonClick()
   MsgBox "Button wurde geklickt!"
End Sub

  4. Führe die Subroutine CreateButtons aus: Drücke F5 oder klicke auf "Ausführen", um die Buttons zu erstellen.

  5. Testen: Klicke auf einen der Buttons, um sicherzustellen, dass die MessageBox erscheint.

Häufige Fehler und Lösungen

  • Fehler: "Objekt kann nicht erstellt werden": Überprüfe, ob du die richtige Excel-Version verwendest, die ActiveX-Elemente unterstützt.

  • Fehler: Button reagiert nicht: Stelle sicher, dass die OnAction-Eigenschaft korrekt zugewiesen ist.

  • Keine Buttons sichtbar: Überprüfe die Positionseinstellungen (Top und Left), um sicherzustellen, dass die Buttons im sichtbaren Bereich der Tabelle platziert werden.

Alternative Methoden

Wenn du keine ActiveX-Buttons verwenden möchtest, kannst du auch Formen in Excel nutzen:

  1. Gehe zu "Einfügen" > "Formen" und wähle eine Form aus.
  2. Klicke mit der rechten Maustaste auf die Form und wähle "Makro zuweisen".
  3. Wähle die gewünschte Subroutine aus.

Diese Methode ist einfacher, bietet jedoch weniger Anpassungsmöglichkeiten.

Praktische Beispiele

Hier sind zwei Beispiele, wie du das Erstellen von Buttons in verschiedenen Szenarien nutzen kannst:

  1. Dynamisches Erstellen von Schaltflächen für Berichte: Erstelle Buttons, die verschiedene Berichte generieren, indem du die Subroutine anpasst.

  2. Steuerung von Makros: Erstelle Buttons, die verschiedene Makros ausführen, z.B. Daten sortieren, filtern oder zusammenfassen.

Tipps für Profis

  • Naming Convention: Vergib sinnvolle Namen für deine Buttons, um die Übersichtlichkeit zu erhöhen.

  • Styling: Du kannst die Buttons weiter anpassen, indem du die Eigenschaften wie BackColor oder Font im VBA-Code änderst.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Code bei unerwarteten Eingaben nicht abstürzt.

FAQ: Häufige Fragen

1. Kann ich die Buttons in einer bestimmten Zeile oder Spalte anordnen?
Ja, du kannst die Top und Left Eigenschaften anpassen, um die Buttons an der gewünschten Stelle zu platzieren.

2. Wie viele Buttons kann ich maximal erstellen?
Die Anzahl der Buttons ist nur durch die verfügbaren Ressourcen deines Computers und die Excel-Version begrenzt. In der Regel sind jedoch Hunderte von Buttons möglich.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige