Auswahl über CommandBarButton
06.12.2003 16:31:39
Lorenz K.
Mit folgenden Code greife ich auf das Blatt "Zeit" zu(funktioniert auch).
Ich möchte aber bei Target.Column 5 auf ("Zeit")Zeile 1, bei Target.Column 6 auf ("Zeit")Zeile2, , bei Target.Column 22 auf ("Zeit")Zeile5 oder ähnliches zugreifen bzw auslesen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Fehler
Sheets("Zeit").Visible = xlHidden
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim wks As Worksheet
Dim iCol As Integer
If Target.Row > 6 And Target.Row <= 89 Then
If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 8 Or Target.Column = 9 Or _
Target.Column = 11 Or Target.Column = 12 Then _
Set wks = Worksheets("Zeit")
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="StringInsert", _
Position:=msoBarPopup, _
MenuBar:=False, _
temporary:=True)
iCol = 1
Do Until IsEmpty(wks.Cells(1, iCol))
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.Cells(1, iCol).Value
.Style = msoButtonCaption
.OnAction = "GetValue"
End With
iCol = iCol + 1
Loop
CommandBars("StringInsert").ShowPopup
Sheets("Zeit").Visible = xlVeryHidden
End If
Fehler: Cancel = False
End Sub
Grüße Lorenz K.