Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Command Button erstellen | Herbers Excel-Forum


Betrifft: Command Button erstellen von: Jana
Geschrieben am: 23.10.2008 13:26:27

Hallo liebes Forum!

Ich habe mal wieder ein Anliegen...

Dank eurer Hilfe starte ich aus einer bestehenden Excel-Datei heraus eine neue Exceldatei.

1. Für diese neue Datei möchte ich einen Button auf dem Blatt "Tabelle1" erstellen.
2. Hinter dem erstellten Button ein Makro extern via VBA hinterlegen.

Da fängt das Problem an..

Ich habe folgenden funktionsfähigen Code gefunden

Sub AddButton()
Dim tarCell As Range
Set tarCell = Range("A10")
'wohin soll der Button
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
'Eintragung der Bezugszelle
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Neuer Button"
'Diese Procedure wird ausgelöst
.OnAction = "DeinMakroName"
End With

nur leider geht er nur, wenn ich in der gleichen Datei bleibe...
oder ich spreche ihn falsch an -- Problem: erkennt Buttons.Add nicht. Meine umgebaute Version sieht folgend aus:

WB.Sheets("Tabelle1").Name = "Tab1"
WB.Sheets("Tabelle2").Name = "Tab2"
WB.Sheets("Tabelle3").Name = "Tab3"
WB.Sheets("Tabelle4").Name = "Tab4"

Dim tarCell As Range
Set tarCell = Range("E1")
WB.Sheets("Tab1").Select
WB.Sheets.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Speichern Button"
'Diese Procedure wird ausgelöst
.OnAction = "DeinMakroName"
End With

Frage 2: kann man hinter diesen Button in irgend einer Form noch ein Makro / Hinweis hinterlegen, so dass er ein bestimmtes Makro anspricht?Meinetwegen auch aus der ursprünglichen Datei, aus der diese neue Datei mit Button erstellt wird. Ich habe da mal was von einem AddIn-speichern gehört.

Vielen Dank einem Jeden im Voraus

Jana

  

Betrifft: AW: Command Button erstellen von: Beverly
Geschrieben am: 23.10.2008 13:58:32

Hi Jana,

versuche es mal auf diesem Weg:

Sub button_mit_code_erstellen()
    Dim inZeile As Integer
    Dim wbMappe As Workbook
    Dim oobButton As OLEObject
    Application.DisplayAlerts = False
    Set wbMappe = Workbooks.Add
    With wbMappe.Worksheets(1)
        Set oobButton = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
            , DisplayAsIcon:=False, Left:=.Range("D10").Left, Top:=.Range("D10").Top, Width:= _
117, Height _
            :=30)
        With wbMappe.VBProject.vbComponents(.Name).CodeModule
            If .CountOfLines = 0 Then
                .InsertLines 1, "Option Explicit"
                .InsertLines 3, "Private Sub CommandButton1_Click()"
                .InsertLines 4, "    MsgBox ""Ich bin neu hier"""
                .InsertLines 5, "End Sub"
            Else
                .InsertLines inZeile + 3, "Private Sub CommandButton1_Click()"
                .InsertLines inZeile + 4, "    MsgBox ""Ich bin neu hier"""
                .InsertLines inZeile + 5, "End Sub"
            End If
        End With
    End With
    Application.DisplayAlerts = True
End Sub




GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Command Button erstellen von: Jana
Geschrieben am: 23.10.2008 14:06:26

Hallo Beverly!!

Ich versuche..

gebe dann bescheit!

Dank dir!


Beiträge aus den Excel-Beispielen zum Thema "Command Button erstellen"