Herbers Excel-Forum - das Archiv

Meldungsfenster Knöpfe auswerten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel-Beispiele zum Thema "Meldungsfenster Knöpfe auswerten"
Ein Meldungsfenster für 5 Sekunden anzeigen Stempelkarten auswerten
Fußballwette auswerten Assistent zum Dialog aufrufen und Eingaben auswerten
Lottozahlen generieren und Ergebnisse auswerten