Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler abwangen und INPUT Box anzeigen!

Fehler abwangen und INPUT Box anzeigen!
04.08.2004 08:42:46
Richie
Hi VBA Community,
habe folgendes Problem.
Erstelle in einem Makro ein Verzeichnis, dass sich nach bestimmten Vorgaben bildet. Wenn jedoch dieses Verzeichnis schon existiert, dann bleibt das Marko hängen und gibt eine Fehlermeldung aus bzw. stürzt es ab. Sonst funktioniert es einwandfrei.
Würde das Probleme gerne so lösen, dass bei der Auslösung des Fehlers eine INPUT Box erscheint und der User die Möglichkeit hat einen alternativen Namen für das Verzeichnis einzugeben.
Greets
Richie

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler abfangen und INPUT Box anzeigen!
04.08.2004 09:48:34
Nepumuk
Hallo Richie,
ein Beispielcode:


Public Sub test()
    Dim strVerzeichnis As String
    strVerzeichnis = "Eigene Temp"
    Do While Dir("D:\Eigene Dateien\" & strVerzeichnis & "\", vbDirectory) = "." Or Dir("D:\Eigene Dateien\" & strVerzeichnis & "\", vbDirectory) = ".."
        strVerzeichnis = InputBox("Der Ordner ''" & strVerzeichnis & "'' existiert bereits." & vbLf & "Bitte geben sie einen neuen Ordnernamen ein.", "Eingabe")
        If strVerzeichnis = "" Then
            MsgBox "Sie müssen einen Ordnernamen angeben.", 48, "Hinweis"
            strVerzeichnis = "Eigene Temp"
        End If
    Loop
End Sub


Gruß
Nepumuk
Anzeige
AW: Fehler abfangen und INPUT Box anzeigen!
04.08.2004 10:23:58
Richie
Super, das funzt wunderbar.
Danke sehr!
Ciao
Richie

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige