Code mit Menübutton verbinden
15.12.2003 16:54:20
Ina
Ich möchte unten stehenden Code mit einem Button meiner Menüleiste verbinden, anstatt mit dem CommandButton1.
Teil des Menü-Codes:
Set cmdButton = M1.Controls.Add
With cmdButton
.Caption = "Eingabe Monat"
.OnAction = "MONATS_EINGABE"
.BeginGroup = False
.Style = msoButtonIconAndCaption
.FaceId = 2950
End With
Dieser Code (freundlicherweise von Ramses zur Verfügung gestellt) steht in Microsoft Excel Objekte/ Tabelle4:
Private Sub CommandButton1_Click()
chkVal = True
Range("D3").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "D3" And chkVal = True Then
chkVal = False
ElseIf Target.Address(False, False) = "D3" And chkVal = False Then
Target.Offset(0, -1).Select
End If
End Sub
Wer kann weiterhelfen? Gibt es da eine Möglichkeit??
Danke und Gruss Ina