Code funktioniert nicht wenn Label bereits befüllt
12.08.2015 13:59:03
Christian
mit Hilfe eines Buttons rufe ich diesen Code auf:
Sub DateiAuswahl(strTB As String)
Dim strDatei As String
Dim fdDialog As FileDialog
Set fdDialog = Application.FileDialog(msoFileDialogFilePicker)
With fdDialog
.Filters.Add "Dateien", "*.xlsx; *.xlsm; *.xls; *.pdf; *.HLW; *.doc", 1
.InitialFileName = "P:\Auftragserstellung\Etiketten" '"I:\Z_Test\"
.Title = "Bitte Datei auswählen"
.AllowMultiSelect = False ' "" Then UserForm1.Controls(strTB) = strDatei
Set fdDialog = Nothing
End Sub
Den Hyperlink trage ich dann in ein Label ein. Der Code funktioniert solange das Label zu beginn leer war. Wenn ich den Hyperlink aber mit diesem Code ändern möchte, dann funktioniert der Code nicht mehr.
Kann mir jm helfen um den Code anzupassen?
Danke