Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldungsfenster Knöpfe auswerten

Meldungsfenster Knöpfe auswerten
07.04.2005 18:50:42
Thomas
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 !?!?!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meldungsfenster Knöpfe auswerten
07.04.2005 21:18:39
Ramses
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
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige