Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox Fileendung auswählen

    Betrifft: Inputbox Fileendung auswählen von: geri
    Geschrieben am: 31.08.2003 10:27:52

    Guten Morgen

    kämpfe mit kleinem problem, möchte via INPUTBOX Dateierweiterung auswählen
    es sollte "*." FIX sein, nur Wahl XLS, XLA, PDF usw nötig
    es kann auch bereits XLS in INPUTBOX stehen und mit Enter weiter
    da keine Änderung


    AUSZUG aus Code

    Set fsObjekt = Application.FileSearch
    With fsObjekt
    .LookIn = "C:\DATEN\" 'anpassen Suchort
    .SearchSubFolders = True
    .Filename = "*.doc" 'anpassen auf Dateiendung

    If .Execute() > 0 Then

    Danke
    und allen einen schönen Sonntag auch wenn es etwas regnet

    gruss geri

      


    Betrifft: AW: Inputbox Fileendung auswählen von: GraFri
    Geschrieben am: 31.08.2003 11:17:45

    Hallo



    Option Explicit

    Sub Dateierweiterung_auswählen()
    Dim datErweiterung  As String
    Dim Meldung         As String

    Meldung = "Bitte Dateiändung festlegen. Erlaubte Ändungen." & vbCrLf & vbCrLf & vbTab & _
              "*.xls   --->  Excel-Date" & vbCrLf & vbTab & _
              "*.xla   --->  Excel-AddIn" & vbCrLf & vbTab & _
              "*.pdf   --->  Adobe Datei"
    Do
        datErweiterung = Application.InputBox(Meldung, "DATEIÄNDUNG""*.xls")
    Loop Until (datErweiterung = "*.xls" Or datErweiterung = "*.xla" Or datErweiterung = "*.Pdf")

    End Sub


         Code eingefügt mit Syntaxhighlighter 2.4


    mfg, GraFri


      


    Betrifft: Danke es funktioniert o.T von: geri
    Geschrieben am: 31.08.2003 11:26:49

    .


     

    Beiträge aus den Excel-Beispielen zum Thema " Inputbox Fileendung auswählen"