Ausgabe Fehlermeldung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Ausgabe Fehlermeldung
von: Sebastian
Geschrieben am: 01.08.2015 14:23:14

Hallo,
komme bei folgendem Fall nicht weiter:
folgendes simples Makro:


Sub goto_abverkaufsmonitor()
    Windows("Abverkauf.xls").Activate
    Sheets("Inhalt").Select
End Sub

nun möchte ich, dass er, wenn die Datei "Abverkauf" nicht vom Benutzer bereits geöffnet ist, die Fehlermeldung: "der Abverkaufsmonitor ist nicht geöffnet! Möchten Sie ihn jetzt öffnen?" anzeigt.
Wenn der Benutzer "Ja" wählt, soll die Datei geöffnet werden.
Bei "Nein" passiert nichts.
Wie mache ich das?
VG und Vielen Dank
Sebastian

Bild

Betrifft: AW: Ausgabe Fehlermeldung
von: Hajo_Zi
Geschrieben am: 01.08.2015 14:33:45
Hallo Sebastian,
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de


Sub Datei()
    Dim BoAuf As Boolean
    Dim WbDatei As Workbook
    For Each WbDatei In Workbooks
        If WbDatei.Name = "Abverkauf.xls" Then
            BoAuf = True
        End If
    Next
    If BoAuf = False Then
        If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Lö _
schabfrage ?") = vbYes Then
            ' Datei öddnen
            BoAuf = True
        Else
            MsgBox "Nein"
        End If
    End If
    If BoAuf = True Then
        ' Dein Code
    End If
End Sub



Bild

Betrifft: AW: Ausgabe Fehlermeldung
von: Sebastian
Geschrieben am: 01.08.2015 14:49:55
Das ist durch das Makrorecording entstanden :)
ich muss mich mal in VBA weiterbilden.
Vielen Dank!!!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ausgabe Fehlermeldung"