Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 12:29:14
Alle ActiveX-Optionbuttons aus einem Groupname auf "Fal
10.05.2024 12:14:16
Darunterzellen addieren
10.05.2024 12:12:08
Code auf mehrere Button anwenden
10.05.2024 11:53:13
Wert aus Variablen in wenn-Formel nach Excel übergeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Case, bist du noch da?

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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige