Datei umbenennen über Userform
09.02.2022 14:01:22
Markus
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
DANKE
für die Hilfe
LG
Max
Anzeige