Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Mehrdeutiger Name

Forumthread: 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

Anzeige

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.
Anzeige
AW: Makro Mehrdeutiger Name
02.02.2005 11:33:05
HeinzH
Danke Dr.
jetzt funkt.
M.f.G.
Heinz
;

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