Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Code Ändern für Excel 2003

Code Ändern für Excel 2003
01.05.2005 16:28:23
Lorenz
Hallo zusammen!
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code Ändern für Excel 2003
01.05.2005 19:45:14
Herbert
Hi,
welche Zeile wird vom debugger markiert?
mfg Herbert
AW: Code Ändern für Excel 2003
01.05.2005 20:11:22
Lorenz
Hi Herbert!
Die Zeile "Application.CommandBars("StringInsert").Delete" wird markiert
Gruss Lorenz
AW: Code Ändern für Excel 2003
01.05.2005 20:33:53
Herbert
Hi,
bei mir läuft der Code.
Versuch mal folgendes:
In der VBE unter Extras|Optionen|Allgemein den Haken bei Unterbrechen bei Fehlern
"Bei nichtverarbeiteten Fehlern" setzen.
mfg Herbert
Anzeige
AW: Code Ändern für Excel 2003 erledigt ;-))
01.05.2005 20:48:40
Lorenz
Hallo Herbert!
Genau das wars!
"Bei nichtverarbeiteten Fehlern" aktiviert statt bei jedem Fehler!
Danke vielmals
Lorenz

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige