nochmal klassenmodule und übergabe werte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also ich versuch mal zu erklären wo mein Verständnissproblem liegt.
Ich habe mit Hilfe ein Makro Programmiert mit 1 Klassenmodul.
Im Klassenmodul steht fogendes
Public WithEvents objDynCommandbutton As CommandButton


Private Sub objDynCommandbutton_Click()
MsgBox "Hallo du hast " & objDynCommandbutton.Caption & " geklickt !", vbInformation
End Sub

Im Modul selbst werden im Tabellenblatt Buttons angelegt für jedes Sheet einer.
Jetzt erreiche ich durch mein Makro wenn ich eine Button klicke ,das eine Msgbox kommt mit dem Namen des geklickten Buttons.
Und wie ich das bis jetzt sehe wird hier dem Button ein Name zugewiesen damit das Programm dan weiß welcher geklickt wurde.
Set aCommbutt(intJ).objDynCommandbutton = ActiveSheet.OLEObjects(intJ).Object
und hier steht ja in ActiveSheet.OLEObjects(intJ).Object "Falsch" als Wert.
Was wird dann dem Set aCommbutt(intJ).objDynCommandbutton zugewiesen? Falsch ?
Ich verstehe es nicht.Würde mich freuen wenn du oder jemand mir das erklären könnte.
Hier noch das Makro was in Modul1 steht.
Option Explicit
Public aCommbutt() As New cls_Commandbuttons
Public intCheckCount As Integer
Dim pos As Integer
Dim mysheet As Worksheet
Dim nurtest1 As String
Dim nurtest2 As String
Dim nurtest3 As String
Sub buttons_löschen_starten()
Dim objDynCommandbuttons As OLEObject
For Each objDynCommandbuttons In ActiveSheet.OLEObjects
nurtest3 = TypeName(objDynCommandbuttons.Object)

If TypeName(objDynCommandbuttons.Object) = "CommandButton" Then
objDynCommandbuttons.Delete
End If
Next
End Sub
Sub erstellen_buttons_starten()
'Makroaufruf mit Variablenübergabe von "ActiveSheet"
ChbDynamischErzeugen ActiveSheet
End Sub
Public Function ChbDynamischErzeugen(wksSheet As Worksheet)
Dim chbCommandbutton As OLEObject
pos = 20
For Each mysheet In ActiveWorkbook.Worksheets
Set chbCommandbutton = wksSheet.OLEObjects.Add(ClassType:="Forms.commandbutton.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=10, _
Top:=pos, _
Width:=100, _
Height:=20)

chbCommandbutton.Object.Caption = mysheet.Name
Set chbCommandbutton = Nothing

'Position der CommandButtons
pos = pos + 20
Next
Application.OnTime Now + TimeValue("00:00:01"), "OLE_Class_Setten"
End Function
Sub OLE_Class_Setten()
Dim intJ As Integer
intCheckCount = 0
For intJ = 1 To ActiveSheet.OLEObjects.Count
If TypeName(ActiveSheet.OLEObjects(intJ).Object) = "CommandButton" Then

ReDim Preserve aCommbutt(1 To intJ)
Set aCommbutt(intJ).objDynCommandbutton = ActiveSheet.OLEObjects(intJ).Object

End If
Next
End Sub
Vielen Dank !!!!!!!!!!!

HI Nepumuk,
du bist der beste :)
Aber ich bekomm das scheiß ding nun gar nicht mehr zu laufen:(
Hab die datei ausversehen gelöscht und versuche sie neu herzustellen und nix geht.Kommt immer wieder ein fehler.
Ich kopier die folgenden Module nur was mache ich falsch :(
Und zu deinem letzten Beitrag.Du rufst ja dann die OLE_Class_Setten trotzdem auf.Ich hab mir gedacht das kann ich mir sparen dann.Aber ist auch nicht schlimm weiter.
Ich hoffe ich versteh das ganze auch mal das wäre super.
Hier meine Versuche das ganze wieder hinzubekommen.
Ins Klassenmodul kopiere ich.
Im Klassenmodul steht fogendes
Public WithEvents objDynCommandbutton As CommandButton


Private Sub objDynCommandbutton_Click()
MsgBox "Hallo du hast " & objDynCommandbutton.Caption & " geklickt !", vbInformation
End Sub

'---------------------------------------------------------------
und ins Modul1 kopiere ich.
Option Explicit
Public aCommbutt() As New cls_Commandbuttons
Public intCheckCount As Integer
Dim pos As Integer
Dim mysheet As Worksheet
Dim nurtest1 As String
Dim nurtest2 As String
Dim nurtest3 As String
Sub buttons_löschen_starten()
Dim objDynCommandbuttons As OLEObject
For Each objDynCommandbuttons In ActiveSheet.OLEObjects
nurtest3 = TypeName(objDynCommandbuttons.Object)
If TypeName(objDynCommandbuttons.Object) = "CommandButton" Then
objDynCommandbuttons.Delete
End If
Next
End Sub
Sub erstellen_buttons_starten()
'Makroaufruf mit Variablenübergabe von "ActiveSheet"
ChbDynamischErzeugen ActiveSheet
End Sub
Public Function ChbDynamischErzeugen(wksSheet As Worksheet)
Dim chbCommandbutton As OLEObject
pos = 20
For Each mysheet In ActiveWorkbook.Worksheets
Set chbCommandbutton = wksSheet.OLEObjects.Add(ClassType:="Forms.commandbutton.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=10, _
Top:=pos, _
Width:=100, _
Height:=20)
chbCommandbutton.Object.Caption = mysheet.Name
Set chbCommandbutton = Nothing
'Position der CommandButtons
pos = pos + 20
Next
Application.OnTime Now + TimeValue("00:00:01"), "OLE_Class_Setten"
End Function
Sub OLE_Class_Setten()
Dim intJ As Integer
intCheckCount = 0
For intJ = 1 To ActiveSheet.OLEObjects.Count
If TypeName(ActiveSheet.OLEObjects(intJ).Object) = "CommandButton" Then
ReDim Preserve aCommbutt(1 To intJ)
Set aCommbutt(intJ).objDynCommandbutton = ActiveSheet.OLEObjects(intJ).Object
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

nochmal klassenmodule und übergabe werte

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nochmal klassenmodule und übergabe werte

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread