hi alle
für euch sicher eine leichte frage??
dieser code funktioniert super.nur wenn die verzeichniss auswahl erscheint,kann ich nicht abbrechen.
der code geht dann trotzdem (ich auf abrechen klicke) weiter.
wer kann mir da helfen??????
Private Sub Refresh_Click()
'Verzeichniss einlesen als Hyperlink
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
Application.Goto Reference:="PLAYLIST1"
Selection.ClearContents
Application.Goto Reference:="MUSIK"
Selection.ClearContents
Range("c2").Select
Dim strInitialDir As String, strPath As String
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
Columns(1).ClearContents
sPath = BrowseDirectory()
'hier fehlt der abbruch glaub ich ??????????????
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
'sPattern = InputBox(prompt:="Dateifilter:", Default:="*.mp3")
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 1), _
Address:=sPath & sFile, TextToDisplay:=sFile
sFile = Dir()
Loop
End Sub
DANKE JETZT SCHON
IVAN