Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Button mit Workbooks.Open Filename belegen

Button mit Workbooks.Open Filename belegen
03.08.2005 19:19:07
Chris
Hallo Zusammen,
mit dem Befehl
With .Controls.Add(Type:=msoControlButton)
.Caption = "Open File"
.OnAction = ""
End With
fuege ich einen neuen Button zu einem Menue. Jetzt moechte ich den Button mit dem Befehl Workbooks.Open Filename:="\\storage\s\file1.xls" direkt belegen, ohne hierfuer ein eigenes Sub zu schreiben das mit dem Button verknuepft ist.
Weiss jemand ob das geht?
vielen Dank & Gruss
Chris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button mit Workbooks.Open Filename belegen
03.08.2005 19:21:06
Leo
Hi,
geht nicht, wo ist das Problem mit einer Sub?
mfg Leo
AW: Button mit Workbooks.Open Filename belegen
03.08.2005 23:54:36
Josef
Hallo Chris!
Das geht so!
Sub LinkButton()
    Dim c As CommandBar
    Dim cb As CommandBarButton
    
    On Error Resume Next
    Application.CommandBars("TEST").Delete
    On Error GoTo 0
    
    Set c = Application.CommandBars.Add(Name:="TEST")
    
    Set cb = c.Controls.Add(Type:=msoControlButton)
    
    With cb
        .Caption = "Open File"
        .Style = msoButtonCaption
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
        .TooltipText = "F:\Office\Excel\Beispiele\ampel.xls" '<-- hier der link zur Datei!
    End With
    
    
    c.Visible = True
    
    Set c = Nothing
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige