FileDialog in Zelle schreiben
11.12.2019 11:45:03
Manu
ich habe einen Code geschrieben der aber nicht so will wie ich das möchte.
Ich möchte das bei einem Doppelkick auf einer Zelle ich die Datei auswähle und dann nur der Dateiname in die Zelle geschrieben wird zb 9999.zip
Wenn ich das in der msgbox ausgebe, funktioniert es. Aber in der Zelle schreibt es mir immer denn kompletten Pfad.
Was mache ich falsch ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$K$39:$Q$39" Then
Call schreibeinzelle
End If
End Sub
Sub schreibeinzelle()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\VBA TEST\"
.Title = "Zip Datei Auswählen"
.ButtonName = "Zip Auswahl"
.AllowMultiSelect = False
.Filters.Clear
'.Filters.Add "erlaubte Datei", "*.zip"
.Show
If .SelectedItems.Count = 1 Then
FileDialog = .SelectedItems(1)
Cancel = True
End If
End With
'MsgBox Dir(FileDialog)
Range("AA39").Value = FileDialog
End Sub