Meldungsfenster Knöpfe auswerten

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

Betrifft: Meldungsfenster Knöpfe auswerten
von: Thomas
Geschrieben am: 07.04.2005 18:50:42
Hallo,
ich habe in einer Userform einen Knopf "speichern" eingebunden.
Wenn ich den Knopf betätige, kommt eine inputbox, in der ich den Namen unter dem gespeichert werden soll eingeben muss.
Soweit klappt alles.
Wenn ich aber einen Namen eingebe, der bereits existiert, kommt eine System - Meldung "Datei bereits vorhanden, überschreiben?" mit den Knöpfen "Ja","Nein" und "Abbrechen".
Drücke ich ja, geht es weiter. Bei Nein und Abbrechen kommt eine Fehlermeldung und das Programm unterbricht.
Wie kann ich die Knöpfe Nein und Abbrechen einbinden, so das bei NEIN die Abfrage erneut gestartet wird und bei Abbrechen die eingabeaufforderung geschlossen wird !?!?!

Bild

Betrifft: AW: Meldungsfenster Knöpfe auswerten
von: Ramses
Geschrieben am: 07.04.2005 21:18:39
Hallo
da musst du eine eigene Fehlerbehandlung schreiben.
Hier ein Beispiel:

Sub Create_Files()
On Error GoTo myErrorHandler
Dim i As Long, n As Long
Dim tempArr(1000) As String
'Ordner erstellen
MkDir TestVerz
Create_Files:
'TextArray zum schrieben in Musterdateien
For i = 1 To 1000
    tempArr(i) = "Muster"
Next i
'TestDteien erstellen
For i = 1 To 500 '500 Datein erstellen
    'Dateien werden unter dem Namen
    'Text1.txt fortlaufend bis text100.txt erstellt
    Open TestVerz & "test" & i & ".txt" For Output As #1
    'Dateien mit Text füllen
    For n = 1 To 1000
        Print #1, tempArr(n)
    Next n
    'String anfügen der ersetzt werden soll
    Print #1, "Zu ersetzen"
    'Test-Datei schliessen
    Close #1
    Debug.Print "Textdatei " & i & " erstellt"
Next i
Open_and_Change_word
ErrorExit:
Exit Sub
myErrorHandler:
Select Case Err
    Case 75
        'Ordner existiert schon
        Resume Create_Files
    Case Else
        'Sonstiger Fehler
        MsgBox Err.Number & ":" & Err.Description
End Select
Resume ErrorExit
End Sub

Gruss Rainer
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Meldungsfenster Knöpfe auswerten"