Wie onclick bei dynamisch erstelltem command-bttn?

Hi Leute,
am besten stelle ich meine Frage anhand eines Beispieles:
Excel holt Datensätze aus Access und stellt die Datensätze in jeweils einer Zeile dar.
In jeder Zeile bilde ich zusätzlich einen Command-Button ab, der dafür dienen soll, daß wenn man in der betreffenden Zeile auf den Button klickt, man weitere Details zu diesem Datensatz angezeigt bekommt.
(also bei "ONCLICK" auf den Command-Button, soll eine entsprechende Aktion ausgeführt werden.)
Meine Command-Buttons erstelle ich mit:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1").Select
Da diese Buttons erst zur Laufzeit dynamisch erstellt werden, habe ich folgendes Problem:
wie weise ich diesen BUttons einen "ONCLICK-Event" zu ?
(ich weiß ja nicht wieviele Zeilen es sein werden...)
Am liebsten wäre es mir, wenn die Command-Buttons alle die gleiche Function aufrufen würden, jeweils aber mit unterschiedlichen Übergabeparametern.
Kann mir jemand sagen, wie ich dynamisch generierten Command-Buttons so erstelle, daß Sie Übergabeparameter haben und eine Function aufrufen !?
Danke und Gruß,
LT

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
das geht schon, aber da ich den Aufbau deiner Tabelle und dein Vorgehen nicht kenne, hier eine Variante mit einer Protokolldatei.
Diese Tabelle mit dem Namen "Protokoll" muss in deiner Mappe sein.
Per VBA auf "Visible = xlVeryHidden" setzen, damit der normale Benutzer da nicht rankommt.
Option Explicit

'Protokolldatei ist eine Tabelle mit dem Namen "Protokoll"
'Per VBA auf den Status = xlVeryHidden gesetzt
Public Const protName As String = "Protokoll"
Public protWks As Worksheet

Sub AddTest()
'Aufruf wo der/die Button hin soll/en
AddButton Range("E5:E10")
End Sub

Sub DelTest()
'Löscht Buttons in diesem Bereich
DelButtonProcedure Range("E4:E6")
End Sub

Sub AddButton(TarRange As Range)
Dim myC As Range
Set protWks = Worksheets(protName)
For Each myC In TarRange
    ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
    With Selection
        'Eintragung der Bezugszelle
        protWks.Cells(protWks.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = myC.Address
        'Eintragung der ButtonBezeichnung
        protWks.Cells(protWks.Cells(Rows.Count, 1).End(xlUp).Row, 2) = .Name
        Debug.Print .Name
        .Top = myC.Top
        .Left = myC.Left
        .Height = myC.Height
        .Width = myC.Width
        .Text = ActiveSheet.Shapes.Count
        'Diese Procedure wird ausgelöst
        .OnAction = "TestProcedure"
    End With
Next
End Sub

Sub DelButtonProcedure(delRange As Range)
Set protWks = Worksheets(protName)
Dim tmpName As String
Dim myC As Range
Dim i As Integer
With protWks
    For Each myC In delRange
        For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If .Cells(i, 1) = myC.Address Then
                tmpName = .Cells(i, 2).Text
                ActiveSheet.Shapes(tmpName).Delete
                .Rows(i).Delete
                Exit For
            End If
        Next i
    Next
End With
End Sub

Du darfst allerdings dann allerdings keinen Button mehr von Hand von löschen :-)
Sondern nur noch mit Code.
Das hinzufügen der Buttons habe ich dir etwas angepasst, du kannst nun einen Bereich übergeben, wo Buttons hin sollen.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Wie onclick bei dynamisch erstelltem command-bttn?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

38 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie onclick bei dynamisch erstelltem command-bttn?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

38 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread