Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon TeX vom 04.01.2019, 20:30 Options

Datei über Button öffnen, mit Abfrage

Hallo Supportnet-Freunde,

vorerst, Gesundes Neues Jahr!

Ich möchte gerne in einer Excel-Datei über einen Button eine andere Excel-Datei öffnen. Das habe ich zwar schon hinbekommen, mit:

Private Sub Btn01_Click()
Workbooks.Open "Datei2.xls"
End Sub

Aber wenn ich nun erneut auf den Button klicke, dann bekomme ich eine Meldung, die mich warnt. Es würden sonst nämlich alle bisher vorgenommenen Änderungen in "Datei2.xls" verloren gehen.
Nun möchte ich es wie folgt lösen:
Eine Abfrage, nach folgendem Prinzip:

Ist die Datei "Datei2.xls" schon geöffnet, dann nur aktivieren, ansonsten "Datei2.xls" öffnen.

Ein Codebeispiel würde mir hier sehr helfen.

Gruß TeX

Antwort schreiben

Antwort 1 von Beverly vom 04.01.2019, 22:41 Options

Hi,

versuche es mit diesem Code

Private Sub Btn01_Click()
    Dim wbArbeitsmappe As Workbook
    For Each wbArbeitsmappe In Workbooks
        If wbArbeitsmappe.Name = "Datei2.xls" Then
            MsgBox "Datei ist offen"
            wbArbeitsmappe.Activate
            Exit Sub
        End If
    Next
    Workbooks.Open "Datei2.xls"
End Sub

Bis später,
Karin

Antwort 2 von TeX vom 05.01.2019, 09:42 Options

Hallo Beverly (Karin),

vielen Dank, der erste Teil des Makros hat Problemlos funktioniert, im zweiten Teil des Makros musste ich nur noch die Pfadangabe zur Datei hinzufügen.
also:

Workbooks.Open ("C:\Pfad\Datei2.xls")

Vielen Dank

Gruß TeX

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken