Code Ändern für Excel 2003
01.05.2005 16:28:23
Lorenz
mit folgendem Code (stammt ursprünglich von "HWH") funktionierts leider nicht in Excel 2003 im Excel 97 gings aber
Laufzeitfehler ''5'' wird verursacht (Ungültiger Prozeduraufruf oder ungültiges Argument)
INFO: das Arbeitsblatt ''Zeit ist xlVeryHidden''
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Row > 5 And Target.Row <= 89 Then
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim wks As Worksheet
Dim iCol As Integer
Set wks = Worksheets("Zeit")
On Error GoTo Fehler
Select Case Target.Column
Case 3
Sheets("Zeit").Visible = xlHidden
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="StringInsert", _
Position:=msoBarPopup, _
MenuBar:=False, _
temporary:=True)
iCol = 1
Do Until IsEmpty(wks.Cells(5, iCol))
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.Cells(5, iCol).Value
.Style = msoButtonCaption
.OnAction = "GetValue"
End With
iCol = iCol + 1
Loop
CommandBars("StringInsert").ShowPopup
Sheets("Zeit").Visible = xlVeryHidden
End Select
End If
Fehler: Cancel = False
Cancel = True
If Target.Row > 89 Then
Cancel = False
End If
End Sub
Sub GetValue()
ActiveCell.Value = _
Application.CommandBars("StringInsert").Controls(Application.Caller(1)).Caption
End Sub
Sub DeleteCmdBar()
On Error Resume Next
Application.CommandBars("StringInsert").Delete
On Error GoTo 0
End Sub
Danke im Voraus &
Grüsse Lorenz
Anzeige