Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Mehrdeutiger Name

Makro Mehrdeutiger Name
02.02.2005 10:59:17
HeinzH
Hallo Leute
Habe für eigene Menüleiste & Vollbildschirm ein Makro gefunden.
Nur enthält es einen Fehler: "Mehrdeutiger Name Workbook_open"
Könntet Ihr mir BITTE diesen Fehler beheben.
Danke Heinz
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CmdDelete
End Sub


Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Call CmdDelete
Set oBar = Application.CommandBars.Add( _
Name:="MyFiles", _
Position:=msoBarTop, _
MenuBar:=True)
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Laden"
.Style = msoButtonCaption
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Speichern"
.Style = msoButtonCaption
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Erstellen"
.Style = msoButtonCaption
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "Zurück"
.OnAction = "CmdDelete"
.Style = msoButtonCaption
End With
Set oBtn = oBar.Controls.Add(ID:=178)
Application.DisplayFullScreen = True
oBar.Visible = True
End Sub

Sub Workbook_Deactivate()
ResetContext
End Sub
Sub Workbook_Open()
EditContext
End Sub
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Legende" Or ActiveSheet.Name = "Hauptblatt" Then
ResetContext
Else
EditContext
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim neuer_Blattname As String
If Target.Address = "$A$6" Or Target.Address = "$A$52" Then
neuer_Blattname = Range("A6") & " bis " & Range("A52")
ActiveSheet.Name = neuer_Blattname
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Mehrdeutiger Name
Dr.
Du verwendest 2x eine Workbook_open-Routine. Das funzt nicht.
AW: Makro Mehrdeutiger Name
HeinzH
Hallo Dr.
Wie würde das BITTE zusammengefügt gehören könntest Du mir BITTE helfen.Habe keine Erfahrung mit VBA.
Danke Heinz
AW: Makro Mehrdeutiger Name
Dr.
Aber BITTE.
Nimm das 2. Workbook_open komplett raus.
AW: Makro Mehrdeutiger Name
02.02.2005 11:33:05
HeinzH
Danke Dr.
jetzt funkt.
M.f.G.
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige