Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldungsfenster Knöpfe auswerten

Forumthread: 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 !?!?!
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige