PDA

Vollständige Version anzeigen : Makro aktivieren/deaktivieren


der_phanter
30.06.2015, 18:57
Hallo zusammen.

Ich habe ein Problem bei dem ich nicht weiter weiß.

Und zwar habe ich mir in einer Excel 2007-Datei ein eigenes Ribbon mit diversen Schaltflächen erstellt. Jetzt möchte ich, das über die Schaltfläche1 Tabellenblatt1 nur angesprochen/aktiviert wird. Mit der Schaltfläche2 möchte ich auch Tabellenblatt1 ansprechen7aktivieren, aber da soll eine Besonderheit mit eingefügt werden. Wenn ich irgendeine Zelle in Spalte B mit Doppelclick anwähle soll sich ein bestimmtes Userform öffnen. Ich bekomme das nicht hin.

Hat jemand eine Idee?

Mit freundlichem Gruß
der_phanter

Hajo_Zi
30.06.2015, 19:03
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
<a href="http://hajo-excel.de/select.htm" title="Hinweise zu select usw." >Hinweise zu select usw. Hajo-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=61." >Hinweise zu select usw. Online-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=78." >Hinweise zu select usw. Online-Excel.de</a>

benutze das Ereignis
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

der_phanter
30.06.2015, 20:07
Hallo Hajo.

Das Ereignis "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" habe ich verwendet. Es funktioniert auch mit dem Doppelklick.
Aber ich möchte das wenn ich Schaltfläche1 klicke, das das Tabellenblatt1 angewählt wird, aber das das Makro sozusagen deaktiviert ist. Erst wenn ich Tabellenblatt1 über Schaltfläche2 anwähle, soll das Makro aktiv sein.

der_phanter

der_phanter
30.06.2015, 20:11
Über folgendes Makro steuere ich bisher über Schaltfläche1 und 2 das Tabellenblatt1 an:

Public Sub cmd_schalter3_oben(control As IRibbonControl)
Worksheets("Übersicht_MA-UTC").Visible = True
Worksheets("Übersicht_MA-UTC").Select
Application.CutCopyMode = False
End Sub

Und da suche ich die Möglichkeit, über Schaltfläche2 noch das entsprechende Makro anzusprechen.

der_phanter

der_phanter
30.06.2015, 20:12
Äh bei Schaltfläche2 ist es "...cmd_schalter5_oben..."

der_phanter