INPUTBOX
03.09.2003 09:18:36
helen
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