ich möchte gerne aus einer Userform eine Datei auswählen und diese dann in einen Ordner wo die Hauptdatei liegt verschieben.
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte aktuelle Datei auswählen"
.ButtonName = "Auswählen"
.FilterIndex = 1
If .Show = -1 Then
strDateiAktuell = .SelectedItems(1)
Me.Label2.Caption = strDateiAktuell
strNew = ThisWorkbook.Path & "Belege\Beleg_" & Tabelle6.Range("H2") & "_1" & ".pdf"
Else
strDateiAktuell = ""
Me.Label2.Caption = "keine aktuelle Datei gewählt"
End If
End With
Name strDateiAktuell As strNew
End Sub
Es kommt die Fehlermeldung das die Datei nicht vorhanden ist. Fehler ist gelb bei Name strDateiAtuell As strNew.DANKE
für die Hilfe
LG
Max