Thema Datum  Von Nutzer Rating
Antwort
12.01.2012 18:38:35 Eddi
NotSolved
12.01.2012 20:11:18 Till
NotSolved
13.01.2012 11:23:00 Eddi
NotSolved
13.01.2012 20:35:44 Till
NotSolved
Rot Gemeinsam Programmiertool erstellen
 14.01.2012 16:53:07 Eddi
NotSolved

Ansicht des Beitrags:
Von:
Eddi		 Datum:
14.01.2012 16:53:07		 Views:
1113		 Rating:
     
Antwort:
  Ja
Thema:
Gemeinsam Programmiertool erstellen

Hallo Till,

 

der Aufruf erfolgt aus einem AddInn.

 

Im Modul "DieseArbeitsmappe"

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
'------------------------------
' letzte Änderung: 25.11.2011
'------------------------------
 
Private Sub Workbook_Open()
     
    Menü_löschen
    Menü_erstellen
 
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     
    Menü_löschen
 
End Sub

 

im "Modul_Aufruf"

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
'------------------------------
' letzte Änderung: 25.11.2011
'------------------------------
 
Dim clsAddMenu As New clsMenue
 
Sub Menü_erstellen()
     
    clsAddMenu.AddMenuItem
 
End Sub
 
Sub Menü_löschen()
     
    Set clsAddMenu = Nothing
    On Error Resume Next
    Application.VBE.CommandBars("Code Window"). _
       Controls("Programmerstellung").Delete
 
End Sub

 

und im Klassenmodul "clsMenue"

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
'------------------------------
' letzte Änderung: 12.1.2012
'------------------------------
 
Public WithEvents Menue As VBIDE.CommandBarEvents
 
Public Sub AddMenuItem()
     
Dim ctlTopMenu As CommandBarButton
 
Set ctlTopMenu = Application.VBE.CommandBars("Code Window"). _
   Controls.Add(Type:=msoControlButton)
ctlTopMenu.BeginGroup = True
ctlTopMenu.Caption = "Programmerstellung"
ctlTopMenu.Enabled = True
Set Menue = Application.VBE.Events.CommandBarEvents(ctlTopMenu)
 
End Sub
 
Private Sub Menue_Click(ByVal cmdBar As Object, handled As Boolean, Cancel As Boolean)
 
Dim LW As String
Dim Pfad As String
 
Pfad = ThisWorkbook.Path & "\"
LW = Left(Pfad, 3)
ChDrive LW
ChDir Pfad
 
If Excel.Application.Workbooks.Count > 0 Then
    Run "'Programmerstellung.xlsm'!Modul_Programmerstellung.Programmerstellung", ActiveWorkbook.Name
Else
    MsgBox "Es ist keine bearbeitbare Excel-Datei geöffnet.", vbOKOnly, "Fehlermeldung"
End If
     
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.01.2012 18:38:35 Eddi
NotSolved
12.01.2012 20:11:18 Till
NotSolved
13.01.2012 11:23:00 Eddi
NotSolved
13.01.2012 20:35:44 Till
NotSolved
Rot Gemeinsam Programmiertool erstellen
 14.01.2012 16:53:07 Eddi
NotSolved