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

durch klick auf schaltfläche anderes dok öffnen

durch klick auf schaltfläche anderes dok öffnen
26.08.2004 09:15:10
annika
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

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

Betreff
Datum
Anwender
Anzeige
AW: durch klick auf schaltfläche anderes dok öffnen
Dan
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
Anzeige
AW: durch klick auf schaltfläche anderes dok öffnen
26.08.2004 10:09:06
Annika
super danke

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige