Microsoft Excel

Herbers Excel/VBA-Archiv

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

INPUTBOX

    Betrifft: INPUTBOX von: helen
    Geschrieben am: 03.09.2003 09:18:36

    Hallo miteinender

    suche Lösung für Inputbox --> mehr als drei Zeilen Pdf,doc,xls, .......
    wenn Suffix nicht gefunden (leer am Suchort) wird bricht Makro ab ...
    an bei der Code ist sicher etwas einfaches

    With fsObjekt
    .LookIn = "E:\Daten\" 'anpassen Suchort
    .SearchSubFolders = True

    Meldung = "Bitte Dateiendung festlegen. Erlaubte *SUFFIX*." & vbCrLf & vbCrLf & vbTab & _
    "*.xls ---> Excel-Daten" & vbCrLf & vbTab & _
    "*.doc ---> Word-Daten" & vbCrLf & vbTab & _
    "*.pdf ---> Adobe Datei"
    Do
    datErweiterung = Application.InputBox(Meldung, "mögliche DATEIENDUNGEN", "*.")
    Loop Until (datErweiterung = "*.xls" Or datErweiterung = "*.doc" Or datErweiterung = "*.pdf")

    .Filename = (datErweiterung)
    If .Execute() > 0 Then
    For index = 1 To .FoundFiles.Count
    Cells(index, 1) = .FoundFiles(index)
    Next index
    End If
    End With

    letzteZeile = Range("A2000").End(xlUp).Row ' Bereich für Hypererstellung
    Range("A1:A" & letzteZeile).Select 'Abgrenzung benutzte Zellen

    For Each C In Selection
    C.Hyperlinks.Add C, C.Value
    Next C

    sonst funktioniert Makro einzig die zwei Punkte stören
    Danke für Hilfe
    gruss helen

      


    Betrifft: AW: INPUTBOX von: helen
    Geschrieben am: 03.09.2003 15:05:56

    Hallo


    suche Lösung für Inputbox --> mehr als drei Zeilen Pdf,doc,xls, .......
    zu dem Punkt benötoge ich noch Lösungsansatz
    den anderen Punkt habe ich gelöst
    DANKE

    gruss helen


     

    Beiträge aus den Excel-Beispielen zum Thema " INPUTBOX "