Case, bist du noch da?

Forumthread: Case, bist du noch da?

16.12.2016 01:35:31

Fred

dein VBA wie bereits geschrieben, ist genau das was, ich suchte.
Meine Frage;
Ich kann ähnlichen Vorgang auch in Zukunft gebrauchen und es wäre einfach flexibeler, wenn Ziel,- und Quellpfad jeweils in einer Zelle angegeben sind.
Beispiel "F4", "F5"

Shell ("xcopy " & ThisWorkbook.Worksheets("Basis").Range("F4").Value & _
Application.PathSeparator & "*.xls*" & " " & _
Environ("UserProfile") & "\Desktop\" & "ELO\temp\" & "/Y")

kannst du das nochmals biegen?
Gruß
Fred

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Je nachdem, was...

16.12.2016 02:23:51

Case
AW: Je nachdem, was...

16.12.2016 15:44:12

Fred
Gerne! Danke für die Rückmeldung, owT

16.12.2016 16:48:45

Case

Je nachdem, was...

16.12.2016 02:23:51

Case

Hallo Fred, :-)
... Du in der Zelle "F5" geschrieben hast: ;-)

Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Sub Main_1()
Shell ("xcopy " & ThisWorkbook.Worksheets("Tabelle1").Range("F4").Value & _
Application.PathSeparator & "*.xls*" & " " & _
Environ("UserProfile") & "\Desktop\" & _
ThisWorkbook.Worksheets("Tabelle1").Range("F5").Value & "/Y")
End Sub
Sub Main_1_1()
MakeSureDirectoryPathExists Environ("UserProfile") & "\Desktop\" & _
ThisWorkbook.Worksheets("Tabelle1").Range("F5").Value
End Sub
Sub Main_2_1()
Shell ("xcopy " & ThisWorkbook.Worksheets("Tabelle1").Range("F4").Value & _
Application.PathSeparator & "*.xls*" & " " & _
Environ("UserProfile") & "\Desktop\" & _
ThisWorkbook.Worksheets("Tabelle1").Range("F5").Value & _
Application.PathSeparator & "/Y")
End Sub
Sub Main_2()
MakeSureDirectoryPathExists Environ("UserProfile") & "\Desktop\" & _
ThisWorkbook.Worksheets("Tabelle1").Range("F5").Value & _
Application.PathSeparator
End Sub

Zelle "F4" im Moment ohne abschließenden Backslash.
Servus
Case

AW: Je nachdem, was...

16.12.2016 15:44:12

Fred

Hallo Case,
jetzt bin ich ja vollends an flexibilität bedient :-)
Das zugreifen auf die Umgebungsvariable "Environ" war früher ein fester Bestandteil meiner/gewisser Makros. Hatte ich letzte Zeit völlig aus den Augen verloren obwohl durchaus sinnvoll.
Danke für die geschriebenen Möglichkeiten und ein schönes Wochenende!
Gruß
Fred

Gerne! Danke für die Rückmeldung, owT

16.12.2016 16:48:45

Case

:-)

Beliebteste Forumthreads (12 Monate)

Forumthread: Case, bist du noch da?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread