Debug-Fehler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Ludwig,
ich und ich denke Renée kriegen es nicht hin den Fehler nachzustellen.
Probiere es bitte nochmal, wenn der Fehler kommt, kommt da was wenn du auf "Hilfe " gehst?
Wenn ja, dann zeige uns mal was da steht, vielleicht hat MS doch einen Hinweis im Text versteckt :-)
Bei mir kommt leider bei der Hilfe zu solchenen seltenen Nummern öfters ein Hinweis auf eine Datei die ich nicht habe oder die Meldung ich soll mich an den Hersteller, also MS wenden.
K.A. warum das so ist und warum genauere Hilfe nicht gleich in der originalCd mit dabei ist udn wenn nicht, daß da gleich direkt gesagt wird, laden Sie sich bei MS die Hilfedatei XYZ.hlp herunter, naja MS halt :-(
Idee, exportiere (Rechtsklick auf den Modulnamen) mal alle Module wo was drin steht, dann nimm mal eine neue leere Datei und importiere dort die Module, benenne die Blätter wie im Original.
Stelle möglichst alles so ein wie im Original, also Blattschutz usw.
Wenn du es dann schaffst, wieder diesen Fehler zu erzeugen, sp lade dann mal diese "leere" Datei hoch.
Wenn da einer was dagegen hat, naja, gegen Paranoia kann man nix machen :-)
Was du machen könntest (k.A. ob das was bring) gehe mal auf ein anderes Blatt, dann zeichne dir ein Makro auf wenn du in das Blatt wo der Fehler kommt wechselst.
Ist da am Code was zu sehen was von


Sub Makro1()
' Makro1 Makro
' Makro am 28.4.2008 von r aufgezeichnet
Sheets("Gefunden_28_04_08_11_25_24").Select
End Sub

grundsätzlich stark abweicht?
Und, wenn du wieder auf einem beliebigen anderen Blatt stehst und das makro über Extras--Makro--Makro... startest, klappt das dann?
Gruß
Reinhard

Hallo Renée
Natürlich, den code kann ich zeigen:


Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
On Error Resume Next
Application.CommandBars("VSGM Betriebsparameter").Delete
On Error GoTo 0
Set oBar = Application.CommandBars.Add("VSGM Betriebsparameter", msoBarTop, False, True)
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "INPUT"
.Style = msoButtonIconAndCaption
.FaceId = 346
.OnAction = "START"
End With
oBar.Visible = True
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "HYPERBEL"
'.Style = msoButtonCaption
.Style = msoButtonIconAndCaption
.FaceId = 346
.OnAction = "HYPERBEL"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "KerneisenGuß"
'.Style = msoButtonCaption
.Style = msoButtonIconAndCaption
.FaceId = 346
.OnAction = "KerneisenGuss"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Drucken"
'.Style = msoButtonCaption
.Style = msoButtonIconAndCaption
.FaceId = 4
.OnAction = "Drucken"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
.OnAction = "Speichern"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "E-MAIL"
.Style = msoButtonIconAndCaption
.FaceId = 2039
.OnAction = "E_Mail"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Hilfe"
.Style = msoButtonIconAndCaption
.FaceId = 2
.OnAction = "Hilfe"
'.BeginGroup = True
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "CLOCK"
.Style = msoButtonIconAndCaption
.FaceId = 126
.OnAction = "CLOCK"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Beenden"
.Style = msoButtonCaption
.FaceId = 29
.OnAction = "adrClose"
End With
oBar.Visible = True
'On Error Resume Next
Sheets("Formaufbau").Select
ActiveWindow.WindowState = xlMaximized
Range("A1:S36").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub

Gruß Ludwig

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread