BILDER IN ORDNER PER VBA VERSCHIEBEN

Hallo !

Danke für deine Antwort. So trivial ist es aber leider nicht.

Beispiel:

Ich beziehe ein Bild von meiner SD-Karte. Nun lade ich es ins Anzeige-Feld. Der dazugehörige Link lade ich direkt in eine Textbox. Klicke ich nun auf "SPEICHERN" möchte ich, dass Excel das Bild aus dem alten Dateipfad, welcher in der Textbox angezeigt wird
nimmt, dann umbenennt in meinen neuen Pfad und einer Bildnummer, die ich manuell in einer Textbox eingebe (zb. 0012) und diesen am neuen Ort abspeichert. Der Pfad bleibt dabei immer der selbe, nur die Bildnummer ändert sich.

Also von: D:\Fotos\2017\Abendsonne zu folgendem Pfad: I:\Allgemein\Privat\Fotos\Exceldaten\Ref_xxxx.jpg

, wobei xxxx der Platzhalter für die Bildnummer ist, welche ich in der Textbox eingebe.

Sehr toll wäre ausserdem, wenn Excel noch prüft, ob dieses Bild, sprich diese Bildnummer bereits existiert und dann eine Meldung ausgibt.

Besten Dank im Voraus!

LG

So trivial ist es aber leider nicht.

Doch ist es, dafür braucht es wirklich nur Grundkenntnisse.

Andreas.

Sub Test()

Dim PfadAlt As String

Dim PfadNeu As String

Dim Nummer As Integer



'PfadAlt ist das Original das schon geladen ist:

PfadAlt = "D:\Fotos\2017\Abendsonne.jpg"



'Der neue Standardpfad

PfadNeu = "I:\Allgemein\Privat\Fotos\Exceldaten\Ref_xxxx.jpg"



'Ich mach mal 'ne Nummer von Hand, die kannst Du Dir ja aus der Textbox holen

Nummer = 12

'Das xxxx ersetzen

PfadNeu = Replace(PfadNeu, "xxxx", Format(Nummer, "0000"))



'Prüfen ob schon da

If Dir(PfadNeu) = "" Then

'Nein, kopieren

FileCopy PfadAlt, PfadNeu

Else

MsgBox "Schon da"

End If

End Sub

Naja, wenn Du das alles schon hinbekommen hast...

Also Du kennst den Pfad der Bilddatei, Du weißt wohin das Bild soll, dann nimm doch einfach FileCopy!?

Andreas.

Sub Test()

FileCopy "C:\temp\bild.bmp", "C:\whatever\qweqwe.bmp"

End Sub

Ich habe es jetzt selbst nicht ganz elegant aber dennoch vereinfacht hinbekommen. Es funktionierte sogar ohne VBA.

Im Fenster zum Anlegen neuer Termine kann man per Rechtsklick das Menüband anpassen. Dort die Funktion "In Ordner..." einfügen und schon ist funktioniert es. Man könnte das Element jetzt grundsätzlich auch in jeden Anderen Outlook-Ordner verschieben, aber
so geht es auf jeden Fall.

Danke für deine Antworten.

Hallo Alexander von Bressensdorf,



Ja, diese Möglichkeit besteht. Sie kann auf folgender Weise realisiert werden:



Unlink (trenne) OneDrive und melde Dich erneut an. Wähle die Festplatte (Partition), auf der die Fotos sind als Synchronisierungsort - in dem Fall G:. Auf G: wird einen OneDrive Ordner erstellt. Verschiebe den Ordner mit den Bilder in diesen OneDrive Ordner.
Warte ab bis die Bilder mit der Cloud synchronisiert sind.



Trenne OneDrive erneut (unlink). Jetzt kannst Du die Bilder in ihren ursprünglichen Ordner verschieben.



Melde dich wieder in OneDrive Klient an. Entferne das Häkchen für diesen Ordner (Bilder), so dass der nicht lokal synchronisiert wird. So werden die Bilder in der Cloud nicht in den neuen Ordner synchronisiert.



Wähle die Festplatte (Partition), auf der die Musik ist - - in dem Fall Z:. Auf Z: wird einen OneDrive Ordner erstellt. Verschiebe den Musikordner in diesen OneDrive Ordner. Warte ab bis der Ordner mit der Cloud synchronisiert ist.



Trenne OneDrive erneut (unlink). Jetzt kannst Du die Musik in ihren ursprünglichen Ordner verschieben.



Melde dich wieder in OneDrive Klient an. Wähle die Festplatte (Partition) D: und den Ort wo Du den endgültigen OneDrive Ordner haben willst.

Entferne das Häkchen für die Ordner Bilder und Musik damit diese nicht von der Cloud zu diesen Ordner synchronisiert werden.



Kopiere/verschiebe die Daten in den OneDrive Ordner.



Auf diese Weise werden die Daten von D: immer synchronisiert. Die Bilder und Musik werden nicht synchronisiert, sondern nur einmalig in der Cloud (OneDrive for Business) hochgeladen.



Eine gleichzeitige Synchronisation über mehrere Ordner/Speicherorte/Festplatten/Partitionen ist momentan nicht möglich.



Deine Meinung und Vorschläge darüber kannst Du den Entwicklern
hier mitteilen.





Für weitere Fragen stehe ich gerne zur Verfügung.



Mit freundlichen Grüßen,



Georgi Taskov



Microsoft Office 365 Support Engineer



Bitte markieren Sie diese Antwort als ‚überprüft‘, wenn diese Ihnen weiterhelfen konnte, so dass auch andere Teilnehmer von der Lösung profitieren können. Die Teilnehmer, die die meisten Antworten zur Verfügung stellen, erhalten
ein ‚Antwort-Abzeichen‘.