Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

durch klick auf schaltfläche anderes dok öffnen

Betrifft: durch klick auf schaltfläche anderes dok öffnen von: annika
Geschrieben am: 26.08.2004 09:15:10

hallo
vieleicht kann mir ja einer helfen.
ich habe in einem Dok eine schaltfläche erstellt. nun will ich das sich durch klick auf diese schaltfläche ein anders excel dok öffnet.
geht so was überhaubt und wenn ja wie

  


Betrifft: AW: durch klick auf schaltfläche anderes dok öffnen von: Dan
Geschrieben am: 26.08.2004 09:47:27

Hallo, folgenden Code in die Click-Event Proc. kopieren, CommandButton1 nach bedarf umnennen. Falls notig, hier das ganze in einer Datei :
https://www.herber.de/bbs/user/10131.xls
Gruss Dan, CZ



Option Explicit

Private Sub CommandButton1_Click()
    Dim strFileFilter As String
    Dim strTitle As String
    Dim vntDatein As Variant
    Dim blnMultiSelect As Boolean
    
    On Error GoTo Err_In_CommandButton1_Click
    
    strFileFilter = "Microsoft Excel Dateien (*.xls),*.xls"
    strTitle = "Microsoft Excel Dateien Oeffnen"
    blnMultiSelect = True ' so kann man mehrere Dateien auf einmal oeffnen
    
    ' falls man auf OK clickt, enthaelt vntDatei die Pfaed(e), als Array, sonst enhaelt sie False
    vntDatein = Application.GetOpenFilename(strFileFilter, , strTitle, , blnMultiSelect)
    If (VBA.IsArray(vntDatein) <> FalseThen
        Dim vntDatei As Variant
        
        For Each vntDatei In vntDatein
            Application.Workbooks.Open vntDatei
        Next vntDatei
    End If
    
    Exit Sub
    
Err_In_CommandButton1_Click:
    MsgBox "Error in CommandButton1_Click (Error Nummer " & Err.Number & ")", vbCritical, "Error"
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5



  


Betrifft: AW: durch klick auf schaltfläche anderes dok öffnen von: Annika
Geschrieben am: 26.08.2004 10:09:06

super danke


 

Beiträge aus den Excel-Beispielen zum Thema "durch klick auf schaltfläche anderes dok öffnen"