HERBERS Excel-Forum - die Beispiele

Thema: Schaltflächen gem. Tabelleninhalten anlegen und benennen.

Home

Gruppe

Allgemein

Problem

Mit der ersten Schaltfläche sollen in Tabelle2 Buttons angelegt, mit der zweiten benannt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub CreateButtons()
   Dim btn As Button
   Dim rng As Range
   Dim iCounter As Integer
   With Worksheets("Tabelle2")
      .Buttons.Delete
      For iCounter = 1 To 40
         Set rng = .Cells(iCounter, 1)
         Set btn = Worksheets("Tabelle2").Buttons.Add( _
            rng.Left, rng.Top, rng.Width, rng.Height)
      Next iCounter
   End With
End Sub

Sub SetBtnNames()
   Dim btn As Button
   Dim iRow As Integer
   For iRow = 1 To 40
      Worksheets("Tabelle2").Buttons(iRow).Caption = _
         Cells(iRow, 1).Value
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt

Excel Arbeitsblatt verkleinern/vergrößern Arbeitsblatt schützen Kommentare aber noch möglich
Arbeitsblatt speichern Arbeitsblatt als E-Mail versenden
Arbeitsblattname in Zelle anzeigen Arbeitsblatt in neuer Arbeitsmappe speichern
Einfügen v. Werten in ein anderes Arbeitsblatt Namen von Arbeitsblatt in Zelle übernehmen
Arbeitsblatt schützen Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Dateneingabe u. Arbeitsblatt kopieren
Hyperlink auf Bereich in Arbeitsblatt Ereignis Arbeitsblatt sperren abfangen
Zugriff auf ein Arbeitsblatt per Kennwort VBA-Code von einem Arbeitsblatt ins nächste ausfüh
Arbeitsblatt ohne Select speichern wenn arbeitsblatt vorhanden makro ausführen
wenn arbeitsblatt vorhanden makro ausführen "Seite einrichten" eines Arbeitsblattes übern
Scrollen im Arbeitsblatt bei Formelbearbeitung allgemein
Neue Daten in ein anderes Arbeitsblatt übertragen Arbeitsblatt als rtf-Datei abspeichern - Wie?
Daten aus anderem Arbeitsblatt suchen und einfügen bestehendes Problem Arbeitsblatt erstellen
Arbeitsblattname in ein Feld schreiben Arbeitsblattwechsel durch Formular unterbinden
Neues Arbeitsblatt erstellen, falls nicht vorhande Arbeitsmappe öffnen, Arbeitsblatt suchen, Text ein
Ansicht nach Arbeitsblatt wechsel Combobox abhängig von offenem Arbeitsblatt
combobox rowsource aus anderem arbeitsblatt Automatisches Speichern einer Arbeitsblatt-Kopie
Checkbox in Arbeitsblatt Zellen in neues Arbeitsblatt kopieren
allgemein: VBA lernen? Indirekt - Funktion für anderes Arbeitsblatt
Hide-Methode-Allgemeine Frage Übergabe eines Arbeitsblattes VBA
Arbeitsblattliste-Hyperlinks erstellen-Formatieren Formelassistent allgemein
Arbeitsblatt-Menüleiste ausgeblendet Macro nur auf jeweiligem Arbeitsblatt
Archivieren externer Dateien in Arbeitsblatt allgemeingültig Blattschutz aufheben
Arbeitsblatt activesheet.name im arbeitsblatt
Arbeitsblatt kopieren mit Namensbezügen